Verileri aktarmak

[kontto]

Arkadaşlar sizden istediğim yardım, Butona tıklayınca F : J aralığındaki verilerin LİSTE sayfasına alt alta aktarılmasıdır. Yani ben F : J arasına veri veya veriler girdiğim zaman girilen verilerin tamamını LİSTE sayfasına aktaracak, bu F : J aralığındaki verileri silip yeni veriler girdiğim zamanda onlarında LİSTE sayfasına yine altına ekleyerek devam etemesi gerekiyor,
Yardımlarınız için şimdiden teşekkür ederim.

 

[soykan]

Aşağıdaki kodları kullanıp makro yazınız.
Sub aktar()
Dim a, b, i As Integer

For a = 10 To Sayfa1.[f50000].End(3).Row
b = Sayfa2.[a50000].End(3).Row + 1
Sayfa2.Cells(b, "a") = Sayfa1.Cells(a, "f")
Sayfa2.Cells(b, "b") = Sayfa1.Cells(a, "g")
Sayfa2.Cells(b, "c") = Sayfa1.Cells(a, "h")
Sayfa2.Cells(b, "d") = Sayfa1.Cells(a, "I")
Sayfa2.Cells(b, "e") = Sayfa1.Cells(a, "j")

Next a

End Sub

 

[kontto]

Teşekkür ederim elinize sağlık