En Son Boş Hücreye Kaydet

[csncesur]

Sayfa 1'de bulunan A1 hücresinde yazılanı Kaydet Butonu ile Sayfa 2' deki A sütununda bulunan listenin en altına kaydetmesini istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Sub Kaydet()

Dim SonSat As Long

SonSat = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
Sheets("Sayfa2").Range("A" & SonSat) = Sheets("Sayfa1").Range("A1")

End Sub

 

[Necdet]

Ya da

Sub Kaydet()

Sayfa2.Range("A" & Sayfa2.Cells(Rows.Count, "A").End(3).Row + 1) = Sayfa1.Range("A1")

End Sub

 

[csncesur]

Ya da

Sub Kaydet()

Sayfa2.Range("A" & Sayfa2.Cells(Rows.Count, "A").End(3).Row + 1) = Sayfa1.Range("A1")

End Sub

Çok teşekkür ederim elinize sağlık