Creare tabella riepilogo

Hai un problema con Excel?

Nuova discussione

Creare tabella riepilogo
di Rojack (utente non iscritto) data: 28/12/2014 18:19:33
Ciao a tutti,
dovrei creare una macro in grado di generarmi una tabella di riepilogo di voci inserite nelle stesse celle ma in fogli differenti nello stesso file. Poiché il contenuto di ogni cella potrebbe essere soggetto a variazioni, la voce corrispondente inserita nella tabella di riepilogo dovrebbe aggiornarsi automaticamente (es. formula con riferimento). I valori inseriti all'interno delle celle in questione sono puro testo descrittivo.

Non essendo purtroppo pratico di Visual Basic , avrei bisogno della programmazione completa.

Grazie mille ed auguri di buone feste.
di lepat (utente non iscritto) data: 28/12/2014 18:59:34
Rileggi bene quello che hai scritto, ti sembra di aver fornito elementi sufficienti considerando che chi ti legge non ha la sfera di cristallo ?
di Rojack (utente non iscritto) data: 01/01/2015 12:06:54
Cerco di dettagliare meglio quanto scritto sopra, andando per punti successivi.

In pratica:

- dispongo di un file Excel (*.xlsx) contenente più fogli di lavoro ordinati secondo una numerazione progressiva (es. #01, #02, #03 ecc...);

- ogni foglio contiene testo descrittivo (mai calcoli o formule) sempre nelle stesse posizioni (stesse celle in ogni foglio). Questo testo descrittivo varia da foglio a foglio, ma la posizione è sempre quella.

- stante questa situazione, io devo creare un foglio ulteriore, separato dagli altri, dove devo inserire una tabella generale di riepilogo in cui si riportano i testi descrittivi di ciascuno dei fogli numerati #01, #02 e così via...

- finora ho sempre fatto "a mano": cioé ho creato la tabella di riepilogo inserendo manualmente i riferimenti di cella da ciascun foglio (es. "=#01!$A$4") per fare in modo che la tabella di riepilogo fosse collegata ai fogli di partenza.

Fatta questa premessa, chiedo: è possibile disporre di una macro che, dati i fogli di partenza col loro testo, consenta di eseguire l'operazione di stesura della tabella di riepilogo automaticamente ?

A disposizione per chiarimenti ulteriori ed auguri di buon anno !
di lepat (utente non iscritto) data: 01/01/2015 15:36:21
occorre un file di esempio

di Lucas87 data: 01/01/2015 15:41:03
Ciao e buon anno.
Per essere più corretti servirebbe un file
Puoi provare il codice sotto.
Si presuppone che il foglio di riepilogo esista già e che l'intervallo di dati da riportare sia sempre quello (nell'esempio è A1:B5)

n = 1   'la riga da cui iniziare a scrivere sul foglio riepilogo
For Each sh In Worksheets
    If sh.Name <> "riepilogo" Then  'il foglio esiste già e si chiama riepilogo
        Range("a" & n & ":b" & n + 4) = sh.Range("a1:b5").Value     'va adattata alla tua situazione
        n = n + 5   '5 è il numero di righe che vengono riportate
    End If
Next

Vuoi Approfondire?