Userform Option Buttons

longtimeflyer · Jan 4th 2022

I am building a userform to track seminar invitation responses. Amongst other things, the form will contain three option buttons; "Accept, Decline, No Response". However, I am having issues with the coding and cannot find any online resources to help me.

There will possibly as many as 500 records that will be saved to a spreadsheet. I *think* my main issue is with the Range always pointing to C3.

It would be great if anyone has any suggestions or can point me to a good online resource.

TIA

Here is the code I have so far:

Code

Private Sub optOptionButton1_Click()


If Userform1.optOptionButton1.Value = True Then


Guest_List.Range("C3") = "Accept"


End If


End Sub


Private Sub optOptionButton2_Click()


If Userform1.optOptionButton1.Value = True Then


Guest_List.Range("C3") = "Decline"


End If


End Sub


Private Sub optOptionButton3_Click()


If Userform1.optOptionButton1.Value = True Then


Guest_List.Range("C3") = "No Response"


End If


End Sub

Display More

**royUK** · Jan 5th 2022

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

**royUK** · Jan 5th 2022

What is Guest_List?

longtimeflyer · Jan 5th 2022

Guest_List is the sheet name where all the data will stored. Sheet # is 10

**royUK** · Jan 6th 2022

Unless that id the Code Name of the sheet then that is not how you refer to sheets in VBA. Try this

Code

Dim lRw As Long
Private Sub optOptionButton1_Click()
    If Userform1.optOptionButton1.Value = True Then
        
        With Worksheets("Guest_List")
            lRw = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
            .Cells(lRw, 3).Value = "Accept"
        End With
        
    End If
    
    
End Sub


Private Sub optOptionButton2_Click()
    If Userform1.optOptionButton1.Value = True Then
        
        With Worksheets("Guest_List")
            lRw = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
            .Cells(lRw, 3).Value = "Decline"
        End With
        
    End If
End Sub


Private Sub optOptionButton3_Click()
    If Userform1.optOptionButton1.Value = True Then
        
        With Worksheets("Guest_List")
            lRw = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
            .Cells(lRw, 3).Value = "No Response"
        End With
        
    End If
    
End Sub

Display More

A ComboBox would be an alternative control and easier to code.

Userform Option Buttons

Participate now!

Share

Tags