- iPhone topik
- Google Pixel 10 és 10 Pro összehasonlító gyorsteszt
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Apple iPhone 17 - alap
- Google Pixel topik
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Yettel topik
- Samsung Galaxy Watch6 Classic - tekerd!
- Telekom mobilszolgáltatások
- Apple iPhone Air - almacsutka
-
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
- Eladó Steam kulcsok kedvező áron!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Vírusirtó, Antivirus, VPN kulcsok
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Apple Watch Series 9 45mm GPS Starlight 1 év Garancia Beszámítás Házhozszállítás
- HP 65W töltő eladó
- Xiaomi Redmi Note 12 Pro 5G 128GB Kártyafüggetlen 1Év Garanciával
- Samsung Galaxy A16 5G 128GB Kártyafüggetlen 1Év Garanciával
- BESZÁMÍTÁS! Sony PlayStation 4 PRO 1TB fekete játékkonzol garanciával hibátlan működéssel
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest