somma se o macro

[zuzzumaja]

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

[Flash30005]

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

[ricky53]

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.

[zuzzumaja]

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

[Flash30005]

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

[zuzzumaja]

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

[Flash30005]

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

[zuzzumaja]

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

[Flash30005]

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

Ciao

P.s. i codici vba vanno inseriti nell'apposito Tag Code (vedi nell'editor)

[zuzzumaja]

per esempio non copia l'altezza riga o il formato carattere. se invece dovessi cancellare un pulsante copiato in tutti i fogli ?
tnk

[Flash30005]

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

[zuzzumaja]

Perfetto, argomento chiuso

grazie