Son satır sayısı bulma hk

[OoParadiSeoO]

Arkadaşlar merhaba,

x = Cells(Rows.Count, "A").End(3).Row

yukarıdaki kod ile son dolu satır sayısını bulabiliyoruz. Eğer A sütunundaki tüm hücreler boş ise x 1 değerini alıyor. Fakat ben dolu hücre olmadığı için x = 0 olmasını istiyorum. Yardımcı olabilir misiniz?

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
    
    If WorksheetFunction.CountA(Range("A:A")) = 0 Then
        x = 0
    Else
        x = Cells(Rows.Count, "A").End(3).Row
    End If
    
    MsgBox x
    
End Sub

. . .

 

[OoParadiSeoO]

Hüseyin Bey teşekkürler. if komutu kullanmadan daha kısa bir çözümü varmıdır?

 

[YUSUF44]

Şöyle olur mu?

x = WorksheetFunction.CountA(Range("a:a"))