Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 10 And Target.Value = 0) Then
Target.Rows.Hidden = True
End If
End Sub
li = Cells(36000, 1).End(xlUp).Row
For i = 4 To li
If Range("j" & i) = 0 And Range("B" & i) >= 1 Then
Rows(i).Hidden = True
Else
Rows(i).Hidden = False
End If
Next
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 10) Then
Target.Rows.Hidden = cbool(Trget.Value)
End If
End Sub