Código do MS Excel VBA para criar regras de ocultar / excluir

Question

Estou procurando ajuda com uma tarefa simples no Excel usando o VBA.

O que estou tentando realizar e me ajudaria muito em meu trabalho é criar uma regra simples que faria algo como abaixo:

For Each c In Range("Row(2))
If c.Value = 0 Then
    c.EntireColumn.Hidden = True
ElseIf c.Value = >0 Then
    c.EntireColumn.Hidden = False
End If

Meu objetivo é simplesmente fazer com que o valor zero na linha 2 torne a coluna inteira oculta quando a linha 2 dessa coluna for igual a zero.

Obrigado antecipadamente.

    

Answer 1

você pode tentar algo como o abaixo:

Sub hide()
Application.Calculation = xlManual
ActiveSheet.Cells.EntireColumn.Hidden = False

'600 represents 600 columns, adjust to suit your range
For i = 1 To 600

If InStr(Cells(2, i).Value, "0") And Columns(i).Hidden = False Then
    Columns(i).Hidden = True

End If

Next i

Application.Calculation = xlAutomatic

End Sub