range(tablo).address deki satır sayısını nasıl bulurum.

[nozben]

tablo_sayısı = ActiveWorkbook.Names.Count

For i = 1 To tablo_sayısı
tablo = ActiveWorkbook.Names(i).Name
If tablo_adı = tablo Then

adres = Range(tablo).Address
GoTo bicim

End If

Next i
bicim:
Sheets("Bütçe Gerçekleşme").Select
Range(adres).Select
Selection.Copy
Sheets("Anadosya").Select
Range(adres).Select *******

On Error Resume Next
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False


*****(sorun burada bu adrese göre satır sayısını öğrenip herzaman C7 hücresinden başlamasını sağlamak)

yardımlarınızı bekliyorum. Şuana kadar çok yarımcı olundu herkese teşekkürler..

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Range(tablo).rows.count

 

[nozben]

çok sağol, bazen insanın gözüne giriyor fakat göremiyor işte