Somma

Salve a tutti,
Mi servirebbe un aiuto per gestire al meglio la quantità di prodotto in arrivo e la quantità del lavorato
Descrizione :

Ho 31 file che rappresentano i giorni del mese, in ogni file c'e' la somma del prodotto in ingresso e la somma del prodotto lavorato vorrei saper se c'e' la possibilità di creare un file TOTALE (magari una macro) che mi permetta di sommare velocemente tutti i giorni

Grazie

Ciao Gaetano6791, domanda hai 31 file o 31 fogli?
Penso non dovrebbero esserci problemi a fare la somma, solo che dovresti allegare un file di esempio che rispecchi la tua struttura del file originale in modo da capire bene come impostare la/e formula/e.

Ciao,
Ho allegato il file (naturalmente nella cartella di lavoro sono 31 come i giorni del mese). Nel suo interno ci sono 3 pagine il mio intento è di riuscire a creare un foglio TOTALE che mi permetta di sommare le celle M25 e M26 (3 foglio) di tutti i file

Grazie

Cia Gaetano791, non per entrare nel merito del tuo lavoro ma non era più semplice avere tutto in un file?
31 fogli uno per giorno ed ogni foglio avere i 3 turni in verticale.
In questo modo occorre una macro e io......
cmq, se puoi dare altre informazioni che possono servire ad altri per aiutarti vuoi

---

...un file TOTALE che mi permetta di sommare le celle M25 e M26 (3 foglio)

---

solo del 3 foglio?
I 31 file si trovano tutti nella stessa cartella come hai detto, i fogli si chiamano tutti allo stesso modo, e non saranno di sicuro tutti aperti vero?

Purtroppo mi trovo a lavorare con dei file obsoleti ma non possono essere cambiati per la facilità di inserimento e stampa (non per denigrare i miei colleghi ma sono come dire un po' scarsini).
Si i file sono tutti uguali cambiano solo di nome 1..2..3...ecc e le celle da sommare sono sempre nella stessa posizione. Volevo ovviare con una bella formula di somma solo che ho paura che mi saltino i collegamenti....

Grazie

Ciao la somma la puoi fare o con formula:
1)Crea un file nuovo "TOTALI" dove in D3 metti i valori di M25 ed in D4 quelli di M26 (il nome file e le celle sono indicativi)
2)apri il file 1 ed il file 2
3)vai al file TOTALI sulla cella dove vuoi inserire il calcolo D3 e comincia a scrivere "=" (senza apici)
4)usando il mouse, seleziona il primo file, il foglio 3-TURNO e la cella M25 da sommare (click sulla cella)
5)scrivi "+" (senza apici); ripeti la scelta nel file 2 e pigia Enter
Vedrai una formula tipo
=[1.xls]3-TURNO'!$M$25+ [2.xls]3-TURNO'!$M$25

A questo punto puoi chiudere i 2 file che hai richiamato nella formula, e vedrai che la formula cambiera' in qualcosa come
='C:\Documents and Settings\Utente\Desktop\Nome cartella dei 31 File\[1.xls]3-TURNO'!$M$25+ecc...ecc...

Ora non hai bisogno di avere tutti i 31 file aperti per scrivere la formula, puoi usare il copia/incolla, modificando solo il nome file 3.4.5...31, per completare la formula.

Poi, per avere la somma anche di M26 copia la formula da D3 a D4 e posizionandoti sulla D4 nel menu selezioni "Trova" ed inserisci $M$25 ed in "Sostituisci" metti $M$26.

Questo per quanto riguarda la formula se invece vuoi la macro fai sapere.

Si la formula la conoscevo avevo pensato anche di utilizzarla ma ho paura che salti perchè i miei colleghi sono un pò smanettoni...volevo se era possibile una macro che mi permettesse di bloccare tutto e rendere la somma piu' facile...

Grazie lo stesso per la tua disponibilita' @Berna11

Ciao Gaetano,
se vuoi provare con la macro ti invio un file TOTALI che contiene una macro che ti fa la somma dei 31 fogli 3 TURNO M25-M26 e te le riporta sul foglio1 di questo file.
Devi fare queste modifiche dal menuMacro entra trovi la macro CreaSomme clicca su modifica e alla riga:
Percorso = "C:\Users\.......\Desktop\Nome cartelle\"
devi inserire il tuo percorso dove si trova la cartella contenente i 31 file ti ho messo i .... ho laciato desktop ma se non si trova li puoi modificare ed infine ho scritto nome cartella inserisci il nome della tua cartella.
Poi salva e riapri e prova a cliccare sul pulsante.
A me l'ha fatta la somma.

non riesco a trovare il file....

prova ora

forse saro' io un po' come dire ignorante sulle macro ma non ci riesco...
Ti scrivo il mio percorso se puoi aiutarmi ancora una volta te ne sarei grato...
La cartella si trova sul desktop --->00 - FOGLIO PRODUZIONE----> 01 Gennaio---> 01.xls, 02.xls.....31.xls, TOTALE

Grazie

Cia Gaetano, dunque questa è la macro:

Dove vedi la Riga che inizia con Percorso al posto dei puntini devi inserire il percorso tuo se ho capito bene i tuoi 31 file si trovano sul Desktop su una cartella che si chiama Foglio Produzione dentro la quale hai un'altra cartella Gennaio che contiene i 31 file.
Se è così l'ultima parte del percorso l'ho inserita io dovrebbe essere giusta.
Cmq puoi copiare ed incollare il percorso andando nella cartella che contiene i 31 file (credo si chiami Gennaio)clicca con il tasto destro del mouse si apre una finestra dopo qualche riga trovi scritto Percorso: inizia con C...... copia tutta la riga e la incolli nella macro dopo Percorso = facendo attenzione a non toglere le "" dopo il segno = ed alla fine.
Inoktre se in nome della cartella che contiene 1 31 file alla fine non c'è prima di \" lo metti tu.
come nell'esempio qui sotto della macro.







p.s. eventuelmente dimmi che tipo di errore ti da.

mi da questo errore

Set ThisWb = ThisWorkbook

Percorso = "C:\.....\Desktop\00 - Foglio Produzione\01 - Gennaio\"

For K = 1 To 31

Set wb = Workbooks.Open(Percorso & CStr(K) & ".xls") <-----

Ciao Gaetano,
sei sicuro che i nomi sono esatti e che la cartella contiene 31 file + quello TOTALE?
altrimenti varia il N. 31 di questa riga con i N.esatto
For K = 1 To 31
Ti allego la cartella dove ho fatto le prove
inserisci il tuo nome nel percorso al posto dei ....
vedrai che come file ho lasciato 3 perchè ho fatto la prova solo su 3.
Dopo aver rettificato il percorso clicca su "Aggiorna Somma" e vedrai comparire i totali nelle 2 celle gialle.
Ricrea la stessa situazione nella tua cartella e dovrebbe funzionare.

Ciao Berna
Ho estratto il tuo file sul mio desktop...ho aperto la cartella 00 - produzione e poi ho aperto la cartella 01 - gennaio. Poi successivamente ho aperto il file 01 modificando uno dei valori....
ho salvato...ed ho aperto il file TOTALE ho cliccato su aggiorna somma e mi da lo stesso errore...

Ti allego la mia cartella che è sul desktop

Ciao Gaetano, ti rimando la cartella.
1-- Metti su Desktop 00--Foglio Produzione.
2-- entra nel foglio TOTALI e vai ad inserire il tuo percorso e salva.
3-- riapri Totali e clicca su Aggiorna somma.
Ti dovrebbe dare il primo 2 ed il secondo 0
Per fare le prove nel file 1 e 2 di gennaio ho tolto la formula ed ho messo 1 sui due fogli cancella e rimetti la formula o metti altro N. per verificare.
Visto che i file hanno dei collegamenti con altri file (io li ho lasciati così) quando esegue la macro da errore di collegamento per ogni file bisogna cliccare su aggiorna e su conferma o dare di continuo invio fin quando non finisce.
Se questi collegamenti sono dovuti ad errori causa copia di file devi andare su menu dati-->modifica collegamenti-->Interrompi su ogni file.
Per quanto riguarda l'errore, non so correggerlo non sono pratico di VBA ma lo da se i file da 1 a 9 hanno davanti lo 0 tipo 01,02,....io li ho messi senza 0 e funziona.

purtroppo non funziona....domani cerco di dedicarmi un po'....
Grazie lo stesso!!!!!!

Ciao Gaetano mi dispiace che ti da problemi ma non spieghi quali.
Ti mando il file Totali salvato con Excel 97-2003 vedo che usi questa versione.
Sostituisci quello che ho mandato prima con questo ma ricorda sempre di sistemare il percorso al posto dei...

mi da sempre lo stesso errore...

Set ThisWb = ThisWorkbook

Percorso = "C:\......\Desktop\00 - Foglio Produzione\01 - Gennaio\"

For K = 1 To 31

Set wb = Workbooks.Open(Percorso & CStr(K) & ".xls") <<------QUESTO

Mi sembra strano a me funziona.
hai fatto tutto in modo corretto?

1 - Percorso = "C:\......\ hai inserito al posto dei ..... il tuo percorso?
2 - i file di 01-Gennaio sono 31?
3 - dal giorno 1 al 9 hai lasciato "senza" lo 0 avanti?(01)
4 - la cartella dopo averla estratta dallo .Rar hai messo su desktop
00-Foglio produzione?
5 - il file Totali si trova dopo il mese 12 - Dicembre=
6 - dai le attivazioni macro?
Ricontrolla bene tutte queste operazioni di sicuro qualcosa è errata.

1 - Percorso = "C:\......\ hai inserito al posto dei ..... il tuo percorso?
questo non l'ho capito il mio percorso non è
Percorso = "C:\......\Desktop\00 - Foglio Produzione\01 - Gennaio\"
Questo?


2 - i file di 01-Gennaio sono 31?
I file di gennaio sono 31

3 - dal giorno 1 al 9 hai lasciato "senza" lo 0 avanti?(01)
si ho tolto gli 0

4 - la cartella dopo averla estratta dallo .Rar hai messo su desktop
00-Foglio produzione?
Si è sul desktop
5 - il file Totali si trova dopo il mese 12 - Dicembre=
si si trova li dopo il mese di 12 - Dicembre

6 - dai le attivazioni macro?
attivo le macro

questo non l'ho capito il mio percorso non è
Percorso = "C:\......\Desktop\00 - Foglio Produzione\01 - Gennaio\"
Questo?
Di sicuro il problema è qui.
Al posto dei .... devi inserire il tuo di percorso cioè il tuo nome del Pc.
Ti avevo detto qualche post indietro di cliccare con tasto destro del mouse sopra alla cartella 00-Foglio Produzione si apre una finestra in fondo trovi Proprietà clicca si apre altra finestra leggi e trovi scritto Percorso.
Dopo C:\ copia quello che c'è fino a prima di Desktop e
e
lo incolli al posto dei puntini......
Spero sia più chiaro ora.

Percorso = "C:\......\Desktop\00 - Foglio Produzione\01 - Gennaio\"
Questo?
Di sicuro il problema è qui.
Al posto dei .... devi inserire il tuo di percorso cioè il tuo nome del Pc.
Ti avevo detto qualche post indietro di cliccare con tasto destro del mouse sopra alla cartella 00-Foglio Produzione si apre una finestra in fondo trovi Proprietà clicca si apre altra finestra leggi e trovi scritto Percorso.
Dopo C:\ copia quello che c'è fino a prima di Desktop e
e
lo incolli al posto dei puntini......

Fatto
Percorso = "C:\ Users \Principale \ Desktop \00 - Foglio Produzione\ 01 - Gennaio \"

For K = 1 To 31

Set wb = Workbooks.Open(Percorso & CStr(K) & ".xls") <<-----errore

Ciao Gaetano ti rimando il file con il tuo nome nel percorso inserito.
A me sostituendo il tuo nome nel percorso con il mio funziona
se non dovesse funzionare a questo punto non so più cosa fare.

Grazie funziona benissimo!!!!!!
Sei stato gentilissimo nel sopportarmi....!!!!
Ho solo un ultima domanda il file totale avanza anche se utilizzo i file degli altri mesi?
Grazie

Evviva!!!!!!
Per gli altri mesi no non funziona bisogna integrarlo.
Ti avevo mandato un messaggio privato non l'hai ricevuto o non sei abilitato?
Mandamelo tu un MP così ti rispondo e ti spiego cosa fare.


P.s. ma ti da errori di collegamenti??