kopieer macro

[NicoH1967]

Ik ben op zoek naar een macro die een actieve cel naar een andere cel kopieert.

Ik wil dat hij de inhoud van de cel waar ik op dat moment op sta door middel van een
klik op een macro knop dit kopieert naar bijvoorbeeld cel P1.

Een macro om een cel naar P1 te kopieren is niet zo moeilijk, maar een actieve willekeurige cel lukt mij niet.

Ik hoop dat iemand mij kan helpen, alvast bedankt.:thumb:

 

[gast0660]

Sub dotchie()
ActiveCell.Copy
Range("P1").PasteSpecial
Application.CutCopyMode = False
End Sub

 

[Roncancio]

Sub Overzetten()
Range("P1").Value = ActiveCell.Value
End Sub

Met vriendelijke groet,


Roncancio

 

[NicoH1967]

top

Beetje laat, maar top bedankt werkt prima :thumb: