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

• #44349 Delila_1 veterán bela85 #44348

  Új Válasz 2020-06-24 15:12:34 #44349

  Ú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 bela85 #44348 üzenetére

  Modulba tedd a makrót.

  Sub Nyomtatas()
Dim sor As Long
sor = 2

Sheets("Munka1").Select
With Sheets("Munka2")
Do While .Range("B" & sor) <> ""
Sheets("Munka1").Range("B3") = .Range("B" & sor)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
sor = sor + 1
Loop
End With
End Sub

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