Seçili Alanın ilk ve son satır numarası

[canercan02]

Seçili alanın
İlk satır numarası ve son satır numarasını bulmam gerekiyor
örneğin seçtiğim alan b15:b50 ile

x1=15 ve x2=50 yazdırmam gerekiyor

Sub goster()
x1 = ActiveCell.Row 'ilk satır numarası
x2= 'son satır numarasını bulmam için buraya ne yazacağım bilmiyorum
MsgBox x1
MsgBox x2
End Sub

yardımcı olursanız sevinirim. Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Sub Test()
    MsgBox "İlk satır : " & Selection.Row & Chr(10) & _
           "Son satır : " & Selection.Rows.Count + Selection.Row - 1
End Sub

 

[alicimri]

Eğer seçim, ayrık hücre ve alanlardan yapılmış olması durumunda, aşağıdaki kod kullanıla bilinir.

Sub test()
     adres = Replace(Replace(Selection.Address, ":", ""), ",", "")
adres = Split(adres, "$")
say = 0
  Set cc = CreateObject("System.Collections.ArrayList")
For i = 0 To UBound(adres)
If IsNumeric(adres(i)) Then
            If Not cc.Contains(say) Then cc.Add adres(i) * 1
      say = say + 1
End If
Next
 cc.Sort
         MsgBox "İlk satır : " & cc.Item(0) & Chr(10) & _
           "Son satır : " & cc.Item(cc.Count - 1)
End Sub