copy/paste met makro

[SVENeRGy]

Hoi,

Ik heb een klein vraagje.

ik heb bijvoorbeeld in cel K9 "boom" staan, en in cel K10 "appel".

ik sta op cel A11 en wil daarin door shift+ctrl+e het woord "boom" in die cel krijgen.


Ik heb al een klein begin:

Sub boom()
'
' boom Macro
' De macro is opgenomen op.....
'
' Sneltoets: CTRL+SHIFT+E
'
Range("K9").Select
Selection.Copy
End Sub

Nu moet ik dit nog in de cel krijgen waar ik eerst op stond. bijvoorbeeld A11
maar ik moet dit bijvoorbeeld ook in A18 en A20 zetten
Hoe doe ik dit?

tnx.

 

[Wigi]

Sub boom()
    Range("K9").Copy Selection
End Sub

 

[etri]

Dat kan ook zo:

Sub Boom()
   Range("K9").Copy
   Range("A11").PasteSpecial xlPasteValues
End Sub

Succes

 

[etri]

Of nog korter:

Sub Test
   Range("K9").Copy Range("A11")
End Sub

 

[Ginger]

Etri, Op zich zijn je oplossingen qua syntax goed, maar niet volgens de vraag van de TS...
De oplossing van Wigi voldoet wel aan de wens om te plakken in de actieve cel.

Groet, Leo

 

[etri]

Etri, Op zich zijn je oplossingen qua syntax goed, maar niet volgens de vraag van de TS...
De oplossing van Wigi voldoet wel aan de wens om te plakken in de actieve cel.

Groet, Leo

Hé, bedankt! Soms lees je een vraag 2x en interpreteer je die nog steeds fout..

 

[SVENeRGy]

Ok bedankt mensen werk perfect

Grtz

 

[Wigi]

Graag de vraag nog even op opgelost zetten, aub.