Inserire riga con somme

Hai un problema con Excel?

Nuova discussione

Inserire riga con somme
di Nic82 data: 26/07/2010
Ciao a tutti,
vorrei inserire un range, all'altezza di una certa cella, che contenga una formula di somma delle colonne sovrastanti. vengo subito al dunque con un esempio che allego.

Set CellaIni = Activecell.Offset(0,0)
'sono nella cella D10

CellaIni.Select

With Range(ActiveCell(0, -3), ActiveCell(300, -3)).Select
For Each c In Selection
If c.Value = "[Africa settentrionale]" Then
ActiveCell.Resize(1, 14).Insert Shift:=xlDown
ActiveCell.Value = "TOTALE"
ActiveCell.Offset(0, 2).Formula = Sum([Activecell.Columns & X], [Activecell.offset(-1,0)]) 'come si scrive la somma?
ActiveCell.Offset(0, 2).Select
Selection.AutoFill Destination:=Range(ActiveCell.Offset(0, 2), ActiveCell.Offset(0, 14)), Type:=xlFillDefault
End If
Next
End With

Vuoi Approfondire?