Butona basınca en son boş hücreye gitsin

[Mdemir63]

Selamlar,

Arkadaşlar dosyada açıkladım

Saygılar

 

[dEdE]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
Sheets("VERİ").Select
ss = Sheets("VERİ").[A65536].End(3).Row + 1
Sheets("VERİ").Cells(ss, 1).Select
End Sub

 

[Mdemir63]

Merhaba,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
Sheets("VERİ").Select
ss = Sheets("VERİ").[A65536].End(3).Row + 1
Sheets("VERİ").Cells(ss, 1).Select
End Sub

Selamlar

Hocam çok teşekkürler

Saygılar

 

[dEdE]

Rica ederim.
İyi çalışmalar.