Inputting multiple choices through buttons

[srcastle]

I have a worksheet which contains feedback scores for my company. I’ve set up user forms and command buttons to simplify the inputting.
For example, User form 1 says ‘How useful did you find the staff?’, and contains five command buttons, marked 1 to 5.
How do I get VBA to input the relevant value? ie if command box 3 is selected by the user, I need 3 entered into the next available row in column A?

Thanks for your help.

 

[mikerickson]

In that situation it would be better to use 5 Option buttons rather than Command Buttons.

 

[srcastle]

Wow -

Thanks for the quick reply. I don't much like the circular spot in the button, and I can't see how to remove it.

However - what would the code be for an option button?

Thanks again

 

[mikerickson]

You would probably connect this to a Submit button.

Dim ArrayOfOptionButtons as Variant
Dim i As Long

ArrayOfOptionButtons = Array("null", OptionButton1, OptionButton2, OptionButton3, OptionButton4, OptionButton5)

For i = 1 to UBound(ArrayOfOptionButtons)
    If ArrayOfOptionButtons(i) Then 
      Sheet1.Columns(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = "Option " & i & " selected."
    End If
Next i

 

[srcastle]

In the end I did this:
A short 'Call' instruction for the command button -

Private Sub CommandButton1_Click()
Call Q1A1
Unload Me
Q2.Show
End Sub

Then Question 1, Answer 1 (Q1A1) -
Sub Q1A1()
Range("C3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.Value = 1
End Sub

Answer 2's value would be 2 etc.
This allowed for Yeses and Nos, too.

I know that I've ended up with far more code than many here would find ideal, but at my level of progamming skill (almost zero), I needed something simple!

Thanks for taking the time to help - it really is appreciated.