VBA Worksheet_Change, как скрыть строки, в которых есть определенное значение

Question

Ребята, Вы можете помочь мне с моей проблемой. Что мне нужно сделать, это сделать код, который будет скрывать всю строку, если, например, значение в B10 будет = 100.

Заранее спасибо

Answer 1

Я думаю, что решил свою проблему. Использовал это (не уверен, если есть что-нибудь ненужное):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, c As Range

Application.ScreenUpdating = False
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
On Error Resume Next
For Each c In Range("B1:B" & LastRow) 
   If c.Value = 100 Then
        c.EntireRow.Hidden = True
    ElseIf c.Value <> 100 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Answer 2

Попробуйте что-то вроде этого

If Range("B10").Value = 100 Then
Range("B10").EntireRow.Hidden = True
End If