Macro copia dati colonne non contigue su un altro file excel

[systemcrack]

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?

[Anthony47]

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

[systemcrack]

Buongiorno Maestro Anthony

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
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:



Allego di seguito i due files, magari ho commesso un errore oppure ho tralasciato qualche cosa:
Scarica Nuova Cartella.zip

[systemcrack]

Niente Anthony i files li trovi qui

[Anthony47]

Il carattere "_" deve essere preceduto da uno spazio, mancante nella mia istruzione; quindi

Codice: Seleziona tutto

. . . .,P2:P201").Copy _

[systemcrack]

Così funziona egregiamente! Grazie Anthony!