Ágatha Rebouças

Boa tarde! Fiz uma caixa de combinação para selecionar tipos de gráficos. O objetivo é um gráfico sobrepor o outro a medida que é selecionada a opção na caixa de combinação. Porém o vba está dando errado. Acredito ser algum erro abaixo, alguém consegue me ajudar? O vinculo da célula da caixa de combinação está em aba diferente dos gráficos. Sub GRAFICO() If Sheets("Consolidado").Range("O14").Value = 1 Then Sheets("DASH_VOLUME").Shapes("GRAF_CX").Visible = True Sheets("DASH_VOLUME").Shapes("GRAF_PED").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_LT").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_NIV").Visible = False Else If Sheets("Consolidado").Range("O14").Value = 2 Then Sheets("DASH_VOLUME").Shapes("GRAF_CX").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_PED").Visible = True Sheets("DASH_VOLUME").Shapes("GRAF_LT").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_NIV").Visible = False Else If Sheets("Consolidado").Range("O14").Value = 3 Then Sheets("DASH_VOLUME").Shapes("GRAF_CX").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_PED").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_LT").Visible = True Sheets("DASH_VOLUME").Shapes("GRAF_NIV").Visible = False Else Sheets("DASH_VOLUME").Shapes("GRAF_CX").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_PED").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_LT").Visible = False Sheets("DASH_VOLUME").Shapes("GRAF_NIV").Visible = True End If End Sub adicionado 13 minutos depois

Boa noite! Procuro professor (a) que dê aulas particulares de Excel. Preciso de alguém para me ensinar de acordo com dúvidas e dificuldades que vão surgindo, não quero fazer aula pronta pela internet. Obrigada!