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
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
| Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
| Aggiornare cella con somma quando aggiungo nuova colonna Autore: marcopont |
Forum: Applicazioni Office Windows Risposte: 1 |
| Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 15 ospiti