MyRange değişkenindeki satır ve sütun sayısı?

[hsayar]

Sub AktarTopla2()
Dim arrErim() As Variant
Dim b, i, n, sat, veri()

Dim buKtp       As Workbook:        Set buKtp = ThisWorkbook
Dim Syf_T       As Worksheet:       Set s1 = buKtp.Worksheets("Sayfa1")
Dim myRange     As Range:         [B][color="red"]  Set myRange = s1.Range ("a2:b7") [/color][/B]    

arrErim = myRange.Value 'Veri aralığını a değişkenine ata

MsgBox arrErim(1, 1)

Erase arrErim
Set s1 = Nothing
Set s2 = Nothing
End Sub

Set myRange = s1.Range ("a2:b7")

dizisindeki sütun sayısı 2 ve satır sayısı 6 dır bunu kod içinde tesbit etmenin olanğı varmıdır?

 

[Recep İpek]

kols = myRange.Columns.Count
sats = myRange.Rows.Count
 
MsgBox kols & " " & sats

kodlarını kullanabilirsiniz.

 

[hsayar]

teşekkürler hocam.