Tablo formatındaki aralığın son dolu satırını bulma

[bafralifatih55]

Merhabalar
Range("Tbl1") şeklinde tablo oluşturduğum aralığı tanımlıyorum. Ancak dolu olan tablodan bir veri sildiğimde Range("Tbl1")End(3) şeklinde kullandığım kod son hücreyi buluyor ve sondaki kaydı sildiğim zaman value boş geliyor.
Bu tür durumda içinde veri olan son dolu hücrenin değerini nasıl elde ederim.
Teşekkürler.

 

[muygun]

Merhaba;
sonsatir = Range("A65536").End(xlUp).Row

65536 sayısını 50 yaparsanız A sütununda 50. satıra kadar son dolu hücrenin satır no' sunu verir.

 

[bafralifatih55]

merhaba
Hocam burada tablo adı kullanabilir miyiz? Hücre başvurusu değilde ad şeklinde tanımlama yapabilir miyiz?

 

[Haluk]

Sub Test()
    xRow = Range("Table1").Rows(Range("Table1").Rows.Count).End(xlUp).Row
    
    MsgBox xRow
End Sub

.

 

[bafralifatih55]

Merhaba
Hocam hatalı sonuç üretiyor. Şöyle ki:
TblAidatTanımı Tablosunda E3:E4 kısmında 10, 15 şeklinde sayılar var. E2 hücresi de Aidat Tanımı şeklinde sütun başlığı.
Bu haliyle kodu çalıştırdığımda sütun başlığını, 15 sayısını sildiğimde de 10 sayısını döndürüyor.
Olması gereken ise yazdığım en son veri neyse onu bana döndürmesi. Yani son olarak 15 yazılı ise 15, 10 yazılı ise 10 döndürmesini istiyorum hocam.
Teşekkürler.

Sub AidatYaz()
Dim DataRange As Range, GecerliAidat
Set DataRange = Range("TblAidatTanımı")
GecerliAidat = Range("TblAidatTanımı").Rows(Range("TblAidatTanımı").Rows.Count).End(xlUp)

MsgBox GecerliAidat
End Sub

 

[bafralifatih55]

Merhaba
Bu soruya bir çözüm yok mu?

 

[Korhan Ayhan]

Örnek dosya paylaşarak istediğiniz işlemi tarif eder misiniz?