totale di piu file su un foglio master

[alxleon2000]

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]

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

[Gigi_]

....pazienza.....

[Gigi_]

....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

[alxleon2000]

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

[Gigi_]

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?

[Anthony47]

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.

[alxleon2000]

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

[Anthony47]

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

[alxleon2000]

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

[Gigi_]

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

[alxleon2000]

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

[Gigi_]

Il foglio master non l'ho ancora definito bene

pleonastico ....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

[alxleon2000]

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