somma mensile

[raimea]

ciao
in un foglio ,tramite macro,
vorrei fare la somma di determinati importi dello stesso mese,
e scrivere il risultato sempre alla riga dell'ultima data di tale mese.

in col H8 ho le date da analizzare , in J8 gli importi da sommare ,
in col K dove scrivere il risultato della somma.

nel file allegato , la somma e' messa come vorrei lo facesse la macro .

https://dl.dropboxusercontent.com/u/96374724/saldo.xls

vi ringrazio
ciao

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub calcola()
UR = Worksheets("saldo").Range("H" & Rows.Count).End(xlUp).Row
Worksheets("saldo").Range("K8:K1000").ClearContents
DataM = Month(Worksheets("saldo").Range("H8").Value)
Ute = Worksheets("saldo").Range("I8").Value
MDataM = Month(Worksheets("saldo").Range("H8").Value)
Somma = 0
MUte = Worksheets("saldo").Range("I8").Value
For RR = 8 To UR + 1
DataM = Month(Worksheets("saldo").Range("H" & RR).Value)
Ute = Worksheets("saldo").Range("I" & RR).Value
If MDataM = DataM And MUte = Ute Then
    Somma = Somma + Worksheets("saldo").Range("J" & RR).Value
Else
Worksheets("saldo").Range("K" & RR - 1).Value = Somma
MUte = Ute
MDataM = DataM
Somma = Worksheets("saldo").Range("J" & RR).Value
End If
Next RR
End Sub

Ciao

[raimea]

ciao
no la macro non somma/posiziona correttamente il risultato.

nell'immagine col K si vede come somma posiziona la macro
mentre in col L ho messo manualmente come dovrebbe essere il risultato finale.



grazie
ciao

[Flash30005]

Dall'esempio che avevi messo nel file originale sembrava che la somma dovesse essere suddivisa anche per utente e la macro fa proprio questo: somma se condizione mese e utente sono uguali a precedente
Ma se vuoi la somma mensile allora questa è la macro modificata

Codice: Seleziona tutto

Sub calcola2()
UR = Worksheets("saldo").Range("H" & Rows.Count).End(xlUp).Row
Worksheets("saldo").Range("K8:K1000").ClearContents
DataM = Month(Worksheets("saldo").Range("H8").Value)
'Ute = Worksheets("saldo").Range("I8").Value
MDataM = Month(Worksheets("saldo").Range("H8").Value)
Somma = 0
'MUte = Worksheets("saldo").Range("I8").Value
For RR = 8 To UR + 1
DataM = Month(Worksheets("saldo").Range("H" & RR).Value)
'Ute = Worksheets("saldo").Range("I" & RR).Value
If MDataM = DataM Then
    Somma = Somma + Worksheets("saldo").Range("J" & RR).Value
Else
Worksheets("saldo").Range("K" & RR - 1).Value = Somma
'MUte = Ute
MDataM = DataM
Somma = Worksheets("saldo").Range("J" & RR).Value
End If
Next RR
End Sub

Ciao

[raimea]

ciao
ottimo
ora e' ok

forse mi ero spiegato male , questa macro fa cio che chiedevo.
grazie