Sütundaki hücrelerden değeri "0" olanları gizl

[Korhan Ayhan]

Selam arkadaşlar,

Forumda arama yaptım ve aşağıdaki kodları buldum ve kendime göre uyarladım fakat istediğim sonuca ulaşamadım. Çünkü benim gizlemek istediğim sütundaki veriler arasında boş satırlar var bunlar problem yaratıyor. Kodda nasıl bir değişiklik gerekiyor.

Sub GİZLE()
For Each i In Range("P165536").Cells
If i.Value = 0 Then
i.EntireRow.Hidden = True
End If
Next i
End Sub

Sub GÃ?STER()
For Each i In Range("P165536").Cells
If i.Value = 0 Then
i.EntireRow.Hidden = False
End If
Next i
End Sub

İyi çalışmalar dilerim. :hey:

 

[zafer]

Merhaba

Satırını değiştirin
If i.Value = 0 And i.Value <> "" Then

Saygılarımla

 

[Korhan Ayhan]

Teşekkürler...