00 11/08/2022 07:50
Ciao Prova questa macro da inserire nel file di destinazione 

Sub Trascrivi()
Dim Ind, file, sh1 As Worksheet

Application.DisplayAlerts = False
Set sh1 = Worksheets("Sheet") 'nome del foglio destinazione
file = "FileSorgente.xlsx" 'nome del file sorgente
sh1.Range("A1").CurrentRegion.Clear
Ind = ActiveWorkbook.Path & "/" & file
Workbooks.Open Filename:=file, UpdateLinks:=3
Range("A1").CurrentRegion.Copy sh1.Range("A1")
ActiveWorkbook.Close
Application.DisplayAlerts = True
sh1.Activate
End Sub


cancella il foglio di destinazione e scrive i dati dal foglio sorgente, ma attenzione il foglio sorgente deve contenere solo il foglio da copiare

inoltre i 2 file devono stare nella stessa cartella oppure insieme sul desktop.

Ciao By Sal (8-D
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui