Print yaptığı kaydın satır adedi hk..

[search77]

Merhaba Arkadaşlar,
Aşağıdaki macro A hücresini filitre yaparak print almamızı sağlıyor, buraya print alırken kaç satır print alıyor ise onuda sayfada herhangi bir yerde belirtsin istiyoruz. Yani A1 hücresinde filitre yapıp 3 satır kayıt var ise 3 yazsın 5 satır kayıt var ise 5 yazsın çıktıya.Bunu nasıl yapabilirim. yardım rica ederim.
Teşekkürler.


Sub cikti_59()
Dim sat As Long, i As Long
Range("A1").AutoFilter
sat = Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
Application.ScreenUpdating = False
For i = 2 To sat
If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
Range("A1").AutoFilter field:=1, Criteria1:=Cells(i, "A").Value
ActiveSheet.PageSetup.PrintArea = "A1:E" & sat
ActiveSheet.PrintOut
Range("A1").AutoFilter
End If
Next
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır" & vbLf & "KOLAY GELSİN", vbOKOnly + vbInformation, "YAZDIRMA"
End Sub

 

[askm]

Örnek dosya eklerseniz daha anlaşılır olacaktır. Kodlara göre sayfa tasarlamak zorunda kalınmaz.

 

[askm]

ALTTOPLAM(2;A:A) formülü ya da

deger=0
for k=1 to Sat
if Cells(i, "A").Value=cells(k,"A") then
deger=deger+1
next k

şeklinde döngü ile de yapabilirsiniz.
Tabi örnek olursa daha kesin çözüm olabilir.