Ciao Martin
Ho fatto qualcosa di funzionante anche se un po' "spartana"
Allora ho considerato che la somma sia sulla colonna D
La colonna E la utilizzo momentaneamente per calcolarmi il numero di riga di inizio somma
La somma la faccio nella cella N1
La cella O1 la utilizzo temporaneamente per cerca riferimento della data inizio che insieme alla colonna e mi danno la riga inizio,
alla fine cancello tutto ciò che non occorre
Il tutto con il seguente codice
- Codice: Seleziona tutto
Sub Macro11()
Range("N1").ClearContents 'Riga aggiunta, pulisce la somma precedente
'---------------------------------------------------------------------------- macro precedente e funzionante
DaData = Format(Range("L1").Value, "mm/dd/yyyy")
AData = Format(Range("M1").Value, "mm/dd/yyyy")
FiltroA = ">=" & DaData '<< Prima data in L1 (formato europeo gg/mm/aaaa)
FiltroB = "<=" & AData '<< Ultima data in M1 (formato europeo gg/mm/aaaa)
Range("C:C").Select '<< Colonna con la data
Selection.AutoFilter Field:=1, Criteria1:=FiltroA, Operator:=xlAnd, Criteria2:=FiltroB
UR = Range("D" & Rows.Count).End(xlUp).Row - 1
Range("E1").FormulaR1C1 = "1"
Range("E2").FormulaR1C1 = "2"
Range("E1:E2").Select
Selection.AutoFill Destination:=Range("E1:E" & UR), Type:=xlFillDefault
'-------------------------------------------------------------------------------------------- da qui in poi sono le righe aggiunte
Range("O1").FormulaR1C1 = "=VLOOKUP(RC[-3],RC[-12]:R[28]C[-10],3,FALSE)"
PR = Range("O1").Value - 1
Range("N1").FormulaR1C1 = "=SUM(R[" & PR & "]C[-10]:R[" & UR & "]C[-10])"
Range("O1").ClearContents
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft
Selection.Insert Shift:=xlToRight
Range("A1").Select
End Sub
Sicuramente si potrebbero evitare di utilizzare le celle di appoggio ma non conosco il codice per ricavarmi la riga di inizio somma senza numerare la colonna (E), qualcun altro ti saprà consigliare meglio, nel frattempo fai questa prova
Ciao
P.s. Se cambi le colonne D, E, N e O in altre colonne tieni presente che le formule hanno un riferimento relativo (-X colonne) che dovrai cambiare di conseguenza