Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

somma mensile

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 mensile

Postdi raimea » 08/06/13 19:11

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
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1099
Iscritto il: 11/02/10 07:33
Località: lago

Sponsor
 

Re: somma mensile

Postdi Flash30005 » 08/06/13 23:56

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
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 mensile

Postdi raimea » 09/06/13 07:44

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.

Immagine

grazie
ciao
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1099
Iscritto il: 11/02/10 07:33
Località: lago

Re: somma mensile

Postdi Flash30005 » 09/06/13 08:17

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
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 mensile

Postdi raimea » 09/06/13 08:30

ciao
:P ottimo
ora e' ok

forse mi ero spiegato male , questa macro fa cio che chiedevo.
grazie
http://www.lelugarine.eu
S.O. Seven7, Excell 2010
Avatar utente
raimea
Utente Senior
 
Post: 1099
Iscritto il: 11/02/10 07:33
Località: lago


Torna a Applicazioni Office Windows


Topic correlati a "somma mensile":


Chi c’è in linea

Visitano il forum: tex willer e 12 ospiti