workbooks copy zonder wijziging opmaak

Status
Niet open voor verdere reacties.

sis123

Gebruiker
Lid geworden
17 feb 2005
Berichten
284
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
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan