en son satırı çekmek

[talatcd]

Slm arkadaşlar,

sayfa1 in a sütunun en son dolu satırını sayfa3 ün c3 hücresine yazdırmak istiyorum. Bir de yine sayfa1 in a sütunun en son dolu satırını sayfa3 ün en son dolu satırına yazdırmak istiyorum yardımcı olursanız sevinirm. Tüm arkadaşlara kolay gelsin

 

[akcacaki]

Sheets("sayfa1").Select
Range("A1").Select
selection.End(xlDown).Select
Range(selection, selection.End(xlToRight)).Select
selection.Copy
Sheets("sayfa3").Select
Range("c3").Select
ActiveSheet.Paste
selection.End(xlDown).Select
ActiveSheet.Paste

 

[Ali]

Sayfa1'in içine aşağıdaki kodları ekleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sayfa3").Range("C3") = Sheets("Sayfa1").Range("A65536").End(xlUp).Value
Sheets("Sayfa3").Range("C65536").End(xlUp).Offset(1, 0).Value = Sheets("Sayfa1").Range("A65536").End(xlUp).Value
End Sub

 

[talatcd]

teşekkürler hepinize, ellerinize sağlık