Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

fare una somma tra più fogli excell

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

fare una somma tra più fogli excell

Postdi Anto78 » 05/10/16 12:50

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
Anto78
Newbie
 
Post: 1
Iscritto il: 05/10/16 12:43

Sponsor
 

Re: fare una somma tra più fogli excell

Postdi Anthony47 » 05/10/16 23:55

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "fare una somma tra più fogli excell":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti