Soru Dolu hücreleri yazdırma

[NADİR YILDIZ]

Ekli dosyamda kırmızı alan ve alt satırlarda formüller var.
yazdır makrosu ekledim ancak kırmızılı alanın altındaki formüllü olan alanlarıda yazdırıyor.
ben sadece dolu olan alanları yazdırabilmem için makroda ne gibi değişiklik yapmam gerekiyor

iyi çalışmalar

 

[Korhan Ayhan]

Filtre ile boş satırları gizleme metodunu kullandım.

Deneyiniz.

Private Sub CommandButton3_Click()
    Son = Cells(Rows.Count, "K").End(3).Row
    ActiveSheet.Range("$A$2:$P$" & Son).AutoFilter Field:=11, Criteria1:="<>"
    ActiveSheet.PageSetup.PrintArea = "$K$3:$P$" & Son
    ActiveSheet.PrintOut
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
End Sub

 

[NADİR YILDIZ]

Korhan bey teşekkür ederim

iyi çalışmalar