Macro

[Hoornvan]

Hallo helpers,

Ik heb een vraagje over een macro waar ik mee bezig ben.
Hij is niet van mij zelf, maar ik probeer hem te veranderen naar mijn wensen en stuit nu op het volgende.
Hij copieerd nu ook de voorwaardelijke opmaak mee en dat is niet de bedoeling, als hij enkel het getal doet is het goed.
Dit stukje heb ik er bij gezet, PasteSpeciaal zou eigenlijk PasteSpeciaal-Getal moeten zijn net zoals dat in het menu kan.

Range("puzzle").copy
Range("Oplossing").PasteSpecial

Is dit ook mogelijk?

Alvast bedankt en een prettig uiteinde.

Mvg. Hoornvan

 

[jzeedijk]

Hoi Hoornvan,

Range("puzzle").copy
Range("Oplossing").PasteSpecial xlValues

Even uit mijn hoofd.

Jeroen

 

[franç]

Moet zijn:
Range("A5").Paste:=xlValues
'en om de selectie op te heffen, best aan toevoegen:
Application.CutCopyMode = False

Opm: "puzzle" en "Oplossing" moeten uiteraard wel gedefinieerd zijn.

 

[DIEZEL]

Moet zijn:
Range("A5").Paste:=xlValues
'en om de selectie op te heffen, best aan toevoegen:
Application.CutCopyMode = False

Opm: "puzzle" en "Oplossing" moeten uiteraard wel gedefinieerd zijn.

Het is of:
.PasteSpecial Paste:=xlPasteValues
of
.PasteSpecial xlValues (zoals Jeroen al opmerkte)

maar niet:
.Paste:=xlValues

 

[franç]

Klopt Diezel, ik was iets te voortvarend met het wissen van gegevens in een macro.

 

[Hoornvan]

Hallo,

Bedankt voor het meedenken.
Nu net onderweg van boodschappen halen, bedacht ik ineens dat kan ik ook met een macro opnemen doen en dan kijken wat deze schrijft.
Dit is het resultaat;

Range("puzzle").Copy
Range("Oplossing").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Nu kan ik weer verder.

Iedereen een prettige jaar wisseling en een voorspoedig 2006

Mvg. Hoornvan:thumb: