Excel 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
 
 

[Midori]

@magnosalmeida  Coloque ElseIf junto, p.ex:

 

ElseIf Sheets("G1").Range("E1").Value = 2 Then

 

[magnosalmeida]

@Midori Deu certo, você é show! Obrigadoooo!!!  

[Visitante]

 

Código alternativo (não testado).

Sub GRAFICOV2()
 With Sheets("P1")
  .Shapes("GRAFSEMANA").Visible = Sheets("G1").Range("E1").Value = 1
  .Shapes("GRAFMES").Visible = Sheets("G1").Range("E1").Value = 2
  .Shapes("GRAFANO").Visible = Sheets("G1").Range("E1").Value = 3
  .Shapes("GRAFACUMULADO").Visible = Sheets("G1").Range("E1").Value = 4
 End With
End Sub

 

[magnosalmeida]

@osvaldomp também deu certo. Fiquei feliz. Vou usar esse código por ser mais simples! Obrigado por me ajudar, mano. 

[Patropi]

@magnosalmeida

 

Como as respostas foram úteis faltou você clicar em Curtir nas respostas da Midori e do Osvaldo.

Como a dúvida foi sanada, faltou você marcar o tópico como Resolvido.(Na minha assinatura tem um link para um instrução.

 

Precisando, volte a postar no fórum.

 

[]s

[magnosalmeida]

21 horas atrás, Patropi disse:

@magnosalmeida

 

Como as respostas foram úteis faltou você clicar em Curtir nas respostas da Midori e do Osvaldo.

Como a dúvida foi sanada, faltou você marcar o tópico como Resolvido.(Na minha assinatura tem um link para um instrução.

 

Precisando, volte a postar no fórum.

 

[]s

@Patropi MUITO OBRIGADO pela dica! Sou novo por aqui e estou aprendendo a interagir. Abração!