Aprire altro file, copiare colonne e richiuderlo

[scanacc]

Carissimi geni,
quando apro il FILE “PROGRAMMA.xlsm”, avrei necessità di copiare i dati che sono presenti nel FILE “ESTRAZIONE.xlsx”.
I dati presenti in C12 - C700 nel FILE ESTRAZIONE dovrebbero essere copiati e incollati in D12 - D700 del FILE PROGRAMMA, i dati F12 - F700 del FILE ESTRAZIONE dovrebbero essere copiati in H12 H700 del FILE PROGRAMMA e i dati G12 - G700 del FILE ESTRAZIONE dovrebbero essere copiati in M12 M700 del FILE PROGRAMMA.

Dopo questo, il FILE ESTRAZIONE dovrebbe essere chiuso e rimanere aperto quindi il solo FILE PROGRAMMA.
Vorrei utilizzare Auto_open
Grazie per il sicuro aiuto
PS
Entrambi i file sono posizionati in C://

[Anthony47]

Puoi ottenere quel che cerci con una macro registrata mentre, partendo da file PROGRAMMA (nota 1)
-avvii il registratore delle macro
-apri il file ESTRAZIONE
-selezioni un foglio qualsiasi, poi selezioni il foglio "giusto"
-selezioni l'intervallo che ti serve, Contr-c per Copiare
-torni su file PROGRAMMA, selezioni il foglio "giusto", selezioni D12, premi Enter per incollare
-torni sul file ESTRAZIONE, selezioni il foglio "giusto", selezioni l'intervallo che ti serve, Contr-c per Copiare
-torni su file PROGRAMMA, selezioni il foglio "giusto", selezioni G12, premi Enter per incollare
-premi ESC
-torni su file ESTRAZIONE e lo chiudi
-fermi la registrazione della macro

Ora dovresti avere la macro che chiedi; non e' perfetta ma e' perfettamente funzionante
Se vuoi che la macro parta automaticamente quando viene aperto il file PROGRAMMA, sul vba del file PROGRAMMA cerca il modulo "Questa_cartella_di_lavoro" e inseriscici questo codiuce:

Codice: Seleziona tutto

Private Sub Workbook_Open()
Call MiaMacro          '<<< La macro registrata
End Sub

Per le istruzioni e i primi suggerimenti su come registrare una macro:
viewtopic.php?f=26&t=103893&p=622593#p622593

Ciao

[scanacc]

Grazie Anthony per i tuoi preziosi consigli!!!!!
Un file mi si richiude senza storie, il secondo invece mi chiede se voglio salvare i cambiamenti o no (infatti prima di estrarre i dati devo dividere alcune celle).
Come faccio a rispondere che deve chiudere senza salvare?
PS
il codice che uso per chiudere il file è questo

Codice: Seleziona tutto

    Windows("SEGM - Grappolata.xlsx").Activate
    Range("B8").Select
    ActiveWindow.Close

[scanacc]

Soluzione trovata tramite ricerchina all'interno del nostro forum...

Codice: Seleziona tutto

    Windows("SEGM - Grappolata.xlsx").Activate
    Range("B8").Select
    ActiveWindow.Close Savechanges:=False