Sayfadan sayfaya veri taşıma

[Carpintero]

Merhabalar, aynı kitabın içinde sayfadan diğer sayfaya veri aktarmaya
çalıştım ama tam manası ile başaramadım. Yardımcı olabilirseniz çok
sevinirim. Saygılarımla.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub Kod()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
sat = 3
For a = 4 To s1.Range("B65500").End(3).Row
    s2.Cells(sat, "E") = s1.Cells(a, "B")
    s2.Cells(sat, "F") = s1.Cells(a, "D")
    s2.Cells(sat, "G") = s1.Cells(a, "E")
    s2.Cells(sat, "H") = s1.Cells(a, "F")
    s2.Cells(sat + 1, "E") = s1.Cells(a, "B")
    s2.Cells(sat + 1, "F") = s1.Cells(a, "L")
    s2.Cells(sat + 1, "G") = s1.Cells(a, "J")
    s2.Cells(sat + 1, "H") = s1.Cells(a, "I")
    sat = sat + 2
Next
End Sub

 

[Carpintero]

harika olmuş.
Ellerinize sağlık sayın mucit77