Soru Boş Olan Satırları Gizlemek

[bulentkars]

Arkadaşlar Merhaba,

C5:C12 Satırlarında Formül ile veri alıyorum.
Burada yapmak istediğim. C5:C12 Satırlarında boş olan satırları gizlemek istiyorum.
Örneğin C4,C10,C11 satırları boş ise satırları gizlemek istiyorum.

Yardımcı olabilirseniz sevinirim. Şimdiden Teşkkürler

 

[Greenblacksea53]

Sub Gizle()
  For Each t In Sheets("Sayfa1").Range("c5:c12").Cells
    If t.Value = "" Then 'boş hücreleri gizler
    t.EntireRow.Hidden = True
  End If
  Next t
End Sub

Sub Göster()
  For Each t In Sheets("Sayfa1").Range("c5:c12").Cells
    If t.Value = "" Then 'boş hücreleri gösterir
    t.EntireRow.Hidden = False
  End If
  Next t
End Sub

Modüle ekleyip çalıştırın

 

[bulentkars]

Çok Teşekkür Ederim. Elinize Sağlık