In effetti durante le mie prove ho riscontrato anche io alcune anomalie, che poi non ho indicato nel mio test.
La prima e' che non capivo perche', pur essendo in origine indicata (nelle "serie" del grafico)
valore x=Foglio1!$A$2:$A$28 poi quella serie finiva sull' asse verticale. Piu' tardi ho rinunciato a capire e invece di suggerirti di fare a mano le inversioni nelle 14 serie ho elaborato la macro.
Poi ci sono dei "<50" che alterano totalmente il grafico, e io ho rimosso i "<"
Infine c' erano quelle celle vuote/non-vuote che in una delle prime prove avevo trasformate in vuote con una macro
- Codice: Seleziona tutto
Sub ppp()
For Each cell In Range("B2:O28")
'aaa = cell.Address
If Len(cell.Value) = 0 Then cell.ClearContents
Next cell
End Sub
La tua macro avrebbe sortito effetti visibili se invece di scrivere
ActiveChart.SeriesCollection(attuale).Values = vecchioX avessi scritto
ActiveChart.SeriesCollection(totale).Values = vecchioX (in realta' l' errore e' di aver scambiato "attuale" con "totale" all' inizio del loop); ma poi non avrebbe "funzionato" perche' in quel modo viene assegnato a ogni serie un elenco di "valori", cioe' si perde l' associazione ai dati del foglio; insomma qualsiasi dato scritto sul foglio il grafico sarebbe risultato immutabile.
Ciao