Condividi:        

Somma valori

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

Somma valori

Postdi Itt » 01/09/10 11:04

Ciao, vi chiedo un aiuto per questo piccolo problema.
Ho una lunga tabella excel di codici e quantità. Per esempio:
AAA 5
BBB 4
CCC 3
CCC 2
CCC 7
DDD 3
EEE 4
....
ZZZ 2
ZZZ 8

Avrei bisogno di calcolare, in un'unica cella ovviamente, il totale della quantità dei codici ripetuti (in questo caso CCC e ZZZ). Come posso fare?
Grazie in anticipo!
Ciao a tutti!
Itt
Itt
Utente Junior
 
Post: 75
Iscritto il: 09/05/03 10:38

Sponsor
 

Re: Somma valori

Postdi Flash30005 » 01/09/10 13:27

Avvia la macro "ElencoCod"

Codice: Seleziona tutto
Sub ElencoCod()
UC = Worksheets("Foglio1").Range("IV1").End(xlToLeft).Column
If UC < 3 Then UC = 3
Worksheets("Foglio1").Range(Cells(1, 3), Cells(2, UC)).Clear
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = 2 To UR - 1
    TrovG = 0
    NG = Worksheets("Foglio1").Range("A" & RR).Value
    For RR2 = RR + 1 To UR
        NGL = Worksheets("Foglio1").Range("A" & RR2).Value
        If NG = NGL Then TrovG = TrovG + 1
    Next RR2
If TrovG > 0 Then
UC = Worksheets("Foglio1").Range("IV1").End(xlToLeft).Column + 1
For CC = 3 To UC
Cod2 = Worksheets("Foglio1").Cells(1, CC).Value
If Cod2 = NG Then GoTo SaltaC
Next CC
Worksheets("Foglio1").Cells(1, UC).Value = NG
SaltaC:
End If
Next RR
Call Conta
End Sub

Private Sub Conta()
UC = Worksheets("Foglio1").Range("IV1").End(xlToLeft).Column
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For CC = 3 To UC
    ValX = 0
    Cod2 = Worksheets("Foglio1").Cells(1, CC).Value
    For RR = 2 To UR
        Cod = Worksheets("Foglio1").Range("A" & RR).Value
        If Cod2 = Cod Then ValX = ValX + Worksheets("Foglio1").Range("B" & RR).Value
    Next RR
Worksheets("Foglio1").Cells(2, CC).Value = ValX
Next CC
End Sub

e fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Somma valori

Postdi Anthony47 » 01/09/10 14:11

Itt, la tua domanda si presta a diverse interpretazioni; se la macro di Flash non dovesse risolvere, mi dici quale risultato vorresti avere con i dati che hai postato?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Somma valori

Postdi Itt » 02/09/10 13:12

Non mi sono spiegato del tutto bene, scusate. Avrei bisogno di mostrare in una cella la somma delle quantità di quei codici che si ripetono. Nel caso indicato sotto:
CCC 3
CCC 2
CCC 7 TOTALE 12

Non sono riuscito a sistemare la cosa con la macro - grazie comunque.

Ciao!
Ciao a tutti!
Itt
Itt
Utente Junior
 
Post: 75
Iscritto il: 09/05/03 10:38

Re: Somma valori

Postdi Flash30005 » 02/09/10 14:17

Invece ti sei spiegato benissimo,
ma se hai problemi con la macro scarica questo file
Fai sapere se ok
ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Somma valori

Postdi Itt » 03/09/10 10:13

Grazie, file perfetto per le mie esigenze. Grazie ancora! :)
Ciao a tutti!
Itt
Itt
Utente Junior
 
Post: 75
Iscritto il: 09/05/03 10:38


Torna a Applicazioni Office Windows


Topic correlati a "Somma valori":


Chi c’è in linea

Visitano il forum: Nessuno e 43 ospiti