aktar ve yazdır

[ziraatci26]

Arkadaşlar yapmak istediğim olay e sütununda bulunan isim leri sayfa2 deki sarı yerlere aktarıp sayfayı yazdırmak.Kendimce bi makro yazdım ama e29 hücresine veriyi aktaramıyorum.dosya ektedir.yardımcı olursanız sevinirim

 

[AS3434]

Sub aktar_yazdir()
Dim i As Long
Set sh = Sheets("sayfa1")
Set sh2 = Sheets("sayfa2")
 
For i = 1 To sh.Cells(65536, "e").End(xlUp).Row [COLOR=red][B]Step 2[/B][/COLOR]
sh2.Range("e11") = Cells(i, "e")
sh2.Range("e29") = Cells(i + 1, "e")
Sheets("sayfa2").PrintOut
Next
Set sh = Nothing
Set sh2 = Nothing
End Sub

Yapmış olduğunuz makroya kırmızı yeri ilave edin.
Öakronun butonunu Sayfa1 e koyun.

 

[ziraatci26]

sağol hocam