Juiste rij in VBA

[Hom]

Goedeavond,


Sheets("Data").Select
ActiveSheet.Shapes.Range(Array("TextBox 1")).Select
Selection.Copy
Sheets("Onderhoud").Select
Columns(10).Select
ActiveSheet.Paste
End sub

Bovenstaande is een macro welke gekoppeld is aan een zelf gemaakte knop in het lint.
Bij het activeren van deze knop plakt deze Textbox 1 in het werkblad "Onderhoud" in kolom J (10).
Wat ik graag wil is dat bij het activeren van de knop, terwijl er een willekeurige cel in het werkblad is geselecteerd, de Textbox 1 wel in dezelfde rij komt
maar dan wel in Kolom J. Stel dat de cel B9 is geselecteerd, dan bij activatie wordt de textbox 1 geplakt in J9.
Groet Hom

 

[Ginger]

ipv... Columns(10).Select
doe... cells(activecell.row, 10).select

(om ff héél dicht bij je eigen code te blijven... )
(want ál dat selecteren is echt niet nodig)

 

[Hom]

Dag Ginger,

Hartelijk dank voor deze oplossing. Het werkt en hoe.
Groet Hom