veri olmayan son satır ve son sütun

[feryat]

Range("A65535").End(xlUp).Offset(1, 0).Select
ile veri girilemiş son satırı buldum.
ancak bir butona bastığımda bu satırdaki veri girilmemiş son sütuna veri girmesini istiyorum.
bir türlü yapamadım.
yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde denermisiniz.

Cells(Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, Columns.Count).End(1).Offset(0,1).Select

 

[feryat]

iLGİNİZE TEŞEKKÜRLER

Ancak bu da olmadı. Üzerinde çalıştığım dosyayı upload ettim. bir bakarsanız sevinirim. Tekrar teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Üstteki mesajımdaki kodu güncelledim. Denermisiniz.

 

[feryat]

Teşekkürler

Cells(Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, Columns.Count).End(1).Offset(0,1).Select

Korhan Hocam kod çalışıyor. Çok teşekkür ederim.