Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

somma se o macro

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 se o macro

Postdi zuzzumaja » 17/11/12 13:46

Salve avrei necessita di sommare il contenuto delle cella E5 contenuta nei fogli da 1 a 100 (sono fogli ordini tutti uguali) quando nella casella C3 di ciascun foglio si inserisce il numero 23 nella cella ripilogativa E5 di un foglio denominato totale_ordine_23, memtre se inserisco il numero 24 in un foglio denominato totale_ordine_24 sempre nella casella E5.
In pratica se gli ordini vengono effettuati per il 23 del mese mi reipiloga tutto nel totale_ordine_23 (cella E5) altrimenti nel file del 24 (stessa cella) i fogli sono identici come quelli degli ordini
Spero di essere stato chiaro, grazie dell'aiuto
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Sponsor
 

Re: somma se o macro

Postdi Flash30005 » 17/11/12 15:15

Non ho ben capito "in pratica..."
se vuoi la somma di tutte le celle E5 di tutti i 100 fogli devi utilizzare questa formula
Codice: Seleziona tutto
=SOMMA(Foglio1:Foglio100!E5)


Per il resto mi sembra di capire che dipende da cosa inserisci in C3 su ogni foglio o mi sfugge qualcosa?

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: somma se o macro

Postdi ricky53 » 17/11/12 18:57

Ciao,
dopo aver letto quanto ti ha scritto Flash leggi le mie note.

Cerco di interpretare le tue esigenze.
Si deve sommare il contenuto della cella "E5" di ogni foglio se la cella "C3" di ogni foglio contiene il valore "23" e ... poi mi sono perso.
Dovresti chiarire.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: somma se o macro

Postdi zuzzumaja » 17/11/12 22:02

cerco di spiegarmi meglio, allora il file contiene 100 fogli, e sono tutti uguali. nella casella E5 ci sono i kg ordinare per quel prodotto.

Nella cella C3 di ogni foglio, bisogna indicare il giorno di consegna o il 23 o il 24, ho creato 2 fogli riepilogativi uno per consegna 23 e uno per consegna 24, dove mi dovrebbe sommare i kg a secondo della data di consegna.
esempio:
foglio 1 nella cella C3 metto "23" nella cella E5 "1"
foglio 2 nella cella C3 metto "23" nella cella E5 "1"
foglio 3 nella cella C3 metto "23" nella cella E5 "1"
foglio 4 nella cella C3 metto "24" nella cella E5 "1"
foglio 5 nella cella C3 metto "24" nella cella E5 "1"

nei fogli riepilogativi dovrebbe venire cosi
totale_ordine_23 nella cella E5 "3"
totale_ordine_24 nella cella E5 "2"

grazie
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: somma se o macro

Postdi Flash30005 » 18/11/12 02:54

Una macro che svolge il compito potrebbe essere questa
(anche se penso che è possibile ottenere il risultato utilizzando una formula)
Codice: Seleziona tutto
Sub SommaSe()
DataG = Worksheets("Riepilogo").Range("A2").Value
somma = 0
For FF = 1 To Worksheets.Count
    If Sheets(FF).Name <> "Riepilogo" Then
        If Sheets(FF).Range("C3").Value = DataG Then somma = somma + Sheets(FF).Range("E5").Value
    End If
Next FF
Worksheets("Riepilogo").Range("B2").Value = somma
End Sub


La cartella oltre ai 100 (o più fogli) ne contiene uno di nome "Riepilogo" altrimenti sostituisci il nome nella macro
In A2 di Riepilogo inserisci il giorno (23 o 24)
Potrai avviare la macro con tasti scelta rapida o alla variazione della cella A2 del foglio Riepilogo

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: somma se o macro

Postdi zuzzumaja » 18/11/12 10:27

grazie flash diciamo che siamo sulla buona strada. allora ho modificato la macro, in maniera tale che in G3, metto o 23 o 24 e mi restituisce la somma. (non funziona in automatico, devo mettere il numero dare invio e poi far partire la macro), l'altro problema è che la somma che mi fa in e5, me la dovrebbe fare anche in E6, E7....E150.

-----------------------------------------

Sub SommaSe()
DataG = Worksheets("Riepilogo").Range("g3").Value
somma = 0
For FF = 1 To Worksheets.Count
If Sheets(FF).Name <> "Riepilogo" Then
If Sheets(FF).Range("C3").Value = DataG Then somma = somma + Sheets(FF).Range("E5").Value
End If
Next FF
Worksheets("Riepilogo").Range("E5").Value = somma
End Sub
--------------------------
grazie
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: somma se o macro

Postdi Flash30005 » 18/11/12 11:16

Ok
allora sostituisci la macro con questa
Codice: Seleziona tutto
Sub SommaSe()
Set Ws1 = Worksheets("Riepilogo")
DataG = Ws1.Range("G3").Value
Application.EnableEvents = False
Ws1.Range("E5:E150").ClearContents
For FF = 1 To Worksheets.Count
If Sheets(FF).Name <> "Riepilogo" Then
If Sheets(FF).Range("C3").Value = DataG Then
For RR = 5 To 150
Ws1.Range("E" & RR).Value = Ws1.Range("E" & RR).Value + Sheets(FF).Range("E" & RR).Value
Next RR
End If
End If
Next FF
Application.EnableEvents = True
End Sub


e nel vba del foglio "Riepilogo"
inserisci questo codice che avvierà la macro ogni qualvolta modifichi G3
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$3" Then
SommaSe
End If
End Sub


ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: somma se o macro

Postdi zuzzumaja » 18/11/12 12:05

perfetto, ora dovrei copiare il formato celle del foglio template su tutti i fogli, utilizzo questa macro, che funziona perfettamente,ma mi copia solo il conenuto delle celle e non il formato. compresi eventuali pulsanti
-----------------------------------------
Codice: Seleziona tutto
Sub Macrocreata()
'
'
Sheets("template").Range("a1:e150").Copy Destination:=ActiveSheet.Range("a1:e150")
 '
 '
End Sub
-------------------------------------------
Sub Copia_fogli()
For NF = 1 To Worksheets.Count
If Worksheets(NF).Name <> "Template" Then
Worksheets(NF).Select
Call Macrocreata
Worksheets("Template").Select
End If
Next NF
End Sub
----------

grazie
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: somma se o macro

Postdi Flash30005 » 18/11/12 12:18

La macroCreata copia anche il formato di "Template"
forse volevi dire il contrario, cioè vuoi copiare solo i valori? :roll:

Ciao

P.s. i codici vba vanno inseriti nell'apposito Tag Code (vedi nell'editor)
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: somma se o macro

Postdi zuzzumaja » 18/11/12 13:26

per esempio non copia l'altezza riga o il formato carattere. se invece dovessi cancellare un pulsante copiato in tutti i fogli ?
tnk
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34

Re: somma se o macro

Postdi Flash30005 » 18/11/12 19:17

La riga codice copia anche i formati a meno che tu non abbia nascosto le righe o rimpiccolite fino a non vedersi
comunque implementando di un'ulteriore comando ottieni anche la formattazione forzata
Codice: Seleziona tutto
Sub Macrocreata()

Sheets("Riepilogo").Range("a1:e150").Copy Destination:=ActiveSheet.Range("a1:e150")
Sheets("Riepilogo").Range("a1:e150").Copy
         Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False

End Sub


ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: somma se o macro

Postdi zuzzumaja » 22/11/12 18:01

Perfetto, argomento chiuso

grazie
zuzzumaja
Utente Junior
 
Post: 65
Iscritto il: 26/08/09 13:34


Torna a Applicazioni Office Windows


Topic correlati a "somma se o macro":


Chi c’è in linea

Visitano il forum: raimea e 5 ospiti