sommare dati uguali excel

[CIACILLO1]

ciao a tutti, ho un problema con un file excel ossia:
A B C D E F G H I L
1
2

nella colonna A inserisco dei codici dove viene riportata in B un anagrafica;
in C viene riportato il totale di D+E+F+G+H+I+L;
sin qui tutto ok,
il problema è quando vado ad inserire due codici uguali, vorrei che debbano essere sommati tutte e due le righe anche se devo usare due fogli o due griglie.
ringrazio in anticipo

[CANAPONE]

Ciao,

=MATR.SOMMA.PRODOTTO(($A$2:$A2=$A2)*D$2:L$2)

da copiare ed incollare in basso lungo la colonna B.

Solo per scrupolo, la formula somma progressivamente anche il contenuto delle colonne J e K.

Saluti

[CANAPONE]

Ciao,

mi è scappato un dollaro di troppo nel precedente post.

Codice: Seleziona tutto

=MATR.SOMMA.PRODOTTO(($A$2:$A2=$A2)*D$2:L2)

Spero sia d'aiuto.

Saluti

[CIACILLO1]

http://www.filedropper.com/b
ho allegato l'immagine così è più chiaro,
io vorrei che in B 10 venga riportato il valore doppio GIANNI con la somma dei valori doppi che sono in B 2 e in B 4.
aiutatemi......

[Anthony47]

Metti i B10 (e sottostanti?) i nominativi di cui vuoi fare il riepilogo
Metti in C10 la formula

Codice: Seleziona tutto

=SOMMA.SE($B$1:$B$9;$B11;C$1:C$9)

Copia C10 nelle colonne adiacenti
Eventualmente copia C10:Q10 nelle righe sottostanti.

Ciao

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub Elenco2()
For RR1 = 2 To 7
    Esiste = 0
    Nome1 = Range("B" & RR1).Value
    If Nome1 = "" Then Exit Sub
    For RR2 = 10 To 15
        Nome2 = Range("B" & RR2).Value
        If Nome2 = "" Then GoTo SaltaRR1
        If Nome1 = Nome2 Then Esiste = 1
    Next RR2
SaltaRR1:
    If Esiste = 0 Then Range("B" & RR2).Value = Nome1
Next RR1
Call Totali
End Sub
Sub Totali()
Range("C10:Q15").ClearContents
For RR2 = 10 To 15
    Nome2 = Range("B" & RR2).Value
    If Nome2 = "" Then GoTo SaltaRR2
    For RR1 = 2 To 7
        Nome1 = Range("B" & RR1).Value
        If Nome1 = "" Then GoTo SaltaRR2
        If Nome1 = Nome2 Then
            For CC2 = 3 To 15
                Cells(RR2, CC2).Value = Cells(RR2, CC2).Value + Cells(RR1, CC2).Value
            Next CC2
        End If
    Next RR1
SaltaRR2:
Next RR2
End Sub


Fai sapere
Ciao

Edit: Leggi il Post di Anthony che ho trovato dopo l'invio del mio post

[CIACILLO1]

Grazie anthony, funziona perfettamente.

siete grandi....