Visual Basic Erro - Bloco If sem End IF

[magnosalmeida]

Criei a macro abaixo no excel porém ela dá o seguinte erro de compilação: "Bloco If sem End IF".

A proposta da macro é: quando aparecer...

- o valor "1" na aba G1, chamar o "GRAFSEMANA";

- o valor "2", chamar o "GRAFMES";

- o valor "3", chamar o "GRAFANO";

- o valor "4", chamar o "GRAFACUMULADO".

 

Alguém consegue me ajudar?

 

Sub GRAFICO()

If Sheets("G1").Range("E1").Value = 1 Then
Sheets("P1").Shapes("GRAFSEMANA").Visible = True
Sheets("P1").Shapes("GRAFMES").Visible = False
Sheets("P1").Shapes("GRAFANO").Visible = False
Sheets("P1").Shapes("GRAFACUMULADO").Visible = False
Else
If Sheets("G1").Range("E1").Value = 2 Then
Sheets("P1").Shapes("GRAFSEMANA").Visible = False
Sheets("P1").Shapes("GRAFMES").Visible = True
Sheets("P1").Shapes("GRAFANO").Visible = False
Sheets("P1").Shapes("GRAFACUMULADO").Visible = False
Else
If Sheets("G1").Range("E1").Value = 3 Then
Sheets("P1").Shapes("GRAFSEMANA").Visible = False
Sheets("P1").Shapes("GRAFMES").Visible = False
Sheets("P1").Shapes("GRAFANO").Visible = True
Sheets("P1").Shapes("GRAFACUMULADO").Visible = False
Else
If Sheets("G1").Range("E1").Value = 4 Then
Sheets("P1").Shapes("GRAFSEMANA").Visible = False
Sheets("P1").Shapes("GRAFMES").Visible = False
Sheets("P1").Shapes("GRAFANO").Visible = False
Sheets("P1").Shapes("GRAFACUMULADO").Visible = True
End If

End Sub

 

[Jahezer Franciz Capelari]

@magnosalmeida Bom dia!

Tente dessa forma, veja se da certo:

Sub GRAFICO()
    If Sheets("G1").Range("E1").Value = 1 Then
        Sheets("P1").Shapes("GRAFSEMANA").Visible = True
        Sheets("P1").Shapes("GRAFMES").Visible = False
        Sheets("P1").Shapes("GRAFANO").Visible = False
        Sheets("P1").Shapes("GRAFACUMULADO").Visible = False
        
    ElseIf Sheets("G1").Range("E1").Value = 2 Then
        Sheets("P1").Shapes("GRAFSEMANA").Visible = False
        Sheets("P1").Shapes("GRAFMES").Visible = True
        Sheets("P1").Shapes("GRAFANO").Visible = False
        Sheets("P1").Shapes("GRAFACUMULADO").Visible = False
        
    ElseIf Sheets("G1").Range("E1").Value = 3 Then
        Sheets("P1").Shapes("GRAFSEMANA").Visible = False
        Sheets("P1").Shapes("GRAFMES").Visible = False
        Sheets("P1").Shapes("GRAFANO").Visible = True
        Sheets("P1").Shapes("GRAFACUMULADO").Visible = False
        
    ElseIf Sheets("G1").Range("E1").Value = 4 Then
        Sheets("P1").Shapes("GRAFSEMANA").Visible = False
        Sheets("P1").Shapes("GRAFMES").Visible = False
        Sheets("P1").Shapes("GRAFANO").Visible = False
        Sheets("P1").Shapes("GRAFACUMULADO").Visible = True
    End If
End Sub