Seçili alanın son satır numarasını bulma

[heft]

Merhaba
Konu başlığından da anlayacağınız üzere, seçtiğim alanın son satır numarasını bulmak istiyorum.

Örn,
A2:K22 secildiyse 22
B17:T142 secildiyse 142 yi bulmak istiyorum.

Nasıl yapabilirim?

 

[Erdem Akdemir]

Sub deneme()

son = Selection.Row + UBound(Selection.Value2) - 1

End Sub

 

[heft]

Teşekkür ederim

 

[Korhan Ayhan]

Bu da alternatif olsun;

Option Explicit

Sub Test()
    Dim Satir_No As Variant
    
    With Selection
        Satir_No = Split(.Address, "$")
        If .Rows.Count = Rows.Count Then
            MsgBox Rows.Count
        Else
            MsgBox Satir_No(UBound(Satir_No))
        End If
    End With
End Sub