Sayfadaki Son dolu satırı Bul Yazdır

[Mikdad]

Selamun Aleykum Dostlarım,
B sutunundaki son dolu hücreyi bulup a-h sutunlarını yazdırma için ön izlemeye almak istiyorum. bu konuda yardımcı olur musunuz?

 

[YUSUF44]

Deneyiniz:

Sub bak()
son = Cells(Rows.Count, "B").End(3).Row
Range("A1:H" & son).PrintPreview
End Sub

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Range("Sayfa1!A1:h" & [Sayfa1!b65536].End(3).Row).PrintPreview

 

[Mikdad]

Yusuf44 ve SeyitTiken Hocalarım. Rabbim razı Olsun. Sorunsuz Çalıştı