Professor meu Loop não tá funcionando, verifica por favor se errei alguma linha de código ou algo do tipo, pois quando eu mudo na ComboBox o Gráfico não atualiza. Segue linha de código Private Sub ComboBox1_Change() On Error GoTo Erro Dim PlanGrafico, Titulo, AreaDados, AreaRotulo As String PlanGrafico = Planilha2.Name Dim Grafico As Chart Set Grafico = Sheets(PlanGrafico).ChartObjects("Gráfico 1").Chart Dim Linha As Double Linha = 4 With Planilha1 Do
Linha = Linha + 1
Loop Until .Cells(Linha, 2).Value = "" End With Linha = Linha - 1 If ComboBox1.Value = "QTD" Then
Titulo = Planilha1.Range("C4").Value AreaRotulo = "=" & Planilha1.Name & "!" & Planilha1.Range("B5:B" & Linha).Address AreaDados = "=" & Planilha1.Name & "!" & Planilha1.Range("C5:C" & Linha).Address With Grafico .HasTitle = True .ChartTitle.Text = Titulo .SeriesCollection(1).XValues = AreaRotulo .SeriesCollection(1).XValues = AreaDados End With
End If
If ComboBox1.Value = "VALOR" Then Titulo = "VALOR" AreaRotulo = "=" & Planilha1.Name & "!" & Planilha1.Range("B5:B" & Linha).Address AreaDados = "=" & Planilha1.Name & "!" & Planilha1.Range("D5:D" & Linha).Address With Grafico .HasTitle = True .ChartTitle.Text = Titulo .SeriesCollection(1).XValues = AreaRotulo .SeriesCollection(1).XValues = AreaDados End With
End If Call Carregar_Gráfico Exit Sub: Erro: MsgBox "Erro", vbCritical, "ERRO" End Sub
Muito bom. Parabéns.
Obrigado 👍
Professor meu Loop não tá funcionando, verifica por favor se errei alguma linha de código ou algo do tipo, pois quando eu mudo na ComboBox o Gráfico não atualiza.
Segue linha de código
Private Sub ComboBox1_Change()
On Error GoTo Erro
Dim PlanGrafico, Titulo, AreaDados, AreaRotulo As String
PlanGrafico = Planilha2.Name
Dim Grafico As Chart
Set Grafico = Sheets(PlanGrafico).ChartObjects("Gráfico 1").Chart
Dim Linha As Double
Linha = 4
With Planilha1
Do
Linha = Linha + 1
Loop Until .Cells(Linha, 2).Value = ""
End With
Linha = Linha - 1
If ComboBox1.Value = "QTD" Then
Titulo = Planilha1.Range("C4").Value
AreaRotulo = "=" & Planilha1.Name & "!" & Planilha1.Range("B5:B" & Linha).Address
AreaDados = "=" & Planilha1.Name & "!" & Planilha1.Range("C5:C" & Linha).Address
With Grafico
.HasTitle = True
.ChartTitle.Text = Titulo
.SeriesCollection(1).XValues = AreaRotulo
.SeriesCollection(1).XValues = AreaDados
End With
End If
If ComboBox1.Value = "VALOR" Then
Titulo = "VALOR"
AreaRotulo = "=" & Planilha1.Name & "!" & Planilha1.Range("B5:B" & Linha).Address
AreaDados = "=" & Planilha1.Name & "!" & Planilha1.Range("D5:D" & Linha).Address
With Grafico
.HasTitle = True
.ChartTitle.Text = Titulo
.SeriesCollection(1).XValues = AreaRotulo
.SeriesCollection(1).XValues = AreaDados
End With
End If
Call Carregar_Gráfico
Exit Sub:
Erro:
MsgBox "Erro", vbCritical, "ERRO"
End Sub
Boa noite, deixe seu e-mail que envio a planilha para que possa comparar.
@@CanalSGP joaootavioadm@gmail.com
@@CanalSGP te agradeço professor, assim que eu comparar volto aqui
Bom dia, planilha enviada.
@@CanalSGP Bom dia! Já rodei o código todo e não conseguir localizar, eu respondi o seu e-mail com a Planilha que eu fiz, poderia verificar por favor?