Sayfa2 den sayfa 1 e şartlı kayıt

[chakistes]

Merhaba Arkadaşlar excelde sayfa2 de d2 hücresinden başlayarak sayfa1 deki a hücresinde boş satırdan itibaren aktarmasını istiyorum aşağıdaki şekilde kodları yaptım fakat toplu ekleme yaptıramadım.

Son_Dolu_Satir = Sheets("Sayfa1").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa1").Range("A" & Bos_Satir) = Sheets("Sayfa2").Range("D" & Son_Dolu_Satir + 1)

MsgBox "Kayıt işlemi tamamlandı."

 

[PLİNT]

Merhaba
Aşağıdaki gibi deneyebilirsiniz.

aa = Sheets("Sayfa1").Range("A65536").End(xlUp).Row + 1
bb = Sheets("Sayfa2").Range("D65536").End(xlUp).Row
Sheets("Sayfa1").Range("A" & aa & ":A" & aa + bb - 1).Value = _
Sheets("Sayfa2").Range("D2:D" & bb + 1).Value

MsgBox "Kayıt işlemi tamamlandı."

 

[chakistes]

teşekkür ederim