Aggiornamento grafico

di il
3 risposte

Aggiornamento grafico

Ciao, sto cercando di aggiornare un grafico tramite una macro.

I dati si trovano nel range O1:Q13 ed è nel formato Mese, anno 2023, anno 20 24, anno 2025, nella riga 1 e i mesi in colonna da O2 a O13.

Il seguente codice aggiorna il grafico nel caso aggiunga una colonna "anno 2026"

ActiveSheet.ChartObjects("Grafico 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Range(Cells(2, "P"), Cells(13, c))
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(c - 15).Name = Cells(1, c).Value
ActiveChart.SeriesCollection(c - 15).Values =  “=DashBoard!$S$2:$S$14”


Ora per modificare nell'ultima riga la lettera S con un codice più dinamico, l'ho scambiato con la c, variabile dinamica della prima colonna vuota, però non funziona, perché c rappresenta un valore, non una lettera ($c$2 e $c$13).

ActiveChart.SeriesCollection(c - 15).Values =  "=DashBoard!$" & c & "$2:$" & c & "$13" & """"

Se fosse un altro caso potrei scambiare la c con una lettera usando la funzione CHR$(), se non ricordo male, però quando si va avanti nelle colonne, risulta complicato mettere la doppia lettera “AA”, “AB”, ecc…

Quindi come posso fare?

Grazie

Ciao

3 Risposte

Devi accedere o registrarti per scrivere nel forum
3 risposte