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