fare una somma tra più fogli excell

[Anto78]

Ciao a tutti,
ho bisogno di un aiuto per capire se posso fare una somma tra più fogli excell.
quesito:
ho 110 fogli xls, con delle righe ed in ogni riga c'è la descrizione del prodotto, codice ean e quantità.
come faccio ad inserire nel foglio 112 la somma del prodotto con codice 12345 che si trova nei 110 fogli presenti?
non so se sono stato chiaro.
grazie

ciao

[Anthony47]

Ciao Anto78, benvenuto nel forum.
Hummm... 110 fogli...

Secondo me ti fai un riepilogo del contenuto dei 110 file e su questo nuovo file crei una tabella pivot che ti possa dare il conteggio della somma delle quantita' di tutti i codici presenti.

Puoi ottenere questo "sommario" con questa macro:

Codice: Seleziona tutto

Sub Sommario()
Dim Ignora, Layout As String, I As Long, J As Long, lastA As Long
'
Ignora = Array("Foglio3", "Foglio4", "Summa")   '<<< Elenco dei fogli che devono essere ignorati
Layout = "A1:E1"                                '<<< Le colonne che devono essere riepilogate
Sheets("Summa").Cells.ClearContents
For I = 1 To Worksheets.Count
    If IsError(Application.Match(Worksheets(I).Name, Ignora, 0)) Then
        lastA = Worksheets(I).Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets(I).Range(Layout).Offset(J, 0).Resize(lastA - J).Copy _
           Sheets("Summa").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        J = 1
    End If
Next I
Sheets("Summa").Select
MsgBox ("Completato...")
End Sub


Operativamente, partendo da Excel
-premi Alt-F11 per aprire l'editor delle macro
-Menu /Inserisci /Modulo
-Copia il codice e incollalo nel frame dx del modulo appena creato
Personalizza le righe marcate <<< come da commenti.

Poi torna su Excel e lancia la macro Sommario:
-premi Alt-F8
-seleziona Sommario dall'elenco di macro disponibili
-premi Esegui e attendi il messaggio di completamento

Il foglio in cui viene creato il sommario si chiama Summa e deve gia' essere presente; esso viene AZZERATO SENZA PREAVVIO all'avvio della macro e poi compilato con quanto presente in tutti i fogli del file eccetto quelli dichiarati nella variabile Ignora; ovviamente Ignora deve contenere anche "Summa", oltre ad eventuali altri fogli che non bisogna riportare nel riepilogo.

Sai poi creare una tabella pivot basata su questo elencone?

Ciao