Excel Copia e incolla

[Statix]

Ciao a tutti,
Ho un problema con un copia e incolla,
dovrei copiare un range A1:Z1
e incollarlo in un altro file Archivio.
dovrei incollarlo automaticamente con una macro,fin qui tutto ok.
il problema e che nel foglio archivio devo incollare il range
sotto l'ultima riga utile in quanto ad ogni incolla si sposta di una riga.

[Anthony47]

Codice: Seleziona tutto

Range("A1:Z1").Copy Destination:=Workbooks("Archivio").Sheets("IlFoglio").Range("A" & Rows.count).End(xlup).Offset(1,0)


Ciao

[Statix]

Ciao Anthony47,
tutto ok.
grazie.

[Statix]

Ciao Anthony47,
ti volevo chiedere un altra cosa,visto che ho 4 file da aggiornare con gli stessi dati,
c'è un modo di aggiornarli senza prima averli aperti.
La macro dovrebbe aprire i file ,aggiornarli e richiudere.
i file contengono lo stesso foglio da aggiornare(archivio)

[Anthony47]

No, devi aprirli tutti e quattro.
Poi farai

Codice: Seleziona tutto

Range("A1:Z1").Copy Destination:=Workbooks("Archivio_UNO").Sheets("IlFoglio").Range("A" & Rows.count).End(xlup).Offset(1,0)
Range("A1:Z1").Copy Destination:=Workbooks("Archivio_DUE").Sheets("IlFoglio").Range("A" & Rows.count).End(xlup).Offset(1,0)
'etc


Ciao.

[Statix]

Ok.
però ,se non sbaglio si possono chiudere in automatico ?

[Anthony47]

Codice: Seleziona tutto

Workbooks("Archivio_UNO.xls).Close SaveChanges:=True
Workbooks("Archivio_DUE.xls).Close SaveChanges:=True
'etc


Ciao