Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

totale di piu file su un foglio master

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

totale di piu file su un foglio master

Postdi alxleon2000 » 04/05/13 19:24

Un saluto a tutti
Avrei bisogno di sapere se possibile sommare Es " b32 " di vari file ES " c:\gennaio\ 01.01.2013 - 02.01.2013 - C:\ febbraio\01.02.2013-01.02.2013 ecc"
in una unica cella di un foglio master
premetto che i file vengono creati giorno per giorno e che quindi non dovrei avere errore anche se il file non è al momento presente
Es " c:\ luglio\01.07.2013-02.07.2013"

Saluti
Alex
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16

Sponsor
 

Re: totale di piu file su un foglio master

Postdi alxleon2000 » 05/05/13 09:20

io ho iniziato a fare questo
ub totale()
'
' totale Macro
'

'
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Windows("Report totale 1.xlsm").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
ActiveCell.FormulaR1C1 = _
"=[01.01.2013.xlsx]Foglio1!R30C7+[04.01.2013.xlsx]Foglio1!R30C7+[05.01.2013.xlsx]Foglio1!R30C7+[01.02.2013.xlsx]Foglio1!R30C7"
Range("H8").Select
End Sub

però ho 2 problemi
1) se il file non è presente mi da #RIF1
2) non riesco a settare la cella di destinazione

qualche aiuto?

Grazie
Alex
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16

Re: totale di piu file su un foglio master

Postdi Gigi_ » 05/05/13 09:48

....pazienza.....
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 340
Iscritto il: 14/11/09 21:51

Re: totale di piu file su un foglio master

Postdi Gigi_ » 05/05/13 11:11

....dunque cannibalizzando un po' di vecchie routine ed i risultati di ricerche odierne ho costruito questa routine esteticamente poco elegante (ma da queste parti c'è sicuramente qualcuno che potrà ottimizzarla!) ma funzionale allo scopo...
Codice: Seleziona tutto
Option Base 1
Public ElencoFile(), percorso As String
Public ContatoreFile As Integer
Public TOTALE As Variant
Sub ricerca() ''<===costruiamo l'array ElencoFile() che conterrà tutti _
                    gli xls contenuti nel percorso dato
Dim StringaAppoggio As String
percorso = "G:\ABCD\CONTA_FILES\" '<===== quì il tuo percorso
ContatoreFile = 1
ReDim Preserve ElencoFile(ContatoreFile)
StringaAppoggio = Dir(percorso & "*.xls")
ElencoFile(ContatoreFile) = StringaAppoggio
While StringaAppoggio <> ""
   StringaAppoggio = Dir()
   If StringaAppoggio <> "" Then
      ContatoreFile = ContatoreFile + 1
      ReDim Preserve ElencoFile(ContatoreFile)
      ElencoFile(ContatoreFile) = StringaAppoggio
    End If
Wend
SOMMA_FILES
End Sub
Sub SOMMA_FILES()
TOTALE = 0 ' non ho capito perchè, ma senza questo azzeramento mi riportava il valore dell'esecuzione precedente ;-)
For OGNIFILE = 1 To ContatoreFile
TOTALE = TOTALE + PrendiDati(percorso, ElencoFile(OGNIFILE), "Foglio1", "B32") 'correggi se necessario il nome del foglio e quello della cella ricorrente
Next OGNIFILE
Range("B32").Value = TOTALE 'io ho usato B32 del foglio "somma" per visualizzare il totale, _
                             tu, ovviamente, puoi adattarlo alle tue esigenze
End Sub
Private Function PrendiDati(percorso, nomefile, Foglio, rif)
Dim Arg As String
Arg = "'" & percorso & "[" & nomefile & "]" & Foglio & "'!" & Range(rif).Range("A1").Address(, , xlR1C1)
PrendiDati = ExecuteExcel4Macro(Arg) 'preleva il dato
End Function

incolla il codice in un modulo del tuo foglio somma e...incrocia le dita 8)
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 340
Iscritto il: 14/11/09 21:51

Re: totale di piu file su un foglio master

Postdi alxleon2000 » 05/05/13 20:22

mi spieghi come inserire il nome del file? 01.01.2013.xls 02.01.2013.xls 03.01.2013.xls ecc

Sub ricerca() ''<===costruiamo l'array ElencoFile() che conterrà tutti _
gli xls contenuti nel percorso dato

grazie
Alex
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16

Re: totale di piu file su un foglio master

Postdi Gigi_ » 05/05/13 20:32

se li cerca lui
se ho capito bene, tu hai le cartelle mensili
ho presupposto che ogni cartella contenesse solo ed esclusivamente i file relativi al mese (più precisamente noi andiamo a cercare tutti i file xls)
a questo punto la routine li individua e poi ne preleva il singolo dato da ogni xls contenuto nella cartella "Mese"
a proposito occhio all'estensione xls / xlsx
ok?
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 340
Iscritto il: 14/11/09 21:51

Re: totale di piu file su un foglio master

Postdi Anthony47 » 06/05/13 10:49

Ciao alxleon2000, benvenuto nel forum.
Credo che l' idea di Gigi_ potrebbe risolverti il problema; la macro si attende di avere nel suo listato la directory del mese (vedi riga con commento "<===== quì il tuo percorso"), del foglio / cella che vuoi sommare (vedi riga con commento "correggi se necessario il nome del foglio e quello della cella ricorrente") e della cella in cui vuoi scrivere il risultato.
E' possibile che il tuo processo non possa convivere con queste impostazioni, ad esempio se hai bisogno di creare nello stesso file master riepiloghi di piu' celle o di piu' mesi.
Diciamo che alla tua domanda "Avrei bisogno di sapere se possibile sommare Es " b32 " di vari file in una unica cella di un foglio master" la risposta e' Si; se la proposta di Gigi_ non e' idonea allora devi descrivere il tuo processo e il tuo obiettivo e cercheremo di sviluppare ulteriormente la proposta.

Ciao a tutti.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: totale di piu file su un foglio master

Postdi alxleon2000 » 06/05/13 16:48

Anthony47 ha scritto:Ciao alxleon2000, benvenuto nel forum.
Credo che l' idea di Gigi_ potrebbe risolverti il problema; la macro si attende di avere nel suo listato la directory del mese (vedi riga con commento "<===== quì il tuo percorso"), del foglio / cella che vuoi sommare (vedi riga con commento "correggi se necessario il nome del foglio e quello della cella ricorrente") e della cella in cui vuoi scrivere il risultato.
E' possibile che il tuo processo non possa convivere con queste impostazioni, ad esempio se hai bisogno di creare nello stesso file master riepiloghi di piu' celle o di piu' mesi.
Diciamo che alla tua domanda "Avrei bisogno di sapere se possibile sommare Es " b32 " di vari file in una unica cella di un foglio master" la risposta e' Si; se la proposta di Gigi_ non e' idonea allora devi descrivere il tuo processo e il tuo obiettivo e cercheremo di sviluppare ulteriormente la proposta.

Ciao a tutti.


Spiego

Ho 31 file per il mese di gennaio davo fare la somma di es h10 in un unico foglio
potrei avere bisogno pero dalla somma di un'altra cella sempre nello stesso foglio

es h10 tutto gennaio su un foglio master
h15 tutto gennaio sullo stesso foglio ma con totali separati
questo si ripete con febbraio marzo ecc
da premettere che i file in questione vengono creati giorno per giorno
spero di essere stato chiaro

Grazie
Alex
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16

Re: totale di piu file su un foglio master

Postdi Anthony47 » 07/05/13 01:27

Perdona, mi sembra una analisi almeno superficiale... non hai nemmeno confermato se l' ipotesi di Gigi_ e' corretta o no.
Detto che "si puo' fare" adesso devi dire esattamente che cosa ti serve fare; o ci chiedi di preparare un compendio di tutto cio' che con excel si puo' fare?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: totale di piu file su un foglio master

Postdi alxleon2000 » 07/05/13 07:08

Anthony47 ha scritto:Perdona, mi sembra una analisi almeno superficiale... non hai nemmeno confermato se l' ipotesi di Gigi_ e' corretta o no.
Detto che "si puo' fare" adesso devi dire esattamente che cosa ti serve fare; o ci chiedi di preparare un compendio di tutto cio' che con excel si puo' fare?

Ciao

scusate pensavo di aver risposto a Gigi

la sua proposta va bene solo che avrei bisogno di una struttura di cartelle differente

Es " D:\FLASH_2013
Sotto cartelle 01 Gennaio 02 Febbraio ecc ecc
così non sarei legato ad un mese
percorso = "D:\01 GENNAIO\" '<===== qui il tuo percorso

questo foglio dovrebbe riportare il totale di ogni mese
una cella gennaio una febbraio
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16

Re: totale di piu file su un foglio master

Postdi Gigi_ » 07/05/13 10:58

Anthony47 ha scritto:Perdona, mi sembra una analisi almeno superficiale... omissis... devi dire esattamente che cosa ti serve fare.....omissis.....Ciao

non posso che concordare
mi spiego
felice che il "giochetto" funzioni, mi riesce difficile capire la tua reale necessità
Es " D:\FLASH_2013
Sotto cartelle 01 Gennaio 02 Febbraio ecc ecc
così non sarei legato ad un mese
percorso = "D:\01 GENNAIO\" '<===== qui il tuo percorso

questo foglio dovrebbe riportare il totale di ogni mese
una cella gennaio una febbraio

puoi esplicare meglio?
sembra più che fattibile
l'esigenza non è chiara, pensa, a me sembra piuttosto differente dall'ultima richiesta :-?
magari puoi allegare un esempio del file master con le opportune note
a presto
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 340
Iscritto il: 14/11/09 21:51

Re: totale di piu file su un foglio master

Postdi alxleon2000 » 07/05/13 12:50

Ok scusatemi sono io che ho le idee confuse

io ho un foglio di calcolo giornaliero dove inserisco dei valori
questo figlio viene salvato in una cartella chiamata es H:\Flash 2013\01 Gennaio
la stessa cosa viene fatta per il mese di febbraio H:\Flash 2013\02 febbraio
quello di cui ho bisogno è prendere il totale mensile di alcune celle e riportarle in un foglio Master

Es " G40 totale di tutto il mese nella cella " da definire nel foglio master"
G42 totale di tutto il mese nella cella " da definire nel foglio master"
G44 totale di tutto il mese nella cella " da definire nel foglio master"
P40 totale di tutto il mese nella cella " da definire nel foglio master"
P42 totale di tutto il mese nella cella " da definire nel foglio master"
P44 totale di tutto il mese nella cella " da definire nel foglio master"
Il foglio master non l'ho ancora definito bene
Grazie
Alex
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16

Re: totale di piu file su un foglio master

Postdi Gigi_ » 07/05/13 20:41

Il foglio master non l'ho ancora definito bene

:lol: :lol: :lol: :lol: :lol: :lol: pleonastico :lol: :lol: :lol: :lol:....permettimi di scherzare un po' ;)

Codice: Seleziona tutto
Option Base 1
Public ElencoFile(), percorso, path(12) As String
Public cdestinazione(2), cprelievo(2) As String '<=== gli indici di cdestinazione e c prelievo _
                                                    =numero dei campi dei quali vuoi la somma
Public mese, sommacelle As Integer
Public ContatoreFile As Integer
Public TOTALE As Variant
Sub ricerca() ''<===costruiamo l'array ElencoFile() che conterrà tutti _
                    gli xls contenuti nel percorso dato
corrispondenze

For mese = 1 To 12
Dim StringaAppoggio As String
percorso = path(mese) '<===== quì il tuo percorso
ContatoreFile = 1
ReDim Preserve ElencoFile(ContatoreFile)
StringaAppoggio = Dir(percorso & "*.xls")
ElencoFile(ContatoreFile) = StringaAppoggio
While StringaAppoggio <> ""
   StringaAppoggio = Dir()
   If StringaAppoggio <> "" Then
      ContatoreFile = ContatoreFile + 1
      ReDim Preserve ElencoFile(ContatoreFile)
      ElencoFile(ContatoreFile) = StringaAppoggio
    End If
Wend
Next mese

For sommacelle = 1 To 2 '<=== numero dei campi dei quali vuoi la somma
SOMMA_FILES
Next sommacelle

End Sub
Sub SOMMA_FILES()
TOTALE = 0 ' non ho capito perchè, ma senza questo azzeramento mi riportava il valore dell'esecuzione precedente ;-)
For OGNIFILE = 1 To ContatoreFile
TOTALE = TOTALE + PrendiDati(percorso, ElencoFile(OGNIFILE), "Foglio1", cprelievo(sommacelle)) 'correggi se necessario il nome del foglio
Next OGNIFILE
Range(cdestinazione(sommacelle)).Value = TOTALE
End Sub
Private Function PrendiDati(percorso, nomefile, Foglio, rif)
Dim Arg As String
Arg = "'" & percorso & "[" & nomefile & "]" & Foglio & "'!" & Range(rif).Range("A1").Address(, , xlR1C1)
PrendiDati = ExecuteExcel4Macro(Arg) 'preleva il dato
End Function
Sub corrispondenze()
'--------PERCORSI--------
path(1) = "H:\Flash 2013\01 Gennaio\"
path(2) = "H:\Flash 2013\02 Febbraio\"
path(3) = "H:\Flash 2013\03 Marzo\"
path(4) = "H:\Flash 2013\04 Aprile\"
path(5) = "H:\Flash 2013\05 Maggio\"
path(6) = "H:\Flash 2013\06 Giugno\"
path(7) = "H:\Flash 2013\07 Luglio\"
path(8) = "H:\Flash 2013\08 Agosto\"
path(9) = "H:\Flash 2013\09 Settembre\"
path(10) = "H:\Flash 2013\10 Ottobre\"
path(11) = "H:\Flash 2013\11 Novembre\"
path(12) = "H:\Flash 2013\12 Dicembre\"

'----------CELLE DI PRELIEVO------
cprelievo(1) = "B32"
cprelievo(2) = "D23"
'ETC---ETC---ETC

'----------CELLE DI DESTINAZIONE------
cdestinazione(1) = "A1"
cdestinazione(2) = "A2"

'ETC---ETC---ETC

End Sub

Usando un'espressione molto cara proprio ad Anthony47, ho parametrizzato (logica approfondita studiando e ristudiando le soluzioni proposte su questo forum dal suddetto) i percorsi e le celle di interesse.
Non ho testato cosa accada nel caso in cui non ci siano le cartelle mensili e/o la routine le trovi vuote.
Aggiungi dei controlli o magari creale tutte nel primo caso
nel secondo credo che ci sia già il controllo.....ma appunto non l'ho testato...
ciao
Gigi_
win 7 + office 2003
Avatar utente
Gigi_
Utente Senior
 
Post: 340
Iscritto il: 14/11/09 21:51

Re: totale di piu file su un foglio master

Postdi alxleon2000 » 21/05/13 18:04

ritorno dopo qualche giorno di assenza

ragazzi credi l'ho abbiate capito " non capisco una mazza di "
premesso questo
ho provato ad utilizzare la macro di Gigi ma mi da errore " Range(cdestinazione(sommacelle)).Value = TOTALE"

detto questo è possibile creare una macro dove io posso scegliere più celle da sommare di più fogli su una cella di un foglio master?

grazie
Alex
alxleon2000
Newbie
 
Post: 8
Iscritto il: 04/05/13 19:16


Torna a Applicazioni Office Windows


Topic correlati a "totale di piu file su un foglio master":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti

cron