MACRO PER CREARE GRAFICO

Hai un problema con Excel?

Nuova discussione

MACRO PER CREARE GRAFICO
di neicasinisempre data: 15/12/2013 21:41:25
Salve a tutti e un ringraziamento anticipato a chi potra darmi una mano.
Ho un file excel 2010 che funziona da riepilogo generale; attraverso una macro, attivata tramite un pulsante, copia il contenuto da una serie di file excel, contenuti in una directory separata, e li elenca uno sull'altro in gruppi, in modo da aggiungere in fondo a determinate colonne un subtotale che funziona anche quando applico dei filtri automatici; ho prodotto da solo questa macro, pur avendo scarse conoscenze del linguaggio, semplicemente leggendo tra i vari argomenti del forum, e fin qui bene, ... il problema per me è provare a implementare la macro in modo da creare qualche grafico basato sui dati del riepilogo, magari visualizzando questo grafico in un foglio separato sempre pero presente nella cartella del riepilogo.
Spero di essere stato chiaro.
La tabella di riepilogo è una semplicissima tabella con numeri sempre uguali.
Confido nel Vs aiuto.
Grazie.
di patel data: 15/12/2013 22:02:30
un altro metodo molto efficace per creare macro è usare il Registratore di Macro, per questo scopo vedrai che funziona benissimo.
di Grograman (utente non iscritto) data: 16/12/2013 08:39:16
Ho allegato un file di esercizio sui grafici.
Prevede sia l'inserimento in un foglio dedicato che l'inserimento sul foglio contenente i dati.

Purtroppo ora non posso spiegarlo o commentarlo, quindi è totalmente da adattare!
di neicasinisempre data: 16/12/2013 10:39:25
Il registratore non risolve la mia difficolta, poiche parte della base dati del grafico è rappresentata dai subtotali generati attraverso la macro e questi ultimi occupano una riga che non è fissa, cioè non è sempre allo stesso posto, una volta puo essere piu in alto e un'altra piu in basso.

Il file allegato non mi aiuta, ho provato ad utilizzarlo ma non riesco.

Forse puo servire a farmi capire meglio se allego il file excel?
di neicasinisempre (utente non iscritto) data: 16/12/2013 12:29:16

Ecco, questa è la parte macro per la creazione del grafico dove si selezionano i valori delle ordinate:

ActiveChart.SeriesCollection(1).Values = "=General!$J$46:$M$46"

Ho bisogno che vada a pescare sempre la riga del subtotale tra la colonna j e m.

Se puo essere di aiuto questa è la parte di codice che inserisce il subtotale:

FR = MySheet.Range("a" & Rows.Count).End(xlUp).Row + 1
With Union(MySheet.Range("e" & FR + 1), MySheet.Range("f" & FR + 1), MySheet.Range("g" & FR + 1), MySheet.Range("h" & FR + 1), MySheet.Range("i" & FR + 1), MySheet.Range("j" & FR + 1), MySheet.Range("k" & FR + 1), MySheet.Range("l" & FR + 1), MySheet.Range("m" & FR + 1), MySheet.Range("n" & FR + 1), MySheet.Range("o" & FR + 1), MySheet.Range("p" & FR + 1), MySheet.Range("q" & FR + 1), MySheet.Range("r" & FR + 1), MySheet.Range("s" & FR + 1), MySheet.Range("t" & FR + 1), MySheet.Range("u" & FR + 1))

.Formula = "=subtotal(9,e3:e" & FR & ")"

.Font.Bold = True
.Font.ColorIndex = 2
.NumberFormat = "0;-0;;@"
End With
MySheet.Range("a" & FR + 1 & ":v" & FR + 1).Interior.Color = 3421846

Application.ScreenUpdating = True

Grazie.

Vuoi Approfondire?