Movable Macro button

[jrisebo]

I have a macro that takes you to the next open line in a series of data. I would like it to follow the current row you are in, so If I am in row 567, I would like the button to be somewhat close to that row. Any ideas?

 

[bobsan42]

something like:

button1.top = Range("A567").top

?

 

[jrisebo]

something like:

button1.top = Range("A567").top

?

I guess i wasnt clear. I want it to follow me, as I click a row. So it would vary. If cell A1000 is selected, I want the button to be in F1000, and so fourth.
I

 

[My Aswer Is This]

What type Button is this?
A Activex Button
A Form control Button
A Shape Button

 

[igold]

How about something like this to line up the top of the button with the top of the row of the current activecell.

This is assuming that the height of your rows are all uniform and that in this instance the row height is 18.00

ActiveSheet.Shapes("PartsButton1").Top = (ActiveCell.Row() * 18) - 18

Change "PartsButton1" to the name of your button.

 

[My Aswer Is This]

If your using a Shape for a Button

Try this:

Sub Move_Button()
'Modified 6/20/2019 4:11:41 PM  EDT
Dim v As String
v = Application.Caller
With ActiveSheet.Shapes(v)
    .Left = ActiveCell.Left
    .Top = ActiveCell.Offset(5).Top
End With
End Sub

 

[bobsan42]

You will have to include any code needed to move the button in the code for Worksheet Selection Change Event.