Boş Satırları Gizleyip Çıktı Almak

[oguzka]

Merhabalar;

Ekteki dosyada b4:h505 aralığının çıktısını almak istiyorum ancak boş satırlar çıktıda olmamalıdır. Yardımcı olabilirmisiniz?

 

[Metin Karaağaç]

Aşağıdaki kodları dener misiniz?

Sub yazdir()
    Range("B4:H4").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$4:$H$505").AutoFilter Field:=5, Criteria1:="<>"
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    Selection.AutoFilter
    ActiveWindow.SmallScroll Down:=-12
End Sub

 

[oguzka]

Metin Bey çok teşekkür ederim.