UserForm VBA to validate that 1 of 2 option buttons is selected in a group

bbxl · Oct 26th 2011

On a UserForm, I have Frame1 which contains Option Buttons (opt_SalesLine & opt_TechLine) which are used to determine to which worksheet the data will be sent.
Here's the EnterButton VBA code I have to this point...

Code

Private Sub EnterButton_Click()    Dim NextRow As Long
    
    ' Make Sales or Tech worksheet active
        If opt_SalesLine Then Sheets("SalesCalls").Activate
        If opt_TechLine Then Sheets("TechCalls").Activate
        
    ' Determine the next empty row
        NextRow = Application.WorksheetFunction. _
            CountA(Range("A:A")) + 1
        
    ' Insert date and time in first cell of worksheet
        Cells(NextRow, 1) = (Now)
    
    ' Transfer data from form to worksheet
        Cells(NextRow, 2) = txt_TechName.Text
        Cells(NextRow, 3) = txt_ServiceTicket
        Cells(NextRow, 4) = txt_CustomerName
        Cells(NextRow, 5) = txt_CustomerPhone
        Cells(NextRow, 6) = txt_Issue
        If opt_Sale Then Cells(NextRow, 7) = "Sale"
        If opt_NoSale Then Cells(NextRow, 7) = "Fail"
    
    ' Clear the controls for the next entry
        opt_SalesLine = True
        txt_TechName.Text = ""
        txt_ServiceTicket.Text = ""
        txt_CustomerName.Text = ""
        txt_CustomerPhone.Text = ""
        txt_Issue.Text = ""
        ' opt_Sale = True
        txt_TechName.SetFocus
    ' Populate Close Rate textbox
        txt_CloseRate.Value = Worksheets("Dashboard").Range("I2").Value
    ' Save workbook to prevent data loss
        ActiveWorkbook.Save








End Sub

Display More

I don't want to make either option default, but I need to make it mandatory that one of these options is selected before the UserForm data can be sent to the appropriate worksheet. Just started with VBA on this side-project, so please, use newbie language

bbxl · Oct 26th 2011

Re: UserForm VBA to validate that 1 of 2 option buttons is selected in a group

would the following meet my requirements?

Code

If opt_SalesLine.Value = False And _ 
    opt_TechLine.Value = False Then 
        MsgBox "Please select a Call Source", , "Selection Error"

bbxl · Oct 26th 2011

Re: UserForm VBA to validate that 1 of 2 option buttons is selected in a group

it worked, kind of. I got the message, but when I acknowledged it, the form was reset, all fields blank. I need to avoid this obviously. Any assistance greatly appreciated.

edgaryp · May 4th 2013

Re: UserForm VBA to validate that 1 of 2 option buttons is selected in a group

Quote from bbxl;581954

it worked, kind of. I got the message, but when I acknowledged it, the form was reset, all fields blank. I need to avoid this obviously. Any assistance greatly appreciated.

Try this

If UserForm1.opt_SalesLine.Value = False _
And UserForm1.opt_TechLine.Value = False Then
msg = MsgBox("Please select an option.", vbOKOnly + vbInformation, "Select option") Exit SubEnd If

**royUK** · May 4th 2013

Re: UserForm VBA to validate that 1 of 2 option buttons is selected in a group

edgaryp

Welcome to the Forum, please read the Forum Rules & use Code Tags when posting code.

UserForm VBA to validate that 1 of 2 option buttons is selected in a group

Participate now!

Share