RIEPILOGO EXCEL DA PIU' FILE

[bartzuke]

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

[hydra]

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.

[bartzuke]

Scusa, sicuramente non e' stato fatto intenzionalmete.

Grazie
saluti
antonio

[ricky53]

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.

[bartzuke]

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.

[ricky53]

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

Nella cartella "C;\Antonio" hai altri file excel o solo quelli da cui prendere i dati?

[bartzuke]

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

Grazie
antonio.

[Anthony47]

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

[bartzuke]

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

[Anthony47]

E dove sta' il problema?

[bartzuke]

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

[Anthony47]

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

Ciao

[bartzuke]

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]

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.

[Anthony47]

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

Ciao

[bartzuke]

Ciao
grazie Anthony tutto ok.

saluti
antonio