Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

fare riepilogo da più file di due colonne

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

fare riepilogo da più file di due colonne

Postdi giova82 » 20/01/17 13:34

buongiorno,
spero che qualcuno mi possa aiutare,
ho provato varie volte a individuare nei topic la mia esigenza ma senza successo.

Il mio problema è molto semplice ma essendo alle prime armi non riesco a capire alcuni passaggi.
Devo creare un file SCARICOMAGAZZINO,
Devo copiare dalla cartella tipo WRGENNAIO tutti i file presenti, i file hanno tutti la stessa struttura e tutti hanno il foglio "capitolato", nel foglio "capitolato" ho la colonna A con le descrizione dei materiali e nella colonna B i risultati, devo fare i totali della colonna B dalla riga B2 fino a B258 e ripilogarli in un unico file SCARICOMAGAZZINO in una tabella che riporta nella colonna A tutte le descrizioni e nella colonna B tutti i totali relativi dei vari file nella cartella.
:roll:

esempio
file a.xlsx
pere 5
mele 4
banane 5

file b.xlsx
pere 3
mele 4
banane2

file c.xlsx
pere 5
mele 2
banane 4

file riepilogo.xlsx
pere 13
mele 10
banane 11

Grazie mille a chiunque voglia darmi qualche dritta
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Sponsor
 

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 20/01/17 15:14

Ciao,
prima di tutto benvenuto nel nostro forum.

Quanti sono i file presenti nella cartella?
Hai una sola cartella?
La descrizione che hai fatto è quella reale, nel senso che le colonne sono proprio quelle che hai riportato tu oppure, per chiarezza espositiva, hai semplificato e cambiato le colonne?

Altra considerazione: la tua esigenza finale è proprio questa oppure potrebbe essere più ....
Spesso si parte intravedendo una soluzione e poi analizzando meglio la questione la soluzione è completamente diversa.


Con le formule non mi viene in mente nulla che NON costringa ad avere tutti i file aperti contemporaneamente.


Con il VBA si può fare ma prima vorrei essere certo che la situazione sia proprio quella che hai descritto.

Attendo un tuo riscontro.
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 20/01/17 16:14

Grazie mille per il benvenuto,
e la considerazione.

I file nella cartella possono essere da 20 a 80 più o meno, è una discriminante?
Ogni mese genero una cartella diversa WRGENNAIO, WRFEBBRAIO.... le colonne sono realmente quelle nel foglio "CAPITOLATO MATERIALI"


la mia esigenza riprendendo l esempio banale di prima sarebbe ottenere i dati per fare uno scarico magazzino
quindi avendo un report finale di quante pere, mele e banane vendute, sottrarle alla fine da un carico iniziale.
spero di essere stao chiaro nella descrizione, oltre a non essere capace non vorrei far perdere tempo.

grazie mille
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 20/01/17 16:46

Ciao,
il numero dei file condizionerà i tempi di elaborazione.

Altra informazione quante sono le righe dei vari fogli "Capitolato", anche queste condizionano i tempi e, quindi, la soluzione da adottare.
Quante sono i tipi di merci da elaborare?

La soluzione per me è sempre una macro scritta ad hoc ma ... ancora ci devo pensare.

Fai l'elaborazione una volta al mese.
Farai anche una elaborazione dell'anno o non è necessaria?

Domande: il carico in che formato lo hai? Come viene alimentato? Come effettui lo scarico? Con quali passaggi?

Tutte le domande sono finalizzate a cercare di proporti una soluzione più semplice ma versatile possibile ... e che necessiti di poca manutenzione visto che il VBA, deduco, tu non lo conosca.

Infine penso occorra rivedere come hai pensati di ottenere i dati riepilogativi per tipo di merce.
Non va bene nome file e sotto tutte le merci di quel file, poi un altro file ed altre merci.

Occorre sapere come hai la struttura dati del carico e poi pensare a quella dello scarico che è condizionato dal carico.

Puoi inviare un file di esempio del file di CARICO?
Senza dati riservati


. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
EDIT: ho modificato questo mio intervento aggiungendo altre informazioni e domande
Rileggi quanto ti ho scritto
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 20/01/17 17:33

Grazie ricky per la celere risposta,
aalora il foglio si chiama Capitolato Merci, la riga effettivamente di cui mi interessa il contenuto va da B2:B285
l'elaborazione del riepilogo verra fatta una volta al mese, se si dovesse verificare più volte tipo aggiornamento che succede?
Se fosse possibile creare anche quella annuale.... il carico dei file viene eseguito a mano, aggiungo sotto due file uno è la tipologia di file da cui prendere i dati e uno il riepilogo che mi sono immaginato.
effettivamente non ho la minima conoscenza di VBA ma spero di almeno riuscire a seguirti nell aiuto che riuscirai a darmi. sono qui per imparare e poter essere autonomo.
I file avranno nomi diversi, come dal file sorgente che carico sara un numero in linea di massima, pensavo bastasse riunirli in una cartella tipo WRGENNAIO WRFEBBRAIO....

grazie ancora per la disponibilità.
.... scusa come si caricano i file tipo allegato?
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 20/01/17 20:23

Ciao,
per caricare un file leggi QUI

Si, sarà possibile, nella stessa cartella del PC, elaborare tutte le volte che vorrai ma i dati, presenti nel foglio di riepilogo verranno ricoperti ... altra soluzione c'è ma è più complessa gestirla.

Il VBA non è difficile ma occorre avere delle conoscenze di programmazione, studiare su corsi online va più che bene e tanto impegno e ... leggi la mia firma ... la parte in blu.


Si può pensare anche al riepilogo annuale ma ... come si dice l'appetito vien mangiando.

Vediamo di iniziare poi il resto si vedrà ... attendo i file di esempio, anche quello del carico del magazzino.
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi Anthony47 » 21/01/17 00:35

Mi aggrego a Ricky per il benvenuto nel forum.

Ne approfitto per chiederti se ti "eccita" una soluzione basata su Tabella pivot (a Ricky non lo chiedo, so gia' che e' Si). In pratica
-ogni mese si accoda all'elenco creato il mese precedente l'elenco delle movimentazioni del mese, copiandole pari pari dalle colonne A e B del file mensile, con l'aggiunta in colonna C del mese di movimentazione.
-sul secondo foglio si genera una tabella pivot che elenca nelle righe la Descrizione (ma non hai un "Codice prodotto"?), nelle Colonne i singoli Mesi e il Totale Ytd, e nelle celle la somma del prodotto nel mese o come Totale Ytd.

A inizio anno si comincia con un file vuoto e si aggiungono i dati mesi per mese.

Faccio invece fatica a decodificare queste informazioni:
I file nella cartella possono essere da 20 a 80 più o meno, è una discriminante?
Ogni mese genero una cartella diversa WRGENNAIO, WRFEBBRAIO.... le colonne sono realmente quelle nel foglio "CAPITOLATO MATERIALI"

Intendi che in una directory del disco hai 20-80 file? E li devi esaminare tutti? E quale e' il mome di ognuno di questi 20-80 file, visto che non si possono chiamare tutti WRGENNAIO?

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

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 21/01/17 01:46

Ciao Anthony,
ottima la proposta di accodare.

Quando si devono fare elaborazioni di dati con somme le pivot sono la prima cosa che penso ma in questa situazione ancora non mi è chiaro tutto e sto aspettando di vedere i file.



Riporto quanto ho capito:
1. sul PC ci sono varie cartelle (directory) WRGENNAIO, ..., WRDICEMBRE
2. ognuna di queste cartelle contiene da 20 a 80 file Excel
3. si devono riportare i dati di colonna "B" in un file di riepilogo e fare le somme delle varie merci suddivise per nome file
4. altre operazioni che forse vanno fatte ... e chiedo di sapere se ce ne sono e quali sono.


Giova82 dai conferma di quanto ho scritto e invia i file.
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 21/01/17 19:35

Buonasera Ricky,
e grazie Anthony per il benvenuto nel forum.

Magari potrebbe essere interessante la soluzione di Anthony ma al momento non riesco ad immaginarla, forse ti riferisci da utilizzarla direttamente con i ripiloghi mensili.

Per Richy rispondo alle domande che mi hai fatto:
1) corretto sul pc ci sono varie cartelle (directory) che verranno soprannominate WRGENNAIO ..ecc ecc
2)ognuna di queste contiene i file excel da analizzare...tipo quello che metto in allegato con il nome 443344334433.xlsx
3)nel file di riepilogo si devono riportare le somme delle varie merci, non suddivise per file, mi basta le somme delle varie merci suddivise per descrizione
4)allego la tipologia di file di riepilogo che immagino, e magari sicuramente mi potrete dare altri utilissimi consigliil file di riepilo si chiama riepilogomesex.xlsx

grazie ancora per la disponibilità.

di seguito il file che si troverà nelle cartelle mensili:
<a href=http://www.filedropper.com/443344334433><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file upload storage</a></div>

e questo il file per i riepiloghi mensili da riempire con i dati dei vari file :
<a href=http://www.filedropper.com/riepilogomesex><img src=http://www.filedropper.com/download_button.png width=127 height=145 border=0/></a><br /><div style=font-size:9px;font-family:Arial, Helvetica, sans-serif;width:127px;font-color:#44a854;> <a href=http://www.filedropper.com >file storage</a></div>


spero di aver ricopiato il link giusto :-?


grazie ancora
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 21/01/17 19:52

scusate posto di nuovo i file

primo file:
http://www.filedropper.com/443344334433_1


secondo file riepilogo:
http://www.filedropper.com/riepilogomesex_1



grazie ancora
:(
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 22/01/17 01:41

Ciao,
ho adattato del codice che avevo, provalo (nel codice ci sono dei commenti che ti aiutano ad utilizzarlo).

Codice: Seleziona tutto
Option Explicit

Public RR As Long, UR As Long, Inizio As Double, MioPercorso As String, MioFile As String
Public Elaborati As Integer, Ws_In As Worksheet, Ws_Out As Worksheet

Sub Leggi_Dati_e_Copia_Intervallo_Dati()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
    Application.EnableEvents = False
   
    Inizio = Timer
    Set Ws_Out = ActiveWorkbook.Sheets("Dati_Scarico_Magazzino") ' <<=== QUI devi scrivere il nome del foglio sul quale scrivere i vari dati
    RR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row
    If RR < 2 Then
        RR = 2
    End If
    Ws_Out.Range("A2:B" & RR).Clear

    Ws_Out.Range("A1") = "Capitolato Materiali"
    Ws_Out.Range("B1") = "Scarico mensile"
    MioPercorso = Ws_Out.Range("H1") ' <<===== In  "M1"  devi scrivere il tuo percorso con la "\" FINALE
    MioFile = Dir(MioPercorso & "*.xls*")
    UR = 2: RR = 0: Elaborati = 0
    Do While MioFile <> ""
        Workbooks.Open Filename:=MioPercorso & MioFile
        Set Ws_In = ActiveWorkbook.Sheets("Capitolato") ' <<==== QUI devi scrivere il nome del foglio dal quale copiare i dati
        RR = Ws_In.Range("A" & Rows.Count).End(xlUp).Row
        Ws_In.Range("A2:B" & RR + 1000).Copy Ws_Out.Range("A" & UR)
        UR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row + 1
        Windows(MioFile).Close:
        MioFile = Dir()
        Elaborati = Elaborati + 1
    Loop
    Ws_Out.Columns("A:A").EntireColumn.AutoFit
    Ws_Out.Columns("B:B").EntireColumn.AutoFit
   
    Set Ws_In = Nothing
    Set Ws_Out = Nothing
   
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
   
    Range("A2").Select
    Application.ScreenUpdating = True
    MsgBox "L'laborazione di  '" & Elaborati & "'  file è stata effettuata in  " & Format(Timer - Inizio, "0.000") & "  secondi"
End Sub


Ecco un FILE di ESEMPIO sul quale fare le prove:
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 22/01/17 02:06

Ciao,
una correzione al codice che ti ho inviato:
cambia
Codice: Seleziona tutto
Ws_In.Range("A2:B" & RR + 1000).Copy Ws_Out.Range("A" & UR)


con
Codice: Seleziona tutto
Ws_In.Range("A2:B" & RR).Copy Ws_Out.Range("A" & UR)


facendo le modifiche sul codice che avevo trovato nella mia libreria mi era rimasto un + 1000


Il codice è un po' lento perché deve aprire e chiude i file e, se sono 80, impiegherà un po' di tempo.

Provalo con 3-4 file mettendoli in un altro percorso.

ATTENZIONE: il FILE sul quale verranno scritti i dati NON deve stare nello stesso percorso ove hai i file mensili
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 23/01/17 14:17

Ciao Grazie mille Ricky53
per la rapida soluzione e le indicazioni,
all inizio ho apportato le modifiche al codice come da tue indicazioni e sono riuscito a risolvere alcuni errori di impostazione come il nome del foglio e il percorso.

Ora però mi da un Error Runtime 1004
metodo Range dell'oggetto "_worksheet" non riuscito.

la riga di codice che mi evidenzia in giallo

UR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row + 1


Io ho solo inserito il nome corretto del foglio che è Materiali evidenziato in blu


Sub Leggi_Dati_e_Copia_Intervallo_Dati()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.AskToUpdateLinks = False
Application.EnableEvents = False

Inizio = Timer
Set Ws_Out = ActiveWorkbook.Sheets("Dati_Scarico_Magazzino") ' <<=== QUI devi scrivere il nome del foglio sul quale scrivere i vari dati
RR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row
If RR < 2 Then
RR = 2
End If
Ws_Out.Range("A2:B" & RR).Clear

Ws_Out.Range("A1") = "Capitolato Materiali"
Ws_Out.Range("B1") = "Scarico mensile"
MioPercorso = Ws_Out.Range("H1") ' <<===== In "M1" devi scrivere il tuo percorso con la "\" FINALE
MioFile = Dir(MioPercorso & "*.xls*")
UR = 2: RR = 0: Elaborati = 0
Do While MioFile <> ""
Workbooks.Open Filename:=MioPercorso & MioFile
Set Ws_In = ActiveWorkbook.Sheets("Materiali") ' <<==== QUI devi scrivere il nome del foglio dal quale copiare i dati
RR = Ws_In.Range("A" & Rows.Count).End(xlUp).Row
Ws_In.Range("A2:B" & RR).Copy Ws_Out.Range("A" & UR)
UR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row + 1
Windows(MioFile).Close:
MioFile = Dir()
Elaborati = Elaborati + 1
Loop
Ws_Out.Columns("A:A").EntireColumn.AutoFit
Ws_Out.Columns("B:B").EntireColumn.AutoFit

Set Ws_In = Nothing
Set Ws_Out = Nothing

Application.EnableEvents = True
Application.DisplayAlerts = True
Application.AskToUpdateLinks = True

Range("A2").Select
Application.ScreenUpdating = True
MsgBox "L'laborazione di '" & Elaborati & "' file è stata effettuata in " & Format(Timer - Inizio, "0.000") & " secondi"
End Sub


Penso che risolto questo non ci sia latro.

Grazie Ricky53
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 23/01/17 16:43

Ciao,
controlla bene il nome del foglio (controlla se ci sono spazi o altro) del file dal quale vuoi copiare i dati.

Correggi anche questo mio refuso
Codice: Seleziona tutto
MioPercorso = Ws_Out.Range("H1") ' <<===== In "M1" devi scrivere il tuo percorso con la "\" FINALE


Il percorso va in M1, quindi, devi cambiare "H1" con "M1"
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 23/01/17 21:06

Buonasera Ricky,
forse sbaglio in qualcosa io, mi da sempre lo stesso errore, ho verificato in tutti i file che il nome del foglio non avesse spazi e anche nel codice ho inserito il nome senza spazi.
Ho messo il percorso da seguire in M1 e ho apportato anche la modifica nel codice.

ma mi da sempre lo stesso errore
error runtime 1004
metodo range dell'oggetto '_worksheet'
e mi mette in giallo in errore nella riga che sotto riporto in copia:

UR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row + 1

mi rimane aperto il primo file che analizza mi pare...

grazie ancora forse semplicemente sbaglio io qualche passaggio.

attendo tue
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 23/01/17 21:40

Ciao,
stai lavorando su un file copia di quello reale vero?
Puoi inviarlo e provo su quello.
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 23/01/17 23:34

Bueonasera Ricky,
ti invio i file sorgente da dove prendere i dati dal foglio "Materiali" di seguito
http://www.filedropper.com/778899001122

e poi ti allego il tuo file, ho modificato solo il codice nei punti opportuni come da te indicatomi.

http://www.filedropper.com/scaricomagaz ... ilegiova82


grazie ancora . gentilissimo
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 24/01/17 01:17

Ciao,
ho fatto alcune modifiche (trovi i riferimenti nel codice)

Codice: Seleziona tutto
Option Explicit

Public RR As Long, UR As Long, Inizio As Double, MioPercorso As String, MioFile As String
Public Elaborati As Integer, Ws_In As Worksheet, Ws_Out As Worksheet

Sub Leggi_Dati_e_Copia_Intervallo_Dati()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
   
    Inizio = Timer
    Set Ws_Out = ActiveWorkbook.Sheets("Dati_Scarico_Magazzino") ' <<=== QUI devi scrivere il nome del foglio sul quale scrivere i vari dati
    RR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row
    If RR < 2 Then
        RR = 2
    End If
    Ws_Out.Range("A2:B" & RR).Clear

    Ws_Out.Range("A1") = "Capitolato Materiali"
    Ws_Out.Range("B1") = "Scarico mensile"
    MioPercorso = Ws_Out.Range("M1") ' <<===== In  "M1"  devi scrivere il tuo percorso con la "\" FINALE
    MioFile = Dir(MioPercorso & "*.xls*")
    UR = 2: RR = 0: Elaborati = 0
    Do While MioFile <> ""
        Workbooks.Open Filename:=MioPercorso & MioFile
        Set Ws_In = ActiveWorkbook.Sheets("Materiali") ' <<==== QUI devi scrivere il nome del foglio dal quale copiare i dati
        RR = Ws_In.Range("A" & Rows.Count).End(xlUp).Row
        Ws_In.Range("A2:B" & RR).Copy Ws_Out.Range("A" & UR)
        Windows(MioFile).Close
        UR = Ws_Out.Range("A" & Rows.Count).End(xlUp).Row + 1 ' <<===== Spostata dopo la Close
        MioFile = Dir()
        Elaborati = Elaborati + 1
    Loop
    Ws_Out.Columns("A:A").EntireColumn.AutoFit
    Ws_Out.Columns("B:B").EntireColumn.AutoFit
    RR = Ws_Out.Range("B" & Rows.Count).End(xlUp).Row
    Ws_Out.Range("B2:B" & RR).Select ' <<===== Aggiunta
    Selection.Copy ' <<===== Aggiunta
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False ' <<===== Aggiunta
    Set Ws_In = Nothing
    Set Ws_Out = Nothing
   
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.AskToUpdateLinks = True
    Application.Calculation = xlCalculationAutomatic
       
    Range("A2").Select
    Application.ScreenUpdating = True
    MsgBox "L'laborazione di  '" & Elaborati & "'  file è stata effettuata in  " & Format(Timer - Inizio, "0.000") & "  secondi"
End Sub


Provalo ... per il momento solo con 3-4 file.
Verifica e poi provalo con tutti i file.

Potrebbe impiegare anche un minuto.
Sto vedendo di scrivere del codice più veloce.

Intanto fai sapere i risultati
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia

Re: fare riepilogo da più file di due colonne

Postdi giova82 » 24/01/17 10:57

Buongiorno Ricky53,
funziona tutto alla perfezione con 3-4 file , i tempi sono all'incirca su 1 secondo... quindi mi pare ottimo.

Faccio altre prove, mi sembra un ottimo risultato. ;)

Grazie mille davvero per l aiuto importante.
8)

Ti mando report quando inserisco e provo gli altri file .


Grazie ancora.
giova82
Newbie
 
Post: 9
Iscritto il: 20/01/17 13:13

Re: fare riepilogo da più file di due colonne

Postdi ricky53 » 24/01/17 12:42

Ciao,
bene, aggiornaci.

Buon proseguimento
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: 4524
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "fare riepilogo da più file di due colonne":


Chi c’è in linea

Visitano il forum: Nessuno e 27 ospiti