Formül Sonucu 0 ise Hücre gizlensin

[DeliBalta58]

Forumda boş hücrelerle igili birçok örnek var.
Peki ;
H sütununda formül ile Toplam aldırıyorum. Bazı toplamların değeri "0"

 Sayfa2.[H2:H100].SpecialCells(4).EntireRow.Hidden = 1

kodu ile uygulama yaptım ancak hücreyi dolu kabul ettiği için işe yaramadı.

Hücre boşsa ve formül sonucu "0" ise hücre gizlensin
Dosya ekte

 

[DeliBalta58]

Bu konuda yardım edebilirmisiniz?

 

[udentr2002]

aşağıdaki kodu denermisiniz

Sub gizle()
On Error Resume Next
Set s1 = Sheets("sayfa1")
For x = 2 To 100
If s1.Cells(x, 8) = "0" Then
s1.Cells(x, 8).EntireRow.Hidden = 1
End If
Next

 
 
End Sub

 

[udentr2002]

gizlenen hücreleri tekrar görebilmek içinde

Cells.Select
    Selection.EntireRow.Hidden = False

kodlarını kullanabilrsiniz

 

[DeliBalta58]

Teşekkürler.