Moderatori: Anthony47, Flash30005
Sub SommaXData()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
UC2 = Worksheets("Foglio2").Range("IV2").End(xlToLeft).Column
For Cs = 1 To UC2 Step 2
Anno1 = Year(Worksheets("Foglio2").Cells(2, Cs).Value)
Mese1 = Month(Worksheets("Foglio2").Cells(2, Cs).Value)
Giorno1 = Day(Worksheets("Foglio2").Cells(2, Cs).Value)
DataDa = DateSerial(Anno1, Mese1, Giorno1)
Anno2 = Year(Worksheets("Foglio2").Cells(2, Cs + 1).Value)
Mese2 = Month(Worksheets("Foglio2").Cells(2, Cs + 1).Value)
Giorno2 = Day(Worksheets("Foglio2").Cells(2, Cs + 1).Value)
DataA = DateSerial(Anno2, Mese2, Giorno2)
Somma = 0
For RS = 1 To UR
AnnoE = Year(Worksheets("Foglio1").Cells(RS, 1).Value)
MeseE = Month(Worksheets("Foglio1").Cells(RS, 1).Value)
GiornoE = Day(Worksheets("Foglio1").Cells(RS, 1).Value)
DataE = DateSerial(AnnoE, MeseE, GiornoE)
If DataE >= DataDa And DataE <= DataA Then Somma = Somma + Worksheets("Foglio1").Range("H" & RS).Value
Next RS
Worksheets("Foglio2").Cells(3, Cs + 1).Value = Somma
Next Cs
End Sub
=SOMMA(SE(("1/04/10">=A1:A2)*(A1:A2<="30/04/10");(B1:B2))
=SOMMA(SE((DATA(2010;4;1)<=A1:A1400)*(A1:A1400<=DATA(2010;4;30));(B1:B2)))
=SOMMA(SE((H1<=A1:A1400)*(A1:A1400<=I1);(B1:B2)))
Torna a Applicazioni Office Windows
Modidica Formula Somma I Riferimenti Autore: Francesco6918 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Anthony47 e 117 ospiti