Excell tabloda son dolu hücre.

[vardar07]

Merhaba. Arkadaşlar normal olarak aşağıdaki yöntemle son dolu satırı buluyoruz ancak tabloda tablo sonunu veriyor. Resimdeki örnekte 15.nci satır çıkıyor normalde 5 çıkması lazım. Bunu nasıl aşacağız.

son = mv.Range("A" & Rows.Count).End(3).Row + 1

 

[Orion1]

A sütununda veriler arasında boşluk bırakmayın.

sonsat = WorksheetFunction.CountA(Range("A3:A" & Rows.Count)) + 2
MsgBox sonsat

 

[vardar07]

A sütununda veriler arasında boşluk bırakmayın.

Çok teşekkürler. Neden normal yoldan alamıyoruz bilginiz varsa paylaşabilir misiniz?

 

[Orion1]

Çok teşekkürler. Neden normal yoldan alamıyoruz bilginiz varsa paylaşabilir misiniz?

Buda normal yoldur.
Diğer komutta çizgileri dolu sayıyor.

 

[vardar07]

Anlaşıldı.Tekrar teşekkürler.Kolay gelsin.

 

[Ömer BARAN]

Merhaba.

Mutlaka başka bir yöntemi vardır ama; tanımlı tablonun son satır numarasından hareket edilebilir.
.

If mv.Range("A" & [COLOR="blue"]mv.ListObjects("Tablo2").Range.Rows.Count[/COLOR]) = "" Then
    son = mv.Range("A" & [COLOR="Blue"]mv.ListObjects("Tablo2").Range.Rows.Count[/COLOR]).End(3).Row + 1
Else
    son = mv.Range("A" & Rows.Count).End(3).Row + 1
End If

 

[Korhan Ayhan]

Alternatif;

Sub TEST()
    Son = Cells.Find("*", LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    MsgBox Son
End Sub

 

[vardar07]

Merhaba.
Mutlaka başka bir yöntemi vardır ama; tanımlı tablonun son satır numarasından hareket edilebilir.

Ömer Bey tablo tanımlı değil. Ama bundan sonrası güzel bir örnek olur. Teşekkürler.

Alternatif;

Korhan Bey alternatif için teşekkürler. Fazla alternatif den zarar gelmez.