- Codice: Seleziona tutto
'<------seleziona per somma
Selection.End(xlToRight).End(xlUp).Select
Range(Selection, Selection.End(xlDown)).Select
'<------seleziona per somma
'<---------somma
Set zona = Range(Selection, Selection.End(xlDown))
Selection.End(xlDown).End(xlDown) = WorksheetFunction.Sum(zona)
'<---------somma
con questa inserisco le altre due formule:
- Codice: Seleziona tutto
Selection.End(xlUp).End(xlDown).End(xlDown).End(xlDown).Offset(1, 0).FormulaLocal = "=SOMMA.SE(B20:B28;$B$2;E20:E28)"
Selection.End(xlUp).End(xlDown).End(xlDown).End(xlDown).Offset(2, 0).FormulaLocal = "=SOMMA(E31-E30)"
come vedete i range delle seconde formule sono fissi, come posso renderli variabili ? Esiste una regola generale ?
Grazie per l'aiuto