Condividi:        

Macro copia dati colonne non contigue su un altro file excel

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

Macro copia dati colonne non contigue su un altro file excel

Postdi systemcrack » 23/05/24 14:41

Buongiorno a tutti,
vorrei copiare dei dati contenuti in alcune colonne non contigue presenti su un file (Sorg.xlsm) su un altro file (Dest.xlsm).
Al momento ho scritto e provato questo codice, ma quando lo faccio girare ricevo un errore di Runtime-13.
Codice: Seleziona tutto
Sub copiaEincolla()
Workbooks("Sorg.xlsm").Worksheets("Foglio1").Columns("B,C,H,I,K,P").Copy_
Workbooks("Dest.xlsm").Worksheets("Foglio1").Columns ("B,C,D,E,F,H")
End Sub

Cosa manca per farlo funzionare?
Avatar utente
systemcrack
Utente Senior
 
Post: 302
Iscritto il: 27/07/17 09:40

Sponsor
 

Re: Macro copia dati colonne non contigue su un altro file e

Postdi Anthony47 » 23/05/24 18:23

Puoi copiare un intervallo discontinuo, ma i dati possono essere incollati solo in posizione contigua; esempio:
Codice: Seleziona tutto
Workbooks("Sorg.xlsm").Worksheets("Foglio1").Range("B:B,E:E,G:G").Copy_
    Workbooks("Dest.xlsm").Worksheets("Foglio1").Range("B1")

Le colonne copiate saranno incollate in B-C-D

Se hai esigenze diverse devi suddividere le fasi di Copia-Incolla in piu' blocchi
Avatar utente
Anthony47
Moderatore
 
Post: 19255
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro copia dati colonne non contigue su un altro file e

Postdi systemcrack » 24/05/24 08:29

Buongiorno Maestro Anthony
Immagine
Anthony47 ha scritto:Le colonne copiate saranno incollate in B-C-D
Se hai esigenze diverse devi suddividere le fasi di Copia-Incolla in piu' blocchi

Si ho sbagliato io a riportare l'esempio.. un attacco di dislessia momentanea :lol:
L'importante è poter puntare/copiare i dati disposti su colonne discontinue ed è perfetto che vengano incollate in un range di colonne adiacenti.

Ho quindi modificato il codice come da tuoi suggerimenti così:
Codice: Seleziona tutto
Sub copiaEincolla()
Workbooks("Sorg.xlsm").Worksheets("Foglio1").Range("B2:B201,C2:C201,H2:H201,I2:I201,K2:K201,P2:P201").Copy_
Workbooks("Dest.xlsm").Worksheets("Foglio1").Range("B2")
End Sub

ma ricevo un errore di runtime differente da prima:
Immagine
Immagine

Allego di seguito i due files, magari ho commesso un errore oppure ho tralasciato qualche cosa:
Scarica Nuova Cartella.zip
Avatar utente
systemcrack
Utente Senior
 
Post: 302
Iscritto il: 27/07/17 09:40

Re: Macro copia dati colonne non contigue su un altro file e

Postdi systemcrack » 24/05/24 09:23

Niente Anthony i files li trovi qui
Avatar utente
systemcrack
Utente Senior
 
Post: 302
Iscritto il: 27/07/17 09:40

Re: Macro copia dati colonne non contigue su un altro file e

Postdi Anthony47 » 24/05/24 11:16

Il carattere "_" deve essere preceduto da uno spazio, mancante nella mia istruzione; quindi
Codice: Seleziona tutto
. . . .,P2:P201").Copy _
Avatar utente
Anthony47
Moderatore
 
Post: 19255
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro copia dati colonne non contigue su un altro file e

Postdi systemcrack » 27/05/24 17:47

Così funziona egregiamente! Grazie Anthony!
Avatar utente
systemcrack
Utente Senior
 
Post: 302
Iscritto il: 27/07/17 09:40


Torna a Applicazioni Office Windows


Topic correlati a "Macro copia dati colonne non contigue su un altro file excel":


Chi c’è in linea

Visitano il forum: Nessuno e 83 ospiti