Çıktı alırken değerlerin boş kaldığı alanların otomatik gizlenmesi

[cudey]

ben muhasebe işlemleri ile ilgili bir excel hazırladım
ama alt hesaplarda boşluk kaldığı zaman göstermesin bir sonraki benim verdiğim satırdan başlayarak göstersin istiyorum ek'te gönderdiğim tablodaki gibi okların olduğu yerler boş kaldığında çıktı alırken göstermesin istiyorum ama sağ tuş gizle ile değilde formül ile olsun istiyorum. Şimdiden yardımlarınız için teşekkürler

 

[hamitcan]

ThisWorkBook kısmına ekleyin.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Rows.Hidden = False
For i = 1 To [a65536].End(3).Row
If Cells(i, 1).MergeCells Then GoTo 10
If Cells(i, 2) <> "" Then GoTo 10
Rows(i).Hidden = True
10
Next
End Sub

 

[cudey]

teşekkür ederim deneyeceğim
Emeğinize Sağlık