Float button on current row

[vabtroni]

Greetings everyone.

I have a button called "but_ENV_AVARIAS" wich runs a macro, and I need it to float on the current selected row near column I (with a fixed horizontal position), except if:
- current row is above row 8
- current row is below row 30007
...meaning, if selected row is not between rows 8 and 30007, I would like that button to become invisible.

Is there any chance I could put it on VBA?

Best regards,
Vasco.

 

[My Aswer Is This]

So you do not have to change all the button names in this script just change the name in this script highlighted in red.

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:K")) Is Nothing Then
Dim ans As String
ans = "[COLOR=#ff0000]but_ENV_AVARIAS[/COLOR]"
If Target.Cells.Count > 1 Then Exit Sub
If ActiveCell.Row < 8 Or ActiveCell.Row > 30007 Then
ActiveSheet.Shapes.Range(ans).Visible = False
Else
ActiveSheet.Shapes.Range(ans).Visible = True
End If
ActiveSheet.Shapes.Range(ans).Top = ActiveCell.Top
ActiveSheet.Shapes.Range(ans).Left = Cells(1, "N").Left
End If
End Sub

 

[My Aswer Is This]

You said "A:K" and then next to "I" which is inside "A:K" so I set it to "N" change "N" marked in red to what you want.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A:K")) Is Nothing Then
Dim ans As String
ans = "[COLOR=#ff0000]but_ENV_AVARIAS[/COLOR]"
If Target.Cells.Count > 1 Then Exit Sub
If ActiveCell.Row < 8 Or ActiveCell.Row > 30007 Then
ActiveSheet.Shapes.Range(ans).Visible = False
Else
ActiveSheet.Shapes.Range(ans).Visible = True
End If
ActiveSheet.Shapes.Range(ans).Top = ActiveCell.Top
ActiveSheet.Shapes.Range(ans).Left = Cells(1, "[COLOR=#ff0000]N[/COLOR]").Left
End If
End Sub