Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

creare un riepilogo per gestire codici

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

creare un riepilogo per gestire codici

Postdi vale2882 » 18/03/15 20:01

Buonasera a tutti. Sono qui per chiedere il vostro prezioso aiuto. Vorrei creare con una macro un foglio di riepilogo che mi riporti i codici riportati in colonna B (allego il file di esempio) e mi faccia la somma di tutte le q.tà di quei codici comuni ai fogli di dati.Dopo aver fatto questo, vorrei riportare in colonna H e così scorrendo le q.tà relative a oni codice che sono presenti nei fogli. Potreste, per cortesia, aiutarmi? Grazie anticipatamente!
vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Sponsor
 

Re: creare un riepilogo per gestire codici

Postdi vale2882 » 18/03/15 20:24

vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Re: creare un riepilogo per gestire codici

Postdi wallace&gromit » 18/03/15 23:27

Ciao, si può fare senza macro:
in H2 inserisci
Codice: Seleziona tutto
=SOMMA.SE(Foglio1!$B$2:$B$4;Riepilogo!$B2;Foglio1!$J$2:$J$4)
e copi verso il basso, poi copi in I2 e sostituisci "Foglio1" con "Foglio2" e così via.
Nella colonna W farai semplicemente la somma dei dati riportati nelle varie colonne precedenti, sempre che non mi sia perso qualcosa, visto che i tuoi valori di esempio non coincidono.
stato 2014: Office2003/2013 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1421
Iscritto il: 16/01/12 14:21

Re: creare un riepilogo per gestire codici

Postdi Flash30005 » 18/03/15 23:40

Questa è invece la soluzione con macro

Codice: Seleziona tutto
Sub Riepilogo()
Sheets("Riepilogo").Range("H:IV").Delete
Sheets("Riepilogo").Range("B2:B65000").ClearContents
 Worksheets("Riepilogo").Range("Z1").Value = "Totale Fogli"
 Col = 7
For FF = 1 To Worksheets.Count
If Sheets(FF).Name <> "Riepilogo" Then
Col = Col + 1
Sheets("Riepilogo").Cells(1, Col).Value = "Q.tà " & Sheets(FF).Name
URF = Worksheets(FF).Range("B" & Rows.Count).End(xlUp).Row

For RRF = 2 To URF
CodP = Sheets(FF).Range("B" & RRF).Value
TR = 0
    URR = Worksheets("Riepilogo").Range("B" & Rows.Count).End(xlUp).Row + 1
    For RRR = 2 To URR
        If Worksheets("Riepilogo").Range("B" & RRR).Value = CodP Then
            Sheets("Riepilogo").Cells(RRR, Col).Value = Sheets("Riepilogo").Cells(RRR, Col).Value + Worksheets(FF).Range("J" & RRF).Value
            Sheets("Riepilogo").Cells(RRR, 26).Value = Sheets("Riepilogo").Cells(RRR, 26).Value + Worksheets(FF).Range("J" & RRF).Value
            TR = 1
            GoTo SaltaRR
        End If
    Next RRR
    If TR = 0 Then
    Worksheets("Riepilogo").Range("B" & URR).Value = CodP
    Sheets("Riepilogo").Cells(URR, Col).Value = Worksheets(FF).Range("J" & RRF).Value
    Sheets("Riepilogo").Cells(URR, 26).Value = Sheets("Riepilogo").Cells(URR, 26).Value + Worksheets(FF).Range("J" & RRF).Value
    End If
SaltaRR:
Next RRF
End If
Next FF
End Sub


Nella colonna Z puoi avere il totale di tutti i fogli per codice prodotto
Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: creare un riepilogo per gestire codici

Postdi vale2882 » 19/03/15 12:43

Grazie per la rsoluzione Flash! Grazie anche a wallace! Se volessi riportare anche le informazioni delle altre colonne descrizione, fornitore, commenti fino alla colonna Arrivo come cambia il codice?Grazie!
vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Re: creare un riepilogo per gestire codici

Postdi vale2882 » 23/03/15 16:27

Buonasera, scusatemi, ho modificato il codice di flash per riportare nel riepilogo finale anche le informazioni delle altre colonne relative al codice che si trova in colonna B:
For RRR = 2 To URR
If Worksheets("Riepilogo").Range("B" & RRR).Value = CodP Then
Sheets("Riepilogo").Cells(RRR, 1).Value = Worksheets(FF).Range("A" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 2).Value = Worksheets(FF).Range("B" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 3).Value = Worksheets(FF).Range("C" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 4).Value = Worksheets(FF).Range("D" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 5).Value = Worksheets(FF).Range("E" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 6).Value = Worksheets(FF).Range("F" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 7).Value = Worksheets(FF).Range("G" & RRF).Value
Sheets("Riepilogo").Cells(RRR, Col).Value = Sheets("Riepilogo").Cells(RRR, Col).Value + Worksheets(FF).Range("J" & RRF).Value
Sheets("Riepilogo").Cells(RRR, 23).Value = Sheets("Riepilogo").Cells(RRR, 23).Value + Worksheets(FF).Range("J" & RRF).Value
TR = 1
GoTo SaltaRR
End If

Nel riepilogo finale però, non ho il completamento di tutte le colonne perchè????Potreste aiutarmi per favore?Dove sbaglio?
Grazie mille!
vale2882
Utente Junior
 
Post: 98
Iscritto il: 29/07/14 18:41

Re: creare un riepilogo per gestire codici

Postdi Anthony47 » 24/03/15 01:30

Il file di esempio non e' piu' disponibile; in questa situazione ti puo' aiutare solo chi l' ha gia scaricato...
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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "creare un riepilogo per gestire codici":


Chi c’è in linea

Visitano il forum: patel, Zer0Kelvin e 24 ospiti