b sutunundakei değer 0 ise satırı gizle

[vivaayew_ts]

Başlıkta açıkça belirttiğim gibi sorunum satırları ototmatik gizlemek veya göstermek

tüm ürünlerimin tanımlı olduğu liste var ve adetleri değişkenlik gösteriyor.
istediğim eğer o ürün adedi 0 ise satır gizlensin boşa kalabalık yatatmasın fakat değeri 0 iken gizledik sonra ben kendi userforumun var ordan değer ataması yaptığımda adet kısmı 0 dan farklı bir değer aldığında sütun yeniden görülür olsun.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:B" & Cells(65536, "B").End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value <> "" And Target.Value = 0 Then Target.EntireRow.Hidden = True
End Sub

Sub goster_59()
Range("B1:B65536").EntireRow.Hidden = False
End Sub

 

[vivaayew_ts]

Goster butonuna tıklayınca satırlar gorunur hale geliyor fakat geri nası gizleyebiliriz onemli olan gizli kalması