En son dolu hücreye kadar nasıl yazdırabilirim?

[pitsss]

Arkadaşlar ekteki dosyada, faturarapor sayfasında veriler var. ben bu verileri userform aracılığyla değiştiriyorum ve bunları yazdırmak istiyorum. ancak nasıl yapabilirim.
Yani , sunfire iki satırdan oluşuyor. ben yazdır deyince en son dolu olan hücreye kadar yazdırsın.

mesela başkabir marka yazdığında ise onun da 10 tane dolu hücresi olduğunu düşünelim.
onu da en son dolu hücresine kadar seçip yazdırsın bunu macro nasıl yapabilirim.?

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodu kullanabilirsiniz.

Sub Yazdirma_Alani_Belirle()
Dim sh As Worksheet
Dim sonsatir As Long
Set sh = Sheets("faturarapor")
sonsatir = sh.Cells(65536, 1).End(xlUp).Row
sh.PageSetup.PrintArea = "$A$3:$F$" & sonsatir
Set sh = Nothing
End Sub

 

[pitsss]

Merhabalar

Aşağıdaki kodu kullanabilirsiniz.

Sub Yazdirma_Alani_Belirle()
Dim sh As Worksheet
Dim sonsatir As Long
Set sh = Sheets("faturarapor")
sonsatir = sh.Cells(65536, 1).End(xlUp).Row
sh.PageSetup.PrintArea = "$A$3:$F$" & sonsatir
Set sh = Nothing
End Sub

Cevabınız için çok teşekkür ederim.
tam istediğim gibi oldu.sağolun.

 

[baydeniro]

Paylaşım İçin Teşekkürler

Sayın fpc paylaşım için teşekkürler. Benim de uzun zamandır aradığım bir koddu. Elleriniz dert görmesin.