Macro plakken speciaal

[Ron321]

Hoe kan je in een macro zeggen plakken speciaal, waarden en opmaak?

 

[richard1970]

Beste Ron,

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Groeten,

Richard

 

[Ron321]

Dat is toch alleen waarden en geen opmaak?

 

[lcodee]

Ron,

Maak van xlPasteValues "xlPasteAll"

 

[richard1970]

Klopt. Ik was de volgende stap vergeten te kopieren. Je kunt namelijk òf de waarden plakken, òf de opmaak, maar niet beiden tegelijkertijd. met twee regels in je macro kan dat wel:

Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormats

Ik heb gelijk overbodige regels verwijderd.
succes,

Richard

 

[Ron321]

@Icodee, ik wil niet de formules kopieren, maar bedankt voor de moeite.

@Richard, dat is 'm, bedankt:thumb: en tot de volgende keer.

Ps, wat doen die regels die je nu weg gelaten hebt?

 

[richard1970]

Hoi Ron,

Die verwijderde regels veranderen niets. Als je handmatig kiest voor plakken Speciaal, dan zie je in het dialoogvenster drie vakken:
Plakken
Bewerking
<naamloos>
met per vak opties. Bij keuzerondjes kun je slechts één optie aanvinken (waarden of opmaak). Bij vierkante selectievakjes kun je er nul of meerdere kiezen. Wanneer je met de macrorecorder je handelingen opneemt, zul je zien dat VBA veel regels toevoegt die overbodig zijn omdat ze niets doen. Die kun je probleemloos verwijderen uit je macro. Maakt het geheel ook leesbaarder.

groeten,

Richard

 

[Ron321]

Dankje voor de uitleg.

Groeten, Ronald