Verileri diğer sayfaya aktarmak istiyorum

[efeem]

Arkadaşlar yardıma ihtiyacım var. Tescil formundaki listeyi Tüm tesciller sayfasına aktarmak istiyorum ancak tescil formundaki veriler değiştirilip yeni form doldurulduğunda yeni verilerin tüm tescil sayfasında listenin altına kaldığı yerden devam etmesini istiyorum. epeydir uzak kalmışım excelden ve macrolardan yapamadım

 

[efeem]

yok mu yardım edebilecek bir arkadaş

 

[Ziynettin]

Merhaba, aşağıdaki kodu deneyin.

Sub Aktar()
    Set sh1 = Sheets("Tescil Formu")
    Set sh2 = Sheets("Tüm Tesciller")
        sat1 = sh1.Range("B" & Rows.Count).End(3).Row
        sat = sh2.Range("B" & Rows.Count).End(3).Row + 1
        sh1.Range("B7:J" & sat1).Copy sh2.Cells(sat, 2)
    sat = sat + 1
End Sub

 

[efeem]

Teşekkür ederim. Hemen Deniyorum.