-
GAMEPOD.hu
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
Topikgazda
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 SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Új hozzászólás Aktív témák
- Steam topic
- Épített vízhűtés (nem kompakt) topic
- Computex 2024: Itt az új ROG Ally
- Futás, futópályák
- Megjelenési dátumot kapott a Tomb Raider animációs sorozat
- Anglia - élmények, tapasztalatok
- Autós topik
- Mibe tegyem a megtakarításaimat?
- Autós topik látogatók beszélgetős, offolós topikja
- Skull and Bones - Egy hétig ingyen játszhatunk vele
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Új, bontatlan World of Warcraft gyűjtői kiadások
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs