Erro 424 no Excel (VBA)

Question

Alguém consegue resolver o erro do meu código? não entendo porque não funciona

queria que cada caixa de seleção selecionada pudesse mostrar as colunas referidas ao calendário que eu criei, então comecei por janeiro mas diz que não há um "objeto" atribuído

Sub Jan()

If ControleAnual.Range("A19") = "VERDADEIRO" Then

Columns("F:AJ").Select

Selection.EntireColumn.Hidden = False

End If

If ControleAnual.Range("A19") = "FALSO" Then

Columns("F:AJ").Select 

Selection.EntireColumn.Hidden = True

End If

End Sub

Também já tentei

Sub JANE()

If Range("A19").Value = "VERDADEIRO" Then 

Columns("F:AJ").Hidden = True 

Else 

Columns("F:AJ").Hidden = False 

End If 

End Sub

Answer 1

Olá, Danielle.

Ao depurar seu código percebi que você não declarou a variável ControleAnual e a instancio como um tipo de dado range. Quando o VBA executa essa linha de código não pode achar esse objeto porque não há nenhum objeto com esse nome. (esse objeto não está na hierarquia de objetos do VBA) ele mostra o erro 424

Alterei seu código para o seguinte:

Declarei a variável ControleAnual como uma String pois ela irá armazenar um Texto contendo as palavras Verdadeiro ou falso

Depois foi feito um teste lógico se o valor que tiver na célula A19 for verdadeiro o código irá ocultar as células F:AJ. Se o valor for falso irá reexibir as células de F:AJ

Sub JanOcultar()

    Planilha1.Activate

    Dim ControleAnual As String

    ControleAnual = Range("A19").Value2

    If ControleAnual = "Verdadeiro" Then

        Range("F:AJ").Select

        Selection.EntireColumn.Hidden = True

    End If

End Sub

Sub JanReexibir()

    Planilha1.Activate

    Dim ControleAnual As String

    ControleAnual = Range("A19").Value2

    If ControleAnual = "Falso" Then

        Range("F:AJ").Select

        Selection.EntireColumn.Hidden = False

    End If

End Sub

Espero ter ajudado. Qualquer dúvida estou à disposição.