SOMMA ORE STESSO GIORNO

[cd7019]

salve,
avrei un problema inerente la somma di ore delle stesso giorno con un ciclo FOR NEXT e l'inserimento successivo in una matrice:
la colonna A contiene l'elenco dei nomi, la colonna B la data e la colonna C le ore
Vorrei sommare le ore dello stesso giorno ed avere solamente 1 riga x giorno

Alberto 21/01/15 3
Giovanni 22/01/15 2
Paolo 27/01/15 5
Alberto 21/01/15 8
Paolo 23/01/15 1
Alberto 29/01/15 8
...

risultato desiderato:
Alberto 21/01/15 11 (somma 3+8 ore nel giorno 21/01/15)
Giovanni 22/01/15 2
Paolo 23/01/15 1
Paolo 27/01/15 5
Alberto 29/01/15 8

Inserimento in una matrice DATI.

Grazie

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub SommaOreSe()
Set Uno = Worksheets("Foglio1")
Set Due = Worksheets("Foglio2")
Due.Cells.Clear
UR1 = Uno.Range("A" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
Nome1 = Uno.Range("A" & RR1).Value
Data1 = Uno.Range("B" & RR1).Value
    UR2 = Due.Range("A" & Rows.Count).End(xlUp).Row
    For RR2 = 2 To UR2
        Nome2 = Due.Range("A" & RR2).Value
        Data2 = Due.Range("B" & RR2).Value
        If Nome1 = Nome2 And Data1 = Data2 Then
            Due.Range("C" & RR2).Value = Due.Range("C" & RR2).Value + Uno.Range("C" & RR1).Value
            GoTo SaltaRR1
        End If
    Next RR2
    Due.Range("A" & UR2 + 1).Value = Nome1
    Due.Range("B" & UR2 + 1).Value = Data1
    Due.Range("C" & UR2 + 1).Value = Uno.Range("C" & RR1).Value
SaltaRR1:
Next RR1
End Sub

Dati origine Foglio1, destinazione Foglio2 altrimenti adatta

Ciao

[cd7019]

Grazie mille, funziona perfettamente.