Sayfa daki satir sayilarini bulmak

[falkan]

Merhaba Arkadaslar,

Excel dosyasinda 2500 satirlik bilgi var ve 113 sayfa. Her sayfadaki satir sayisi farkli. Her sayfanin satir sayisini nasil bulabilirim veya bu konuda yapilmis bi ornek var mi? Bilen arkadaslarin ilgilenmesi temennilerimle,

Saygi ve Sevgiler

Falkan

 

[uzmanamele]

merhaba

1. sayfa olarak yeni bir sayfa ekleyin ve bu kodları çalıştırarak deneyiniz.

Sub satırsay()
For i = 2 To Worksheets.Count
Cells(i, 1) = Sheets(i).Range("a65536").End(3).Row
Next
End Sub

 

[Orion1]

Satır sayısı hangi sütuna bakarak tayin edilecek?A'mı,B'mi hangi sütun?

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kodlama isteğinizi karşılayacaktır. Ayrıca aşağıdaki kodun işlediği birde dosya ekliyorum.

Sub sayfasayisi()
Application.ScreenUpdating = False
ActiveWindow.View = 2
say = ActiveSheet.HPageBreaks.Count
For a = 1 To say
sat = ActiveSheet.HPageBreaks.Item(a).Location.Row - 1
toplam = sat - ilk
ilk = sat
yaz = yaz & isaret & a & ".sayfa " & toplam & " satırdır."
isaret = Chr(10)
Next
If [a65536].End(3).Row > sat Then
MsgBox yaz & Chr(10) & say + 1 & ".sayfa " & [a65536].End(3).Row - sat & " satırdır."
Else
MsgBox yaz
End If
ActiveWindow.View = 1
End Sub