sıralı satır makrosu hk

[mosmos2009]

Merahabalar
Ek'teki dosyada Data sırayla a1 kopyalayıp Yapıstır Sheetindeki a1 yapıstırarak prınt edecek, sonra bu sefer Data a2 kopyalıcak yine a1 yapıstırıp yazacak, Data a kolonu bitene kadar sırala kopyalayıp Yapıstır sheetine yapıstırıp prınt cıktısı alıcam makro ile mümkünmüdür

 

[uzmanamele]

Merhaba

Bu kod işinizi görür mü?

Sub yazdir()
Application.ScreenUpdating = False
Set s1 = Sheets("data")
Set s2 = Sheets("yapıstır")
For i = 1 To s1.Range("a65536").End(3).Row
s2.Range("a1") = s1.Cells(i, "a")
s2.PrintOut Copies:=1
Next
Application.ScreenUpdating = True
End Sub

 

[mosmos2009]

evet bu isim gördü tesekkürlerimi sunarım,