Új hozzászólás Aktív témák

• #38509 Delila_1 veterán customer114 #38508

  Új Válasz 2018-07-10 11:05:50 #38509

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz customer114 #38508 üzenetére

  Egy modulba másolt makró elintézi. A lap neve, ahonnan másol: Munka1, a másik lap Nyomtatás névre hallgat nálam.

  Sub Nyomtatashoz()
Dim innen As Long, ide As Long, hanyszor As Long, db As Long

Sheets("Munka1").Select
innen = 1 'ha címsorod van a Munka1 lapon, akkor innen=2
With Sheets("Nyomtatás")
Do While Cells(innen, "A") <> ""
hanyszor = Cells(innen, "A")
ide = .Range("A" & Rows.Count).End(xlUp).Row + 1
db = 0
Do While db < hanyszor
.Cells(ide, "A") = Cells(innen, "B")
db = db + 1: ide = ide + 1
Loop
innen = innen + 1
Loop
End With
End Sub

  A füzetet makróbarátként kell elmentened.

Új hozzászólás Aktív témák