Grafico ad area
Ciao DRoberto, scusa errore mio dovevo allegarti il file.
per funzionare la macro ha bisogno di celle di appoggio, le quali non sono altro che i dati che hai inserito.
Visto che tu vuoi visualizzare solo un Area, cioè da Maggio a Maggio come righe e colonne ad esempio per il grafico le altre celle devono essere vuote oppure "#N/D".
però a questo punto non avrai più i dati per una prossima selezione.
si potrebbe anche fare, però cambiando tutte le serie del grafico aggiornandole al nuovo range, quindi molto farraginoso e più righe di codice.
a questo punto ho ritenuto lasciare le celle per i dati reali in "D2:O13", e creare le celle di appoggio per i dati del grafico in AA1, ma possibile spostare in qualsiasi altra parte logicamente modificando la macro.
in funzione di questo ho dovuto aggiornare la macro che diventa questa:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mese, r, c
If Not Intersect(Target, [b1]) Is Nothing Then
mese = Range("B1")
Select Case mese
Case "Gennaio": r = 2: c = 4
Case "Febbraio": r = 3: c = 5
Case "Marzo": r = 4: c = 6
Case "Aprile": r = 5: c = 7
Case "Maggio": r = 6: c = 8
Case "Giugno": r = 7: c = 9
Case "Luglio": r = 8: c = 10
Case "Agosto": r = 9: c = 11
Case "Settembre": r = 10: c = 12
Case "Ottobre": r = 11: c = 13
Case "Novembre": r = 12: c = 14
Case "Dicembre": r = 13: c = 15
End Select
Range("AB2:AM13").ClearContents
Range(Cells(2, 18), Cells(r, c)).Copy Range("AB2")
End If
End Sub
come vedi è diversa perche sono cambiati i riferimenti, come funziona, cancella i dati del grafico in "AB2:AM13" e copia i dati del area del mese interessato che ottengo con r,c.
quindi se ci sono cambiamenti dati li puoi fare tranquillamente in "D2:O13" dimenticandoti delle celle d'appoggio
questa volta allego il file per esempio
Ciao By Sal