Option required

[Big Lar]

Suggestions on how to add code to require Option?

UserForm1 includes 2 OptionButtons
If neither OptionButton is True Then
MsgBox "Option Required"

Private Sub CommandButton1_Click()
With Sheet11
Sheet11.Unprotect
    Set ws = Sheet11
 
    PName = UF1.ComboBox1.Value
    Set CLoc = ws.Columns("C:C").Find(What:=PName, after:=ws.Cells(1, 3), LookIn:= _
                            xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:= _
                            xlNext, MatchCase:=False, SearchFormat:=False)
        iRow = CLoc.Row
 
    ws.Cells(iRow, 14) = "A"
    ws.Cells(iRow, 15) = Date
   
    If OptionButton1 = True Then
    ws.Cells(iRow, 16) = "Cash"
    Else
    ws.Cells(iRow, 16) = "Ck#" & TextBox1.Value
    End If
 
End With
Unload Me
 
End Sub

 

[Norie]

Try this.

If Not(Option1.Value Or Option2.Value) Then
    MsgBox "Option required!", "No option"
    Exit Sub
End If

 

[Domenic]

You might prefer Norie's solution, but here's a similar way...

Private Sub CommandButton1_Click()
    If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False Then
        MsgBox "Option Required", vbExclamation
        Exit Sub
    End If
    'etc
    '
    '
End Sub

Also, since you're using a "With/End With" statement, you can replace...

Sheet11.Unprotect

with

.Unprotect

Hope this helps!

 

[Big Lar]

Thanks for the assistance!
Saved me several hours...again!

 

[mikerickson]

Perhaps the simplest way would be to have one option button checked by default when the userform was opened. Let the user change the default selection if they choose, but don't force them to click.