vba formül sonucu değer ise yazdırma alanı seçilsin

[catalinastrap]

Merhaba Arkadaşlar

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(65536, 9).End(xlUp)).Address

bu kodu kullandığımda sayfada formül olan ama formül sonucu boş olan sayfalarıda yazdırma alanı olarak belirliyor.

sizden ricam formül sonucu boş ise seçmesin yani, son dolu hücreden sonrasını almasın


teşekkür ederim

 

[catalinastrap]

dosya ektedir

birde son sayfa için tüm sütun toplamları lazım (sonuc) sayfasında

 

[catalinastrap]

dosyayı ekleyememişim pardon

 

[catalinastrap]

yardımcı olabilirmisiniz ?

 

[catalinastrap]

kimse yok mu !

 

[catalinastrap]

lütfen yardım arkadaşlar

 

[Emir Hüseyin Çoban]

. . .

hh = WorksheetFunction.Count(Sheets("SONUC").Range("ı18:ı700")) + 17
ActiveSheet.PageSetup.PrintArea = "A1:I" & hh

. . .

 

[catalinastrap]

teşekkürler

. . .

hh = WorksheetFunction.Count(Sheets("SONUC").Range("ı18:ı700")) + 17
ActiveSheet.PageSetup.PrintArea = "A1:I" & hh

. . .

Ellerinize sağlık hocam çok teşekkür ederim.
birde son sayfada bütün sütunların toplamını aldırabilirmiyim acaba

tekrardan teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

Son sayfa dediğiniz SONUC sayfası mı ?
Toplam aldırabiliriz ancak o alanlarda formül olduğu için biraz uğraştırır.
Yazıcıdan çıktı alırken satır gizle ile birşeyler yapılabilir.

. . .

 

[catalinastrap]

Merhaba Hocam,
alt bilgi içine toplam aldırılabilirmi ?

 

[Emir Hüseyin Çoban]

. . .

Ekteki dosyayı inceleyiniz.

. . .

 

[catalinastrap]

ellerinize sağlık,çok çok çok teşekkür ederim hocam
saygılar