Somma celle da più fogli

[umbeumbe]

Ciao a tutti,
(Windows 7- excel 2010)
Dovrei sommare la stessa cella da più fogli; avevo trovato questa
formula in un vecchio post (nov.2009)
=SOMMA(Foglio1!:Foglio20!Z8) ma mi da "la formula contiene un errore"
e lampeggia Foglio20!
Manca qualcosa o su exel 2010 non va bene? Grazie e buona giornata.
umberto

[Scossa]

C'è un ! di troppo:

=SOMMA(Foglio1:Foglio20!Z8)

Bye!
Scossa

[umbeumbe]

Ciao Scossa, grazie ancora e buona giornata.
umberto

[umbeumbe]

> umberto- Nascondi testo citato
>
> - Mostra testo citato -

Come posso fare, copiandola in basso, perchè sommi ogni 6 righe ...
tipo:
=somma(Foglio1:Foglio20!Z8 + 6 ) cioè dovrei sommare le celle Z14,
Z20,Z26 ecc

[-DespoT- e basta]

Ciao, spiego velocemente la situazione
ho 52 fogli nominati da 52 a 1 (le settimane)
ed un primo foglio che mi calcola le statistiche annuali.
per cui se devo sommare tutte le celle ad esempio T3, attualmente l'unica soluzione funzionante è:

=SOMMA('1'!T3;'2'!T3;'3'!T3;'4'!T3;'5'!T3;'6'!T3;'7'!T3;'8'!T3;'9'!T3;'10'!T3;'11'!T3;'12'!T3;'13'!T3;'14'!T3;'15'!T3;'16'!T3;'17'!T3;'18'!T3;'19'!T3;'20'!T3;'21'!T3;'22'!T3;'23'!T3;'24'!T3;'25'!T3;'26'!T3;'27'!T3;'28'!T3;'29'!T3;'30'!T3;'31'!T3;'32'!T3;'33'!T3;'34'!T3;'35'!T3;'36'!T3;'37'!T3;'38'!T3;'39'!T3;'40'!T3;'41'!T3;'42'!T3;'43'!S3;'44'!S3;'45'!T3;'46'!T3;'47'!T3;'48'!T3;'49'!T3;'50'!T3;'51'!T3;'52'!T3)

ora se devo ad aumentare i calcoli e per esempio sommare solo se la casella T3 è maggiore di 5 devo andare ad inserire 52 strignghe... non mi viene più sera.

usare =SOMMA(1:20'!T3) o simili non funziona.

Qualcuno ha idee?

[Bruno Campanini]

After serious thinking -DespoT- e basta wrote :

===============================
Public Sub Fogli53()
Dim i, S
For i = 1 To 52
If Sheets(CStr(i)).Range("T3") > 5 Then
S = S + Sheets(CStr(i)).Range("T3")
End If
Next
MsgBox S
End Sub
===============================

Ho creato 53 fogli (d o a 52) e da 1 a 52 ho posto dei valori.
In S la somma dei T3>5

Bruno

[Ammammata]

Bruno Campanini submitted this idea :

> ===============================
> Public Sub Fogli53()
> Dim i, S
> For i = 1 To 52
> If Sheets(CStr(i)).Range("T3") > 5 Then
> S = S + Sheets(CStr(i)).Range("T3")
> End If
> Next
> MsgBox S
> End Sub
> ===============================
>
> Ho creato 53 fogli (d o a 52) e da 1 a 52 ho posto dei valori.
> In S la somma dei T3>5

si potrebbe quindi fare anche una Function che prende nota della cella
in cui viene inserita (p.e. G1), del foglio (Sheet1) e quindi cicla su
tutti i fogli esistenti, escluso il proprio, sommando i valori delle
celle corrispondenti

in G1 si mette per esempio =SumSheets()

una cosa tipo questo Mock-up, lascio a voi il piacere di aggiustare la
sintassi e le variabili da inizializzare

===============================
Public Function SumSheets() as Long
'
Dim iWs As Worksheet
Dim Total As Long
'
Total=0
MyRef = [riferimento alla mia cella]
MySheet = [riferimento al mio foglio]
'
For Each iWs In Worksheets
iWs.Activate
If iWs.Name <> MySheet Then
Total = Total + Indirect(MyRef)
End If
Next iWs
'
End Function
===============================

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

[-DespoT- e basta]

...chiedo scusa, ma non ho capito nulla...