Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

RIEPILOGO EXCEL DA PIU' FILE

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

RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 06:16

BUONGIORNO A TUTTI
COMPLIMENTI PER IL FORUM
LA MIA DOMANDA E' LA SEGUENTE:

HO UNA CARTELLA C:\ANTONIO CHE CONTIENE DIVERSI FILE DI EXCEL.
HO LA NECESSITA' DI CREARE UN FILE DI EXCEL CHIAMATO RIEPILOGO CHE VA A INSERIRE I DATI DI 3 CELLE DI OGNI FILE EXCEL
I6 L11 E L13.
NATURALMENTE IL FILE RIEPILOGO DEVE CONTENERE I DATI DELLE 3 CELLE IN A1 A2 E A3 PER IL PRIMO FILE IN B1 B2 E B3 PER IL SECONDO FILE E COSI' VIA.


GRAZIE PER LA RISPOSTA
SALUTI
ANTONIO :)
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Sponsor
 

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi hydra » 06/11/12 08:31

Sei nuovo e forse ti dei ancora ambientare, ma prima di iniziare tieni conto che:
  1. scrivere tutto in maiuscolo equivale a urlare
  2. questa sezione si chiama Software Windows, per i problemi riguardanti excel c'è una sezione apposita
Sposto.
Avatar utente
hydra
Moderatore
 
Post: 7002
Iscritto il: 19/07/04 08:06
Località: Vallis Duplavis

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 10:17

Scusa, sicuramente non e' stato fatto intenzionalmete.

Grazie
saluti
antonio
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi ricky53 » 06/11/12 10:59

Ciao,
prima di tutto benvenuto nel nostro forum.
Si il maiuscolo è proprio illeggibile.


Ovviamente ci sarà un'altra colonna che contiene il nome del file excel da aggiornare?
In quale colonna si trovano i nomi?


CONSIGLIO: io invertire la struttura dei dati righe con colonne !
Ossia:
colonna "A" valori da inserire,
colonna "B" cella dove inserirei i dati
Colonna "C" nome del file sul quale inserire i dati

In questo modo potrai aggiungere altri dati senza complicazione alcuna.

Parliamone bene prima visto che si deve mettere in piedi un nuovo lavoro.
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: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 12:22

Ciao grazie per la tua risposta e per il benvenuto.
Mi scuso ancora per il maiuscolo.

ho una cartella c:\antonio che contiene N file di excel
esempio file:

Fornitore: AGRIA
Totale Fatture Promo: € 100,00
Totale Note Credito: € 10,00

di questi file devo prendere l'informazione Agria (I5) - € 100,00 (L11) - € 10,00(L13) -
ed inserirle in un nuovo file excel che chiamero' Report Totali Fornitori ( contenente colonna A nome fornitore - colonna B Fatture promo -colonna C note credito)quindi una specie di elenco che si alimenta dai vari N file fornitori..
esempio
Report Totali Fornitori
COLONNA A- COLONNA B - COLONNA C
Fornitore - Totale Fatture Promo - Totale Note Credito
Agria € 100,00 € 10,00
Star € 500,00 € 20,00
.........
siccome sono molto negato nel spiegarmi, comunque vada grazie lo stesso.
Saluti
antonio.
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi ricky53 » 06/11/12 12:47

Ciao,
Il nome è in "I5" oppure in "I6"?

Nella cartella "C;\Antonio" hai altri file excel o solo quelli da cui prendere i dati?
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: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 12:53

Ciao
il nome e' in "I5
Nella cartella c:\Antonio ci sono solo i file di excel dove prendere i dati.

Grazie
antonio.
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi Anthony47 » 06/11/12 12:55

Ciao bartzuke, benvenuto anche da parte mia
Ci sono state varie discussioni che parlano di dataconsolidation, partendo da quelle ti propongo la seguente macro, da inserire all' interno del file Riepilogo.xls:
Codice: Seleziona tutto
Sub bartz()
Dim SourceDir As String, ShName As String, I As Long
SourceDir = "C:\Users\UTENTE\Documents\"    '<<< La tua directory
ShName = "Foglio1"                          '<<< Il FOGLIO da cui prelevare
myCFile = Dir(SourceDir & "\*.xls")
Do
    If myCFile = "" Then Exit Do
    I = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        Cells(I, 1) = myCFile
        Cells(I, 2).Formula = "='" & SourceDir & "[" & myCFile & "]" & ShName & "'!I6"   '<<< I5 oppure I6??
        Cells(I, 3).Formula = "='" & SourceDir & "[" & myCFile & "]" & ShName & "'!L11"
        Cells(I, 4).Formula = "='" & SourceDir & "[" & myCFile & "]" & ShName & "'!L13"
    DoEvents
    Cells(I, 2).Resize(1, 3).Copy
    Cells(I, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
        :=False
    Application.CutCopyMode = False
    myCFile = Dir
Loop

End Sub
Personalizza le due istruzioni marcate <<<, poi mandala in esecuzione e ti creera' nel foglio corrente l' elenco organizzato in 4 colonne * N righe (ho quindi seguito il suggerimento di Ricky di sviluppare i dati in verticale e non in orizzontale).
La colonna A contiene il nome del foglio da cui quei dati sono stati estratti, se non ti serve cancellala.

Guarda questa richiesta: viewtopic.php?f=26&t=97449

Fai sapere, 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: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 13:49

Ciao Anthony
grazie per il tuo preziosissimo aiuto la macro funziona benissimo, l'unico problema sta nel fatto che nelle celle dei totali (fatture promo e note credito) dove prendo i dati sono contenute delle formule, e a me occorre prendere solo il dato valore.

grazie
antonio
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi Anthony47 » 06/11/12 14:01

:?:
E dove sta' il problema?
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: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 14:17

Ciao
Mi appare una finestra che mi dice aggiorna valori e vuole un percorso file e mi scrive nel file la seguente dicitura:

A.POIATTI.xls #RIF! #RIF! #RIF!
ABIINBEV.xls #RIF! #RIF! #RIF!
ACQUA S.BENEDETTO.xls #RIF! #RIF! #RIF!
ACRAF.xls #RIF! #RIF! #RIF!
AFFINITY.xls #RIF! #RIF! #RIF!

grazie
antonio
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi Anthony47 » 06/11/12 14:23

Come hai personalizzato le istruzioni marcate <<<?
(copia le righe dalla macro e incolla nel prossimo messaggio; se necessario cambia SINGOLI CARATTERI in #)

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: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 14:43

ciao ho fatto in questo modo:

ub bartz()
Dim SourceDir As String, ShName As String, I As Long
SourceDir = "C:\Users\Public\Toni\aless\Volantini-Contratti-Promo\2012\REPORT FORNITORI 2012"
ShName = "Modello"
myCFile = Dir(SourceDir & "\*.xls")
Do
If myCFile = "" Then Exit Do
I = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(I, 1) = myCFile
Cells(I, 2).Formula = "='" & SourceDir & "[" & myCFile & "]" & ShName & "'!I5"
Cells(I, 3).Formula = "='" & SourceDir & "[" & myCFile & "]" & ShName & "'!L11"
Cells(I, 4).Formula = "='" & SourceDir & "[" & myCFile & "]" & ShName & "'!L13"
DoEvents
Cells(I, 2).Resize(1, 3).Copy
Cells(I, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False
Application.CutCopyMode = False
myCFile = Dir
Loop

End Sub
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 15:23

Ciao
non ci riesco proprio mi spuntano i nomi dei file ma il valore dei campi mi da #RIF e mi si apre una finestra.
in alto scritto aggiorna valori nome file nome foglio lavoro e in basso come se vuole il percorso di dove si trova il file.
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi Anthony47 » 06/11/12 15:31

Devi usare
SourceDir = "C:\Users\Public\Toni\aless\Volantini-Contratti-Promo\2012\REPORT FORNITORI 2012\"

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: 13903
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: RIEPILOGO EXCEL DA PIU' FILE

Postdi bartzuke » 06/11/12 15:48

Ciao
grazie Anthony tutto ok.

saluti
antonio
bartzuke
Utente Junior
 
Post: 16
Iscritto il: 06/11/12 06:07


Torna a Applicazioni Office Windows


Topic correlati a "RIEPILOGO EXCEL DA PIU' FILE":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti