Totale valori di più colonne del foglio con funzione Sum

[Ricky0185]

Buongiorno, in un foglio ho parecchie colonne in fondo alle quali debbo riportare la somma dei relativi valori. Nella macro specificando per ciascuna colonna il range con Set zona1=A1:A370, Set zona2=B1:B370, etc., ottengo le relative somme con la WorksheetFunction.Sum(zona1), ….(zona2), etc. Vorrei evitare queste ripetizioni con un unica istruzione.
Buona Domenica, anche se fuori arrivano secchiate di acqua.
R

[Ricky0185]

Prova e riprova

Codice: Seleziona tutto

Sub SommaColonne()
    Dim NextRow As Long
    With Worksheets("Foglio1")
        NextRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Range("A" & NextRow & ":K" & NextRow).Formula = _
                           "=SUM(A1:A" & NextRow - 1 & ")"
    End With
End Sub


e funziona.
Saluti
R

[Marius44]

Ciao
Scusa ma vale solo per la prima colonna mentre tu hai detto

... ho parecchie colonne in fondo alle quali debbo riportare la somma dei relativi valori ...

Ciao,
Mario

[Anthony47]

Ciao Mario;
l'istruzione .Range("A" & NextRow & ":K" & NextRow).Formula mette la formula da colonna A a colonna K, che immagino siano tutte le colonne che interessano a Ricky
Buona domenica a tutti

[Ricky0185]

Ciao Mario, eccoti il file ovviamente spersonalizzato

[Marius44]

Ciao

Hai perfettamente ragione. Mi scuso per l'errore
Codice corretto e molto funzionale. Complimenti

@Anthony
Un caro saluto anche a te.

Ciao,
Mario

[Ricky0185]

Codice corretto e molto funzionale. Complimenti

. Seeeee....guarda che domenica sono arrivato secondo alla gara via web del concorso "Il cerca soluzioni per macro anche nel web".
Ciao