Este fórum está sendo desativado

[PauloRibeiro]

Bom dia,

Fiz o código para visualizar dados de uma tabela em forma de gráfico.
Preciso de uma ajuda para conseguir referenciar um range.
__________________________________________________________

Dim Teste As String

Teste = Sheets("Plan1").Range("E7").Value

If Teste = "C102 - CCM Itapira Rena" Then

ActiveSheet.ChartObjects("Gráfico 2").Activate
ActiveChart.SetSourceData Source:=Sheets("Plan2").Range("E4:H4")
ActiveChart.FullSeriesCollection(1).XValues = "=Plan2!$F$3:$H$3"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=""Meta Superada"""
ActiveChart.FullSeriesCollection(2).Values = "=Plan2!$F$37:$H$37"

_______________________________________________________________________________

Onde está sublinhado e em negrito, preciso colocar uma referencia que vá até a ultima coluna com valor existente,
isso se faz necessário pois a toda semana faço a inserção de novas colunas colunas na tabela de referencia.

Consigo fazer isso?

Vlwww !

[Parkeless]

Olá Paulo!

Vê se funciona trocando as referências por isso:

Código: Selecionar todos

"=Plan2!$F$37:$H$" & Sheets("Plan2").Range("H1000000").End(xlUp).Row & ""

Não tive como testar aqui; fui no achismo mesmo.

[PauloRibeiro]

Não consegui,

Darei outro exemplo:



Este é um exemplo da tabela de origem, Cada Linha vai me gerar um gráfico

então o que preciso é que a referencia seja, a partir célula F4 ( Grafico 1 ) até a ultima coluna com valor no caso H4 ... veja que para o mesmo gráfico os dados estão na mesma linha, o que muda é apenas a coluna


att,

[Parkeless]

Paulo,

Entendi errado, desculpe; pensei que seu problema eram as linhas, não colunas.

Veja se você consegue adaptar o código da planilha anexa.

Caso não consiga, poste uma planilha de modelo por favor; facilita bastante.

[PauloRibeiro]

segue planilha modelo

[Parkeless]

Tenta aí

Alterei as referências do seu código:

De:

Código: Selecionar todos

'"='Dados Nordeste'!$F$3:$H$3"

Para:

Código: Selecionar todos

Range(Sheets("Dados Nordeste").Range("F3"), Sheets("Dados Nordeste").Range("F3").End(xlToRight))

E assim por diante.

Seu Excel é o 2013, e o código é um pouco incompatível com o meu porque uso o 2010... vamos ver se vai funcionar aí

[PauloRibeiro]

Para A primeira linha funcionou perfeitamente.

Para as outras duas ( Onde defino os valores do eixo X e onde Defino os valores da nova Serie ) não funcionou.

Mas estou aqui tentanto.

[laennder]

Não sei se tem que ser obrigatoriamente feito por macro, mas acho totalmente desnecessário.

Dá uma olhada no arquivo em anexo.