Crea foglio riepilogo

Hai un problema con Excel?

Nuova discussione

Crea foglio riepilogo
di Daniele (utente non iscritto) data: 23/10/2010
Ho una necessità. registro i sospesi dei clienti in vari fogli excel, che rinomino con i nomi dei clienti. il saldo di ogni cliente mi conpare in ogni foglio nella cella e1. vorrei creare un foglio di riepilogo finale, dove, ad esempio nella cella a2, mi riporti il totale dei saldi dei vari fogli. tutto questo se nelle rispettive celle e1 di ogni foglio il saldo è maggiore di 0 (zero). è possibile creare una funzione che mi faccia questo calcolo? apprezzo molto chi mi darà una soluzione semplice. se devo andare nel vba spiegatemi il tutto in modo molto semplice. grazie

di Ricky53 (utente non iscritto) data: 23/10/2010
Ciao,
allora:
inserisci un foglio con il nome "riepilogo"
copia in un modulo la macro che ti invio
e ... prova.

la macro somma tutte le celle "e1" (se contengono un numero maggiore di zero) nella cella "a2" del foglio "riepilogo".

ciao da ricky53

Sub Scrivi_Sospesi()
Sheets("Riepilogo").[A2].Value = 0
    For Each Ws In Worksheets
        If Ws.[E1].Value > 0 And UCase(Ws.Name) <> "RIEPILOGO" Then
            Sheets("Riepilogo").[A2].Value = Sheets("Riepilogo").[A2].Value + Ws.[E1].Value
        End If
    Next Ws
End Sub

di Daniele (utente non iscritto) data: 23/10/2010
Forse sbaglio in qualche cosa. mi potresti spiegare dove inserirla. scusami ma ho provato ad aprire vb ed inserire in worksheet ma non succede nulla. magari spiegami passo passo e riprovo. grazie
di Ricky53 (utente non iscritto) data: 23/10/2010
Ciao,
visto che avevi già utilizzato, con successo, l'altra macro delle "linguette" non ti ho descritto i passi da fare.

allora:
1. apri l'editor del "vb" con "alt+f11"
2. vai in vbaproject e seleziona "thisworkbook"
3. copia la macro
4. rimanendo nell'editor del "vb" esegui la macro con "f5"

se non ottieni i risultati attesi o hai degli errori scrivi i passi fatti e l'eventuale errore ottenuto.

ciao da ricky53
di Daniele (utente non iscritto) data: 23/10/2010
Ho fatto quanto detto, mi riporta il totale con la somma dei saldi. il primo risultato è stato raggiunto. solo che al variare di un saldo nei vari fogli il totale riportato nella casella a2 del riepilogo non si aggiorna. come mai? bisogna forse aggiungere qualche altra funzione? grazie

di Ricky53 (utente non iscritto) data: 24/10/2010
Ciao,
se vuoi l'aggiornamento dei dati nel "riepilogo" devi eseguire la macro ad ogni cambiamento.

si può fare in automatico quando attivi il foglio "riepilogo"

apri l'editor del "vb" e copia la macro che ti invio nel foglio "riepilogo" del "vbaproject"

modifica un dato in un foglio qualunque e vai sul foglio "riepilogo": vedrai la cella "a2" aggiornata.

ciao da ricky53

Private Sub Worksheet_Activate()
    Sheets("Riepilogo").[A2].Value = 0
    For Each Ws In Worksheets
        If Ws.[E1].Value > 0 And UCase(Ws.Name) <> "RIEPILOGO" Then
            Sheets("Riepilogo").[A2].Value = Sheets("Riepilogo").[A2].Value + Ws.[E1].Value
        End If
    Next Ws
End Sub

di Daniele (utente non iscritto) data: 24/10/2010
Perfetto, tutto come desideravo. funziona ogni cosa perfettamente. ti ringrazio del tuo aiuto. credo che avro' ancora bisogno delle tue capacita'.!!!
di Ricky53 (utente non iscritto) data: 24/10/2010
Mi fa piacere sapere di esserti stato utile.
per future necessità mi trovi qui.

buon proseguimento.

ciao da ricky53

Vuoi Approfondire?