[VBA] Somma di valori nelle colonne

[Lisantre]

Ciao,

sono nuovo di vba e vorrei chiedervi un'aiuto.
Su un foglio excel ho dei dati di temperatura distinti per giorni dell'anno (date gg/mm/aaaa) e avrei bisogno di scrivere un codice che mi esegua la somma delle temperature da giorno i a giorno j su un'altro foglio.
Il problema sta nel fatto che il numero di giorni da sommare varia di anno in anno, e per ogni anno ci sono più somme da calcolare.
Esempio
Data STemp0
01/01/2010 3.2
02/01/2010 0.5
03/01/2010 0
04/01/2010 0
05/01/2010 1.2
06/01/2010 0.7
07/01/2010 0
08/01/2010 2
09/01/2010 3.5

quindi se ad esempio all'inizio devo calcolare dal 1/1/10 al 3/1/10 dopo ho bisogno della somma da 4/1/10 al 15/3/10 e così via

grazie

[alka]

Originariamente inviato da Lisantre
Il problema sta nel fatto che il numero di giorni da sommare varia di anno in anno, e per ogni anno ci sono più somme da calcolare.

E quindi il problema specifico qual è? Cosa non riesci a fare?
Hai provato a scrivere il codice per fare quanto chiedi?

Dato che sei nuovo, leggi il Regolamento per conoscere le norme da seguire nella partecipazione a quest'area del forum.

[Lisantre]

Il mio problema è questo: ho 2 fogli excel, uno impostato come il messaggio sopra e un altro con le date fino alle quali effettuare le somme, tipo
Città V1 V2 V3
Roma 05/01/10 07/01/10 12/01/10
Napoli 05/01/10 09/01/10 01/02/10
Con il mio codice qui sotto vorrei leggere come stringa ogni riga e poi sommare da un dato valore della casella fino al successivo (comparando ovviamente la data della casella con quella del foglio precedente):

Sub Sommatoria() 
Dim Cel As Object 
Dim V1 As String  
Set zona = Worksheets("2011").Range([A2], [A2].End(xlDown))   
V1 = Worksheets("2011_gg").Cells(2).Value
tot = 0  '
For Each Cel In zona
If Cel.Value <= V1 Then 
tot = tot + Cel.Offset(0, 4).Value 
End If  
Next  '
B2].End(xlDown).Select 
ActiveCell.Offset(1, 0) = tot 
 End Sub

So che sono una capra ma sono anche nuovo della programmazione in vba
grazie