Is there a way to add "CommandButtons" next to each cell ?

[Mr.Karr]

Imagine, I've a data table that I send across to my customer for them to select/add specific rows that they feel are ready to be analysed further. Is there a way, I can provide them with command buttons so they can click add and revert ?

Select	Team	Grade	Score
	A	A	95​
	B	C	78​
	D	S	85​
	F	A	83​
	G	E	85​
	K	A	82​

Please see sample data file attached.

Much appreciated.

 

[jolivanes]

Sub Add_Buttons()
Dim c As Range, btn As Object
'  ActiveSheet.Buttons.Delete

    For Each c In Range("A2:A" & Cells(Rows.Count, 2).End(xlUp).Row)
        With c
            Set btn = ActiveSheet.Buttons.Add(c.Left + 4, c.Top + 4, c.Width - 8, c.Height - 8)
                With btn
                    .OnAction = "Add_To_Team_" & c.Offset(, 1).Value
                    .Caption = "Add"
                    .Name = "Button " & c.Row - 1
                End With
        End With
    Next c
End Sub

 

[Mr.Karr]

@jolivanes thanks for trying...

 

[jolivanes]

Re: thanks for trying..
It doesn't work? Works here.

 

[Mr.Karr]

yep, I got it working

 

[jolivanes]

I played some more with your code. See attached.
Disregard the "See If They Work" Button.
Use the Buttons in Column A instead.