Koşullu Satır Gizleme/Gösterme

[oguzde]

merhaba
yaptığım tabloyla alakalı yardıma ihtiyacım var. sorunu forumda aramama rağmen bulamadım
eğer satırda B sütunundaki B2 ve sonraki B değerleri sıfır ise o satırı gizlemek değilse göstermek istiyorum. Bunu E sütununa her değer girişimde herhangi bir tuşa basmadan otomatik olarak yapabilmem mümkünse yardımlarınızı bekliyorum. şimdiden teşekkürler.

 

[BAZGİRET]

Sayfanın kod kısmına yapıştırıp deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2:E100")) Is Nothing Then Exit Sub
If Cells(Target.Row, 2).Value = 0 Then
Cells(Target.Row, 2).EntireRow.Hidden = True
Else
Cells(Target.Row, 2).EntireRow.Hidden = False
End If

End Sub

 

[oguzde]

Hocam kodu yazınca sadece B sütunundaki hucreyle aynı satırda tek tek değişiklik yaparsam gizliyor. Yukarıda belirtmeyi unutmuşum ancak E sütununa toplu olarak değer giriyorum(mesela E1 den E200 e kadar) burdaki degerlere göre B sutunundaki değerler değişiyor. Bu şekilde nasıl ayarlayabilirim acaba? Teşekkürler şimdiden

 

[BAZGİRET]

Kodu bu şekilde değiştirin

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E2:E200")) Is Nothing Then Exit Sub
For i = 2 To Range("E104000").End(xlUp).Row
If Cells(i, 2).Value = 0 Then
Cells(i, 2).EntireRow.Hidden = True
Else
Cells(i, 2).EntireRow.Hidden = False
End If
Next i
End Sub