Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

SOMMA ORE STESSO GIORNO

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 ORE STESSO GIORNO

Postdi cd7019 » 24/02/15 21:36

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
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38

Sponsor
 

Re: SOMMA ORE STESSO GIORNO

Postdi Flash30005 » 25/02/15 02:28

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
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: SOMMA ORE STESSO GIORNO

Postdi cd7019 » 25/02/15 23:34

Grazie mille, funziona perfettamente.
EXCEL 2003
cd7019
Utente Senior
 
Post: 232
Iscritto il: 26/06/12 21:38


Torna a Applicazioni Office Windows


Topic correlati a "SOMMA ORE STESSO GIORNO":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti