copia da alcune colonne da un file all'altro

[tecnuf]

ho un numero importante di files sui quali vorrei andare a copiare alcune colonne .
Ad esempio dal file Pluto vorrei copiare queste colonne sul file pippo:
le colonne del 2^ foglio di Pluto (colonne G,H;I;J;K;L a partire dalla 3^riga inclusa in poi)
sulle colonne corrispondenti di pippo, e cosi per tutti i fogli dal 2^ al 35^ incluso.
La copia che devo fare è solo dei valori (testi o numeri che siano, ma senza la formattazione o altro).
Ogni foglio che devo andare a copiare è protetto, così come quello su cui devo andare a scrivere.
è possibile "inventare " qualche macro ? o è un miraggio?

[ricky53]

Ciao,
prova ad eseguire i passi che ti necessitano attivando il registratore di macro.

Fai alcuni dei passi descritti, ferma il registratore di macro e ... allega il codice ottenuto insieme ad un file di esempio e forse insieme potremo arrivare ad una soluzione.

La protezione è con password (PSW)?
Per il file di esempio: proteggi senza PSW o metti una PSW diversa da quella reale

[tecnuf]

ecco il codice ottenuto facendo la registrazione di macro,
con questa ho copiato da un file ad un altro i primi due fogli, anzi il 2^ e il 3^, devo farlo per tutti i fogli dal 2^ al 35^
per tanti files

Codice: Seleziona tutto

Sub copiacolonnedafile()
'
' copiacolonnedafile Macro
'

'
    Range("G3:L100").Select
    Selection.Copy
    Windows("COMbase30.xlsm").Activate
    Range("G3").Select
    ActiveSheet.Paste
    Windows("COM5010.xlsm").Activate
    Sheets("60600 APPLICAZIONE E").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("G3:L100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("COMbase30.xlsm").Activate
    Sheets("2 0").Select
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 3
    Range("G3:L100").Select
    ActiveSheet.Paste
    Windows("COM5010.xlsm").Activate
    Application.CutCopyMode = False
End Sub


[Anthony47]

Dal codice registrato si deduce che il file "COMbase30.xlsm" e' quello di destinazione, mentre il file "COM5010.xlsm" e' quello di origine; e' di difficile interpretazione la frase "copiare [...] le colonne del 2^ foglio [del file di origine] (colonne G,H;I;J;K;L a partire dalla 3^riga inclusa in poi) sulle colonne corrispondenti [del file di destinazione]"
Nell'ipoesi che tu voglia copiare dal 2° foglio di Origine al 2° foglio di Destinazione, poi da 3° foglio di Origine al 3° foglio di Destinazione, e cosi' via, allora probabilmente potrai usare:

Codice: Seleziona tutto

Sub copia222()
'
' copiacolonnedafile Macro
'
Windows("COM5010.xlsm").Activate
For i = 2 To 35
    Sheets(i).Range("G3:L10000").Copy
    Workbooks(COMbase30.xlsm).Sheets(i).Unprotect
    Workbooks(COMbase30.xlsm).Sheets(i).Range("G3").PasteSpecial Paste:=xlPasteValues
    Workbooks(COMbase30.xlsm).Sheets(i).Protect
Next i
Application.CutCopyMode = False
End Sub


Ciao

Edit: Attenzione, anche COMbase30.xlsm (o comunque si chiami il file) va incluso tra le Virgolette ("COMbase30.xlsm")!
Anthony

[tecnuf]

mi da errore su questa stringa :

Workbooks(PIPPO.xlsm).Sheets(i).Unprotect
mi dice errore run time 424 Necessario oggetto.

per applicare la macro l'aveo messa sul file da cui dovevo copiare e aperto entrambi i file.
i files sono nella stella cartella, non è che devo mettere tutto il percorso del file o basta
il nome?

[Anthony47]

Puoi pubblicare l'intera macro?

Ciao

[tecnuf]

in pratica è la tua macro con nome file sostituito

[code][/code]
Sub copiafile()
'
' copiacolonnedelfile Macro
'
Windows("Pluto.xlsm").Activate
For i = 2 To 35
Sheets(i).Range("G3:L10000").Copy
Workbooks(Pippo.xlsm).Sheets(i).Unprotect
Workbooks(Pippo.xlsm).Sheets(i).Range("G3").PasteSpecial Paste:=xlPasteValues
Workbooks(Pippo.xlsm).Sheets(i).Protect
Next i
Application.CutCopyMode = False
End Sub

[Anthony47]

Mi accorgo che sui nomi indicati, che siano Pippo.xlsm oppure COMbase30.xlsm, mancano le Virgolette...

Codice: Seleziona tutto

Workbooks("Pippo.xlsm").Sheets(i).Unprotect
etc etc


Ciao