- Xiaomi 14 - párátlanul jó lehetne
- Fotók, videók mobillal
- Motorola Edge 50 Neo - az egyensúly gyengesége
- Mobil flották
- iPhone topik
- Yettel topik
- Apple iPhone 16 Pro - rutinvizsga
- Huawei Watch GT 4 - kerek karék
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Samsung Galaxy A54 - türelemjáték
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
Delila_1
veterán
válasz
mr.nagy #17942 üzenetére
Minden megoldható.
Jelöld ki a nyomtatási területet a Munka1 lapon, utána mehet a makró.
Gondolom, nem lesz nagyobb darabszám, mint 10.Sub cimke_nyomtatas()
Dim sor As Long, usor As Long, csz As Variant, db As Integer
Dim i As Integer, WS As Worksheet, sor1 As Integer
Set WS = Worksheets("Munka1")
Sheets("Munka2").Select
usor = Range("A" & Rows.Count).End(xlUp).Row
sor1 = 13
For sor = 2 To usor
WS.Range("C:C,L:L").ClearContents
csz = Cells(sor, "A")
db = Cells(sor, "B")
For i = 1 To db
If i < 6 Then
WS.Range("C" & sor1) = csz
sor1 = sor1 + 10
Else
If sor1 > 53 Then sor1 = 13
WS.Range("L" & sor1) = csz
sor1 = sor1 + 10
End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
sor1 = 13
Next
End Sub
Új hozzászólás Aktív témák
- Borderlands 4
- sh4d0w: Tele a hócipőm
- Xiaomi 14 - párátlanul jó lehetne
- Mégis marad a Windows 10 ingyenes frissítése
- Kertészet, mezőgazdaság topik
- Fotók, videók mobillal
- Milyen notebookot vegyek?
- A fociról könnyedén, egy baráti társaságban
- Trollok komolyan
- Motorola Edge 50 Neo - az egyensúly gyengesége
- További aktív témák...
- Számlás!Windows 10 Pro 11 Pro,Windows 10 Home 11 Home, Office 2016,2019,2021 ,Vírusirtok,Mac
- Honor X7 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! 64GB (2x32) Samsung 3200MHz DDR4 memória garanciával hibátlan működéssel
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest