Somma colonna

Hai un problema con Excel?

Nuova discussione

Somma colonna
di Jack (utente non iscritto) data: 25/02/2012
Ciao a tutti,
spero che qualcuno riesca ad aiutarmi, ecco il dilemma:

io ho un file che contiene una macro registrata che esegue diverse formule ...
nella colonna y ho diverse righe (tutte consecutive) che contengono numeri, avrei bisogno che la macro capisca quando trova la 1° cella vuota e inserisca il totale di tutte le righe soprastanti

esempio:
y1= titolo colonna
da y2 a y11 = contengono tutte numeri
il comando deve capire che y12 è la prima cella vuota di conseguenza in questa cella devo avere la somma dei valori da y11 a y2

in altri foglio potrò avere i numeri da y2 a y26 o altro ancora quindi non sono a conoscenza di quale saà la prima cella nuova

grazie
ciao

di Locate (utente non iscritto) data: 25/02/2012
Ciao

ti passo una semplice macro per questo lavoro

ciao da locate

Sub SommaParziale()
Dim i As Variant
Dim Somma As Long
Dim Cella As Variant
Somma = 0
For i = 2 To 1000
 Cella = Cells(i, 25)
 If Cella <> "" Then
   Somma = Somma + Cella
 Else
   Cells(i, 25) = Somma
   GoTo fine
 End If
Next i
fine:
End Sub

Grazie
di Jack (utente non iscritto) data: 26/02/2012
Ciao locate,
e grazie mille!

stavo lavorando sul file (l'ho allegato per capirci)
mi sono reso conto che avrebbe bisogno ancora di un paio di modifiche.
1)come puoi vedere dalla macro1 io trascino le 2 formule nelle colonne y e z fino alla riga 41, e questo rimane un'istruzione statica, se fosse possibile sarebbe meglio che le formule vengano trascite fino a quando nella corrispondende colonna g c'è il testo.
2)la tua macro è perfetta solo che mi sono reso conto che sarebbe meglio se il totale venga aggiornato in tempo reale, nel senso che se modifico un valore nella colonna, il totale deve aggiornarsi senza rilanciare la macro.

dici che si può fare?
grazie ancora ciao

di Locate (utente non iscritto) data: 26/02/2012
Ciao

il file che ai allegato e' una cartella con maschere in html e non un file excel, comunque ti allego una macro che va ad inserire in automatico sempre sulla colonna y la funzione somma()

ciao da locate

Sub Funz_Somma()
Dim i As Variant
Dim FunzSomma As String
Dim Cella As Variant
For i = 2 To 1000
 Cella = Cells(i, 25)
 If Cella = "" Then
    FunzSomma = "=SUM(R[-" & i - 2 & "]C:R[-1]C)"
   Cells(i, 25).Select
   ActiveCell.FormulaR1C1 = FunzSomma
   GoTo fine
 End If
Next i
fine:
End Sub

Va benissimo
di Jack (utente non iscritto) data: 27/02/2012
Ok così va benissimo
grazie 1000!

ciao

Vuoi Approfondire?