Salve,
vi spiego il problema:

ho diversi file excel es. File 1, File 2, File 3 ecc.... utilizzati per la fatturazione, quindi tra loro cambiano solo gli importi ed la descrizione del prodotto.



Devo copiare tutte le info contenute nelle fatture in un file “Archivio”.



Attualmente ho realizzato una macro che copia i dati del “file A” nell'Archivio,
vi spiego come funziona la macro:



  • Apro il file Archivio
  • rinomino una delle fatture con il nome A
  • avvio la macro che copia i dati
  • chiudo il file A e lo elimino
  • …. passo al secondo file e ricomincia il loop



Come posso fare per copiare i dati i maniera più veloce?
La mia idea è quella di utilizzare una macro che copia i dati dei file incrementando da sola il numero (nome) del file.


Spero di essermi spiegato ...


Macro

codice:
Sub Archivio()

    Range("A2:AG22").Select
    Range("AG22").Activate
    Selection.Copy
    Sheets("Archivio").Select
    Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Range("A1").End(xlDown).Offset(1, 0).Select
End Sub


Nel foglio Macro pesco i dati dal File A, es. cella

codice:
=SE(R2="";"";'[A.xls]FATTURA pag. 1'!$A$25)

grazie.