Condividi:        

somma di cerca.vert

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

somma di cerca.vert

Postdi marcoc » 04/06/09 13:51

ciao a tutti,
ho 12 fogli nello stesso file, uno per mese.
Ogni foglio ha tot record, che non necessariamente si ripetono negli altri fogli
Ogni foglio ha però le stesse intestazione di colonna.
Mi servirebbe, in un 13mo foglio, la somma dei valori dell'anno di tutti i record presenti, colonna per colonna.
In pratica, è come se fosse una somma di 12 cerca.vert.
Non è applicabile la somma 3D (es: =SOMMA(foglio1:foglio12!A1:M1) ) poiche, le righe non sono sempre le stesse in ogni foglio.
che dite?
Avatar utente
marcoc
Utente Senior
 
Post: 317
Iscritto il: 22/03/07 21:58
Località: Nerviano

Sponsor
 

Re: somma di cerca.vert

Postdi Anthony47 » 04/06/09 15:55

Non ho capito cosa c' entra il cerca.vert, visto che chiedi "la somma dei valori dell'anno di tutti i record presenti, colonna per colonna".
Il mio suggerimento e' che in riga 1 di ogni colonna fai la somma di tutti i valori contenuti, tipo =Somma(xx2:xx65535) (dove xx e' il valore di colonna; basta mettere
Codice: Seleziona tutto
=Somma(A2:A65535)
in A1 e poi copi verso destra).
Infine userai le formule 3D per crearti la somma di tutte le celle A1, B1, etc.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: somma di cerca.vert

Postdi marcoc » 04/06/09 16:21

cerco di spiegarmi meglio con un esempio pratico, con 3 fogli:

in colonna A ho:
nel foglio1: AAA in riga2, CCC in riga3, BBB in riga4
nel foglio2: AAA, CCC, DDD
nel foglio3: AAA, BBB, EEE, FFF

in colonna B ho:
nel foglio1: 1, 5, 10
nel foglio2: 4, 8, 9
nel foglio3: 3, 2, 4, 11

nel foglio riassuntivo vorrei che risultasse avere:
colonna A; colonna B
AAA; 8 (ovvero 1+4+3)
BBB; 12 (ovvero 10+2)
CCC; 13 (ovvero 5+8)
DDD; 9
EEE; 4
FFF; 11
è per questo che citavo il cerca.vert.

se non è ancora chiaro, provo a rispiegarlo ancora
Avatar utente
marcoc
Utente Senior
 
Post: 317
Iscritto il: 22/03/07 21:58
Località: Nerviano

Re: somma di cerca.vert

Postdi Anthony47 » 04/06/09 21:51

se non è ancora chiaro, provo a rispiegarlo ancora
Basta spiegarlo bene una volta, senza contraddizioni, e riesco a capire.
Premesso che io avrei organizzato i dati su un unico foglio, giocando con il filtro per vedere i dati di uno specifico mese e con una o piu' tabelle pivot per avere i riepiloghi annui o mensili, suggerisco di procedere come segue:
-sul foglio Riepilogo, ti costruisci in col A l' elenco delle voci che vuoi visualizzare
-su riga 1, da B1 verso dx scrivi Gennaio!B:B, Febbraio!B:B, etc (nell' ipotesi che Gennaio, Febbraio etc siano i nomi dei vari fogli mensili)
-poi in B2 usi una formula del tipo
Codice: Seleziona tutto
=SOMMA.SE(INDIRETTO(B$1);$A2)
che poi copi verso dx e verso il basso
-in questo modo riporti su riepilogo i totali dei vari mesi, che poi sommi nella prima colonna libera.

L' elenco di col A lo potresti anche creare tramite Filtro avanzato, opzione Copia univoca dei record, Copia in altra posizione.

Fai sapere, ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: somma di cerca.vert

Postdi marcoc » 17/07/09 21:15

ciao Anthony, scusa se rispondo dopo oltre un mese.
Se nel foglio riassuntivo in B1 scrivo "Gennaio!B:B", da B2 all'ultimo in basso mi compare "0".
Se in B1 invece scrivo "=Gennaio!B:B", da B2 in giù compare sempre "#RIF!".
Cosa sbaglio?
Avatar utente
marcoc
Utente Senior
 
Post: 317
Iscritto il: 22/03/07 21:58
Località: Nerviano

Re: somma di cerca.vert

Postdi Anthony47 » 18/07/09 19:33

Non mi ricordo il quesito, ne' ho mantenuto il foglio di prova su cui avevo basato quella formula; devo ripartire da zero, sono in viaggio e "purtroppo" mi servira' un po' di tempo...

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: somma di cerca.vert

Postdi pietrol » 18/07/09 21:15

Ciao marcoc
impostare i tuoi dati su un solo foglio :) (quindi aggiungendo una colonna "mese") renderebbe molto semplice ottenere il riepilogo che ti serve.
Altrimenti, mantenendo l'attuale struttura :-? , potresti utilizzare la funziona di consolidamento dati (menu Dati/Consolida, sull'help cerca "Consolidare dati").

Fai sapere
ciao
pietrol
il lupo ululà, il castello ululì
pietrol
Utente Senior
 
Post: 270
Iscritto il: 07/01/09 14:34

Re: somma di cerca.vert

Postdi Anthony47 » 23/07/09 23:41

Riarticolo meglio il mio messaggio di qualche tempo fa:

Premesso che io avrei organizzato i dati su un unico foglio, giocando con il filtro per vedere i dati di uno specifico mese e con una o piu' tabelle pivot per avere i riepiloghi annui o mensili, suggerisco di procedere come segue:
-sul foglio Riepilogo, ti costruisci in col A, da A2 in giu', l' elenco delle voci che vuoi visualizzare
-su riga 1, da B1 verso dx scrivi Gennaio!A:A, Febbraio!A:A, etc (nell' ipotesi che Gennaio, Febbraio etc siano i nomi dei vari fogli mensili)
-poi in B2 usi una formula del tipo
Codice: Seleziona tutto
=SOMMA.SE(INDIRETTO(B$1);$A2;SCARTO(INDIRETTO(B$1);0;1))

che poi copi verso dx e verso il basso
-in questo modo riporti su riepilogo i totali dei vari mesi, che poi sommi nella prima colonna libera.

L' elenco di col A lo potresti anche creare tramite Filtro avanzato, opzione Copia univoca dei record, Copia in altra posizione.

Spero che funzioni anche per te, ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: somma di cerca.vert

Postdi Flash30005 » 24/07/09 01:49

Vedi se ti va bene questa macro (la si può far attivare ad ogni aggiornamento di uno o più fogli)
Codice: Seleziona tutto
Sub Riepilogo()
Dim Var(13) As String
URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row  '<<< correzione macro
If URR < 2 Then URR = 2                                    '<<< correzione macro
    Worksheets("Riepilogo").Select                                   '<<< correzione macro
    Range("A2:B" & URR).Select                                   '<<< correzione macro
    Selection.ClearContents                                   '<<< correzione macro


FogliEs = Worksheets.Count
For I = 1 To FogliEs
    If Sheets(I).Name <> ("Riepilogo") Then
        Var(I) = Sheets(I).Range("A" & Rows.Count).End(xlUp).Row
        For R = 2 To Var(I)
        Trov = 0
            URR = Worksheets("Riepilogo").Range("A" & Rows.Count).End(xlUp).Row + 1
            For RR = 2 To URR
                If Sheets(I).Range("A" & R).Value = Worksheets("Riepilogo").Range("A" & RR).Value Then
                Trov = Trov + 1
                Worksheets("Riepilogo").Range("B" & RR).Value = Worksheets("Riepilogo").Range("B" & RR).Value + Sheets(I).Range("B" & R).Value
                End If
            Next RR
                If Trov = 0 Then
                Worksheets("Riepilogo").Range("A" & URR).Value = Sheets(I).Range("A" & R).Value
                Worksheets("Riepilogo").Range("B" & URR).Value = Sheets(I).Range("B" & R).Value
                End If
        Next R
End If
Next I
Sheets("Riepilogo").Select
Range("A2:B" & URR - 1).Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortTextAsNumbers
Range("A1").Select

End Sub


Invio anche il file test

Ciao


Avviso: il codice postato è stato corretto in data 27/07/2009 per evitare di cancellare tutte le celle del foglio "Riepilogo" nel caso fossero riportati altri dati oltre a quelli generati dalla macro.
Il file test è rimasto invariato e senza la modifica delle cinque righe di codice può essere usato solo come test
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: somma di cerca.vert

Postdi marcoc » 26/08/09 11:24

ok, grazie ad entrambi, sono entrambe due soluzioni valide.
Come forse sapete, sono un po'ostico alle macro, preferisco sempre le formule.
alla prossima
Avatar utente
marcoc
Utente Senior
 
Post: 317
Iscritto il: 22/03/07 21:58
Località: Nerviano


Torna a Applicazioni Office Windows


Topic correlati a "somma di cerca.vert":


Chi c’è in linea

Visitano il forum: Nessuno e 87 ospiti