Otamatik satır gizleme

[kutman]

R1 den r800 kadar olan hücrelerin değeri 1 olursa satırlar otamtikmen gizlensin istiyorum lütfen yardım edin ama menüel olarak gircem misal s10 r10 eşitleyip s10 değer 1girecem r10 1 ve o satırla gizlenecek

 

[İhsan Tank]

R1 den r800 kadar olan hücrelerin değeri 1 olursa satırlar otamtikmen gizlensin istiyorum lütfen yardım edin ama menüel olarak gircem misal s10 r10 eşitleyip s10 değer 1girecem r10 1 ve o satırla gizlenecek

merhaba
sayfanın kod bölümüne kopyalayın ve deneyin

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("R1:R800")) Is Nothing Then Exit Sub
If Target = 1 Then
Range("R" & Target.Row).EntireRow.Hidden = True
Else
Range("R" & Target.Row).EntireRow.Hidden = False
End If
End Sub