código do VBA auto ocultar / mostrar continuamente

Question

Eu preciso ocultar / mostrar as linhas conforme os valores são atualizados. No momento, meu código será ocultado automaticamente quando o valor se tornar zero, mas, se eu inserir um valor, ele não será exibido automaticamente.

Private Sub Worksheet_Calculate()
    Dim LastRow As Long, c As Range

    Application.EnableEvents = False
    On Error Resume Next
    For Each c In Range("F10:F56")
        If c.Value = 0 Then
            c.EntireRow.Hidden = True
        ElseIf c.Value = 1 Then
            c.EntireRow.Hidden = False
        End If
    Next
    On Error GoTo 0
    Application.EnableEvents = True
End Sub

    

Answer 1

Eu tentaria mudar

ElseIf c.Value = 1 Then

para

ElseIf c.Value <> 0 Then

No momento, ele está verificando especificamente as células que contêm 0 no primeiro caso, ou 1 no elseif, e eu suponho que você queira que ele se esconda em 0 e mostre tudo que não seja zero