- 10 Abr 2017 às 22:55
#22197
Boa noite pessoal!
Estou com um problema e não estou conseguindo solucionar.
Tenho uma planilha que faz alguns eventos em macro, a partir da seleção de um botão.
Em determinado momento, uma macro solicita ao usuário a seleção de dois intervalos (esses intervalos não são de colunas vizinhas) e a partir desta seleção, é gerado um gráfico.
O gráfico gerado é formado por duas linhas, sendo o x um número sequencia, a partir do "0" e o y o intervalo selecionado, assim como na segunda linha.
O que eu preciso é que a sequencia x seja os valores do intervalo 1 e os valores de y sejam os valores do intervalo y, criando assim 1 única linha.
Alguém teria alguma sugestão?
O código está assim
Thiago
Estou com um problema e não estou conseguindo solucionar.
Tenho uma planilha que faz alguns eventos em macro, a partir da seleção de um botão.
Em determinado momento, uma macro solicita ao usuário a seleção de dois intervalos (esses intervalos não são de colunas vizinhas) e a partir desta seleção, é gerado um gráfico.
O gráfico gerado é formado por duas linhas, sendo o x um número sequencia, a partir do "0" e o y o intervalo selecionado, assim como na segunda linha.
O que eu preciso é que a sequencia x seja os valores do intervalo 1 e os valores de y sejam os valores do intervalo y, criando assim 1 única linha.
Alguém teria alguma sugestão?
O código está assim
Código: Selecionar todos
Obrigado Set Rng = Application.InputBox(prompt:="Entrar Com Um Intervalo entre as colunas H e L:", Type:=8)
If Rng Is Nothing Then
MsgBox "Nenhum Intervalo Selecionado"
Else
Rng.Select
End If
Range(Rng.Select).Select
'Criação do gráfico
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Worksheets("Data").Range(Rng.Select), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Data"
Worksheets(Data).ChartObjects(1).Chart.SeriesCollection(1).Trendlines(1).Type = xlMovingAvg
Thiago
