workbooks copy zonder wijziging opmaak

[sis123]

workbooks copy zonder wijziging opmaak

--------------------------------------------------------------------------------

Sub cpr13()

Dim TP As String
Dim TS As String

TP = "verpakkingsplanning Feb.08.xls"
TS = "OVZ2008.xls"

Workbooks(TS).ActiveSheet.Range("e3").Copy Workbooks(TP).ActiveSheet.Range("c13")

End Sub

Ik gebruik bovenstaande macro.

Nu als ik data uit TS copieer naar TP dan wijzigt de opmaak van TP, hoe kan dit vermeden worden ?

Danke

----

als de de doelcel met voorwaardelijke opmaak definieer blijft de opmaak na copy ongewijzigd, bij gewone opmaak niet
ps. de opmaak betreft de achtergrondkleur van de doelcel

 

[Jan van Asseldonk]

Gebruik plakken speciaal, en dan waarden en nogmaals formules en eventueel nogmaals voor opmerkingen maar niet opmaak.