Cella con rtotale (anche intermedio)

Credetemi, ho provato in ogni maniera (con le mie poche conoscenze)
ma non ho risolto il problema (vedi file allegato).
Nella colonna A posso avere "articolo" o "totale" (da Convalida).
Vorrei questo:
- Se scelgo "articolo" in A1, in B1 esce un numero (nel mio caso "1").
- Se scelgo "totale" in qualsiasi cella di A, vorrei che nella
corrispondente riga B mi uscisse il totale delle celle B sopra.
Questo dovrebbe capitare in qualsiasi cella della colonna B, nel
senso che potrei avere anche più totali per foglio.
Si può fare?
Grazie.

ciao,
sono nuovo del forum, cmq per quanto riguarda il tuo caso, potresti sostituire la tua formula con : =SE(A2="articolo";1;SE(A2="totale";SOMMA(B$1:B1);"")) ma devi partire dalla 2ªriga e non ti da i parziali.

Per quelli devi usare il vba
Non sapendo come mettere gli allegati, ti metto il codice:

Private Sub CommandButton1_Click()
fineR = Range("a65536").End(xlUp).Row
Set area = Range("a1:a" & fineR)
For Each cl In area
If cl = "articolo" Then tot = tot + 1

tot = cl.Offset(0, 1) + tot
If cl = "totale" Then
cl.Offset(0, 1) = tot
Else
cl.Offset(0, 1) = ""
End If
Next
MsgBox ("Fine Calcolo")

End Sub

ciao masfur,

prova anche questa soluzione.


aurelio

prova anche questa che usa i Subtotali (menu Dati) ed é semplice.
Ieri ti ho proposto una soluzione che se l'hai esplorata potrà servirti. Ma applica questa.

1/ metti un titolo alle colonne (es. Testo ; Valori)
2/ Menu Dati / Subtotali
3/ ti trovi le soluzioni che cercavi
[ad ogni cambiamento in: ---> Testo]
[Usa la funzione: Somma]
[aggiungi subtotali a : spunta ---> Valore]


Bazooka73 benvenuto
per allegare un file:
1/ il file che vuoi immettere devi prima compattarlo zip
2/ login & compagnia bella--> Rispondi
3/ immetti il tuo testo
4 in basso sx spunta Allegato
5/ Rispondi
6/ ti porta a selezionare il file compattato archivio e poi é procedura intuitiva

Ciao.
aurelio

grazie aurelio, al moment oopportuno utilizzarò i tuoi presiosi consigli.

Ciao

Ciao Masfur, una possibile soluzione è questa, mi riferisco al tuo file, ho reso sensibile alla selezione la cella "C1" quindi nel codice del foglio1 devi inserire questo codice, poi seleziona una cella qualsiasi e quando vuoi il risultato vai su "C1" che lancia la macro.

---

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Application.EnableEvents = False
ind = Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)
If ind = "C1" Then vai
Application.EnableEvents = True
End Sub

---

in effeti lancia una macro intitolata "vai", ma puoi cambiare anche il nome della macro, logicamente cambiando anche il nome alla macro.
La macro è questa e devi inserirla in un modulo, crei il modulo e la copi.

che cosa fa la macro, conta quante righe sono occupate, poi controlla tutta la colonna "A" dove è scritto "articolo", prende il dato della colonna "B" e lo somma nella variabile "tot", appena trova nella colonna "A" la parola "totale" scarica la variabile "tot" nella cella "B" corrispondente, mette la variabile a 0 zero per un nuovo calcolo successivo, e questo fino alla fine dei dati.
una nota ATTENZIONE che i nomi "totale" e "articolo" sono case sensitive, quindi fa differenza tra maiuscolo e minuscolo, nel caso che "articolo" da quello che capisco può essere diverso ogni volta, me lo fai sapere che ti modifico la macro in modo che veda diversi articolo, anzi la scrivo così non c'è bisogno di aspettare
sostituisci la prima riga con la seconda

---

If Cells(y, 1) = "articolo" Then tot = tot + Cells(y, 2)

con questa

If Cells(y, 1) <> "totale" Then tot = tot + Cells(y, 2)

---

in questo modo quando trova il nome "totale" scrive il totale, per tutte le altre le somma.
per il momento ti saluto fammi sapere Ciao By Sal

Grazie BySal. Quello che volevo. Grazie.