Sayfanın son satırını bulmak

[tamer42]

Ekli dosyada mevcut sayfa yapısına göre;
1. sayfanın son satırını nasıl bulabiliriz,
Print edildiği zaman sayfanın son satır numarasını hangisi olur? bunu nasıl öğrenebiliriz?

teşekkürler,
iyi Çalışmalar.

 

[Tevfik_Kursun]

Merhaba Arkadaşım,
inceleyiniz

    Dim SonStr As Long
    SonStr = Cells(Rows.Count, "A").End(3).Row

 

[tamer42]

Merhaba Arkadaşım,
inceleyiniz

    Dim SonStr As Long
    SonStr = Cells(Rows.Count, "A").End(3).Row

bu kod dolu satırları bulmuyor muydu? boş satırlar var.

 

[Tevfik_Kursun]

Sütundaki son dolu hücreyi bulur
iyi çalışmalar

 

[uzmanamele]

Merhaba
Sayfa sonlarını mı? Yazdırma alanını mı? öğrenmek istiyorsunuz?

ActiveSheet.HPageBreaks(1).Location.Address

 

[tamer42]

Merhaba
Sayfa sonlarını mı? Yazdırma alanını mı? öğrenmek istiyorsunuz?

ActiveSheet.HPageBreaks(1).Location.Address

Hocam teşekkürler,
Sayfa sonları öğrenmek istiyordum.
ekli dosyada hata mesajı veriyor, neden olabilir?
iyi çalışmalar.

 

[dost]

Merhaba

lRow = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[Korhan Ayhan]

Ben bu şekilde anladım...

Sub FindPageBreaks()
    MsgBox Split(Sayfa3.PageSetup.PrintArea, "$")(4)
End Sub