VBA Userform Data to be saved on Excel Sheet

[excel_sp]

Hello all,

I am trying to create an excel VBA userform which has a few details that are input using textboxes like "Student Name", "Student Address", Student contact number" etc. This form also contains several questions for which the user is supposed to select one of the 5 optionbuttons coressponding to wach question which are placed in a container frame.

There is a command button to save the input from the userform to the next excel sheet tab.

I am using the following piece of code:

Set ws = Worksheets("Data")
irow = ws.Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Row
With ws
.Range("A" & irow) = TextBox5.Value
.Range("B" & irow) = TextBox6.Value

The above piece of code is working. However I am not sure how to save the data from the chosen optionbutton in excel sheet.

Please help this newbie out!

 

[Paul Ked]

    Dim i As Long
    For i = 1 To 5
        If Controls("OptionButton" & i) = True Then
            [COLOR=#ff0000]Range("A1")[/COLOR] = "Option " & i & " selected."
        End If
    Next

Change the red address to where you want it inserted

 

[excel_sp]

Thank you Paul for your quick response. I have made some progress with the help of the code snippet that you had shared.

Now let's say:

OptionButton1 = 0
OptionButton2 = 2.5
OptionButton3 = 6
OptionButton4 = 7
OptionButton5 = 9
OptionButton6 = " "

       For i = 1 To 5
            If Controls("OptionButton" & i) = True Then

            .Range("H" & irow) = ("OptionButton" & i)
        End If
    Next

The output that I am getting in the excel sheet is basically the name of the Optionbutton that I have selected. How should i change the code to get the value of the selected Optionbutton in the cell.

Thanks again.

 

[Paul Ked]

OptionButtons are boolean, you'll have to create the text in your sub when writing to the sheet.

 

[Paul Ked]

Sorry, had to make a phone call...

    If OptionButton1 Then Range("H" & irow) = "0"
    If OptionButton2 Then Range("H" & irow) = "2.5"
    If OptionButton3 Then Range("H" & irow) = "6"
    If OptionButton4 Then Range("H" & irow) = "7"
    If OptionButton5 Then Range("H" & irow) = "9"

 

[excel_sp]

Thank you so much! Was able to make the necessary changes with your help in the userform to get the desired results!