Il mio consiglio e' che riproduci su un foglio di riepilogo tutte le righe presenti negli N inventari, e poi su questa lista produci una tabella pivot che riepiloghi
-il Codice prodotto in area RIGHE
-la Giacenza, come "Somma di" in area DATI
-il Costo, come "Media di" in area DATI
-il CostoTotale, come "Somma di" in area DATI
Per copiare in un foglio di riepilogo gli elenchi presenti su N inventari:
-crea un nuovo file che chiamerai ad esempio Riepilogo.xls, e inseriscigli questa macro:
- Codice: Seleziona tutto
Option Compare Text
Sub Veger1()
TargetSh = "Foglio1" '<<< Il foglio di "Riepilogo.xls" su cui si consolidera'
'
ThisWorkbook.Activate: Sheets(TargetSh).Select
' Range("A:D").Clear
For I = 1 To Workbooks.Count
If Workbooks(I).Name <> ThisWorkbook.Name And Left(Workbooks(I).Name, 8) <> "Personal" Then
With Workbooks(I).Sheets("Foglio1") '<<< il foglio da cui prelevare i dati
.Range(.Range("A2"), .Range("D" & Rows.Count).End(xlUp)).Copy Destination:= _
ThisWorkbook.Sheets(TargetSh).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
LastCons = I
End With
End If
Next I
Workbooks(LastCons).Sheets("Foglio1").Range("A2:D1").Copy Destination:= _
ThisWorkbook.Sheets(TargetSh).Range("A1:D1")
End Sub
Personalizza le righe marcate <<< (il foglio di Riepilogo.xls in cui creerai l' elenco consolidato, il foglio dei file Inventario da cui prelevare gli elenchi parziali)
-apri tutti i file di inventario di cui parli (**)
-chiudi i file non di inventario eventualmente aperti, eccetto eventuali file "personalxyz" (es file personal.xls) che verranno invece volutamente ignorati dalla macro.
-esegui la macro
-vai sulla pagina contenente la pivot table e aggiorna i dati (**)
La macro non cancella eventuali dati gia' presenti sul foglio "Target", se vuoi farlo togli l' apostrofo in testa alla riga
Range("A:D").Clear
Gli step marcati ** puoi anche automatizzarli con macro autoregistrate mentre esegui quelle operazioni.
Fai sapere se con questi spunti risolvi, altrimenti posta ancora spiegando dove sei arrivato e dove invece ti sei arenato.
Per favore imposta la tua configurazione di lavoro (vedi qui per come fare:
viewtopic.php?f=26&t=97449)Ciao