dolu hücrelerin şartlı yazdırılması

[yıldız57]

iyi akşamlar üstadlarım. ekteki dosyada sayfa 1 den verileri formül yardımı ile sayfa 2 ye alıyorum. fakat sayfa 2 de kaç sayfa dolu ise bu sayfaları yazdırmam lazım, sorun şu sayfa 2 deki gizli formülleri ve alt bilgi ve üst bilgileri makronun görmemesi, yani isimler olan hüreleri yazdırmak istiyorum. dolu hücreleri yazdır makrosu tüm hücreleri tanıdığından yapamadım yardım eden arkadaşlara şimdiden teşekkür ederim.

 

[asi_kral]

iyi akşamlar üstadlarım. ekteki dosyada sayfa 1 den verileri formül yardımı ile sayfa 2 ye alıyorum. fakat sayfa 2 de kaç sayfa dolu ise bu sayfaları yazdırmam lazım, sorun şu sayfa 2 deki gizli formülleri ve alt bilgi ve üst bilgileri makronun görmemesi, yani isimler olan hüreleri yazdırmak istiyorum. dolu hücreleri yazdır makrosu tüm hücreleri tanıdığından yapamadım yardım eden arkadaşlara şimdiden teşekkür ederim.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub Dolu_Yazdır_1967()
'Konu       :   Dolu Hücreleri Yazdır
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
Dim asi As Long
For asi = 3 To Range("A" & Rows.Count).End(xlUp).Row
If Cells(asi, "A") = " " And Cells(asi - 1, "A") = " " Then
ActiveSheet.PageSetup.PrintArea = "A1:C" & asi - 2
Sheets("SAYFA2").PrintOut
Exit For
End If
Next
End Sub

 

[yıldız57]

asi kral 1967 üstadım çok teşekkür ederim gerçekten harika olmuş ellerine sağlık

 

[asi_kral]

asi kral 1967 üstadım çok teşekkür ederim gerçekten harika olmuş ellerine sağlık

Kolay Gelsin.