how move button next to active cell

[Ali M]

hi experts
I need procedure to move button next to acive cell. the button name is btn and not ACTIVE X . just button is linked with macro . I want automatically move the button next to active cell . if the acive cell is B2 then the button should be next to it.
thanks

 

[GWteB]

This code assumes your button is called "Button 1". The SelectionChange event handler of the worksheet is used, so the code has to be pasted in de module of the worksheet involved.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target.Offset(0, 1)
        Me.Shapes("Button 1").Top = .Top
        Me.Shapes("Button 1").Left = .Left + 2
    End With
End Sub

 

[Ali M]

awesome ! exactly this is what I want it .
thanks for this macro

 

[GWteB]

You are welcome and thanks for the feedback

 

[GWteB]

... a more robust version would look like:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Excel.Range
    On Error Resume Next
    Set r = Target.Offset(0, 1)
    On Error GoTo 0
    If Not r Is Nothing Then
        With Me.Shapes("Button 1")
            .Top = r.Cells(1, 1).Top
            .Left = r.Cells(1, 1).Left + 2
        End With
    End If
End Sub

 

[Ali M]

again thanks for provide me the best code