vba-un copia e incolla da una cartella ad un'altra

[PrinsipeMilito]

Ciao a tutti,
ho delle celle evidenziate con diversi colori, in una macro vba , dato un
range che mi calcolo io, vorrei fare il copia incolla in un'altra cartella
di lavoro aperta, il problema qual'è ??? Che non riesco a far funzionare
(nemmeno manualmente, non solo da codice) la copia, infatti non mi presenta
nell'incolla la possibilità di scegliere incolla/tutto e quindi riportarmi
le identiche formattazioni
Questa operazione non è possibile farla tra due cartelle di lavoro diverse.
Sembra che in questa situazione mi dia la possibilità di un incolla
speciale, ma se incollo come collegamento,il volume del file ecxcel aumenta
a dismisura, se scelgo solo testo, perdo le formattazioni
Come posso risolvere secondo voi ? grazie mille

[Mauro Gamberini]

Ciao a tutti,
ho delle celle evidenziate con diversi colori, in una macro vba , dato un
range che mi calcolo io, vorrei fare il copia incolla in un'altra cartella
di lavoro aperta, il problema qual'è ??? Che non riesco a far funzionare
(nemmeno manualmente, non solo da codice) la copia, infatti non mi presenta
nell'incolla la possibilità di scegliere incolla/tutto e quindi riportarmi
le identiche formattazioni
Questa operazione non è possibile farla tra due cartelle di lavoro diverse.
Sembra che in questa situazione mi dia la possibilità di un incolla
speciale, ma se incollo come collegamento,il volume del file ecxcel aumenta
a dismisura, se scelgo solo testo, perdo le formattazioni
Come posso risolvere secondo voi ? grazie mille
*****************************************

Qui copio/incollo le celle A1:D10 del Foglio1
del FileA.xls a partire dalla cella H1 del Foglio1
del FileB.xls. Entrambi i files aperti:

Public Sub m()

Dim wkA As Workbook
Dim wkB As Workbook
Dim shA As Worksheet
Dim shB As Worksheet

Set wkA = ThisWorkbook
Set wkB = Workbooks("FileB.xls")
Set shA = wkA.Worksheets("Foglio1")
Set shB = wkB.Worksheets("Foglio1")

With shA
.Range("A1:D10").Copy
shB.Range("H1").PasteSpecial
End With

Application.CutCopyMode = False

Set shA = Nothing
Set shB = Nothing
Set wkA = Nothing
Set wkB = Nothing

End Sub

NOTA. Per *formattazione* in questo caso
*non* sono inclusi i settaggi relativi a colonne
/righe.

---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/