Userform problem [Message box for missing entry in opt and chk button]

[ranthrave]

Good day sir/madam!
Im using windows 7 excel 2010 and save it as xlsm

Kindly help me on my code

    If (optAAA.Value) = "" Then
    ElseIf (optBBB.Value) = "" Then
    ElseIf (optCCC.Value) = "" Then
    Else
    optAAA.SetFocus
    MsgBox "Pls choose product"
    Exit Sub
    End If

I try using this code but I got stuck on the option button maybe I'm missing something.

I also had a problem on putting a checkbox code in 'testing incomplete entry.

ORIGINAL CODE

 Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Sheet1").Activate
    Range("B5").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
       
'Test for incomplete entry
    If (txtDate.Value) = "" Then
    txtDate.SetFocus
    MsgBox "Please enter a date of exit"
    Exit Sub
    
    End If
    If (cboBranch.Value) = "" Then
    cboBranch.SetFocus
    MsgBox "Please enter a branch"
    Exit Sub
    End If

    If (optAAA.Value) = "" Then
    ElseIf (optBBB.Value) = "" Then
    ElseIf (optCCC.Value) = "" Then
    Else
    optAAA.SetFocus
    MsgBox "Pls choose a product"
    Exit Sub
    End If

    
    ActiveCell.Value = txtDate.Value
    ActiveCell.Offset(0, 1) = cboBranch.Value
    ActiveCell.Offset(0, 2) = txtSName.Value
    ActiveCell.Offset(0, 3) = txtFName.Value
    ActiveCell.Offset(0, 4) = txtMI.Value
    ActiveCell.Offset(0, 5) = txtCID.Value


    If optAAA = True Then
        ActiveCell.Offset(0, 6).Value = "AAA"
    ElseIf optBBB = True Then
        ActiveCell.Offset(0, 6).Value = "BBB"
    ElseIf optCCC = True Then
        ActiveCell.Offset(0, 6).Value = "CCC"
    Else
        ActiveCell.Offset(0, 6).Value = ""
    End If


    If chkXXX = True Then
        ActiveCell.Offset(0, 7).Value = "XXX"
    Else
        ActiveCell.Offset(0, 7).Value = ""
    End If
    If chkYYY = True Then
        ActiveCell.Offset(0, 8).Value = "YYY"
    Else
        ActiveCell.Offset(0, 8).Value = ""
    End If
    If chkZZZ = True Then
        ActiveCell.Offset(0, 9).Value = "ZZZ"
    Else
        ActiveCell.Offset(0, 9).Value = ""
    End If


'clearing forms
    Range("B5").Select
    txtDate.Value = ""
    cboBranch.Value = ""
    txtSName.Value = ""
    txtFName.Value = ""
    txtMI.Value = ""
    txtCID.Value = ""
    optAAA = False
    optBBB = False
    optCCC = False
    chkXXX = False
    chkYYY = False
    chkZZZ = False
    cmdExtra.SetFocus

End Sub

Thank You Very Much

[Excel Fox]

Are the controls activex controls or form controls? If you are not sure, just mention whether you are seeing

=EMBED("Forms.XXX.1","")

in the formula bar when you select the control? where XXX can be OptionButton or ComboBox

[ranthrave]

Are the controls activex controls or form controls?

BUMP

VBA user form control

[Admin]

Hi

Option Button value give either TRUE or FALSE and not ""

so try

If Not (optAAA.Value) + (optBBB.Value) + (optCCC.Value) Then
    optCCC.SetFocus
    MsgBox "Pls choose product"
    Exit Sub
End If

[ranthrave]

Thank you very much sir your code works fine

Heres the code I use before and put 'Test for incomplete entry

But I will use your code

    If optAAA = True Then
        ActiveCell.Offset(0, 6).Value = "AAA"
    ElseIf optBBB = True Then
        ActiveCell.Offset(0, 6).Value = "BBB"
    ElseIf optCCC = True Then
        ActiveCell.Offset(0, 6).Value = "CCC"
    Else
        ActiveCell.Offset(0, 6).Value = ""
    fraProduct.SetFocus
    MsgBox "Pls Choose product"
    Exit Sub   
 End If

How about in checkbox? Any ideas sir

[ranthrave]

Hi

Option Button value give either TRUE or FALSE and not ""

Sir Admin Based on your code it seems to be the and Checkbox Button also works but only for 1 box.
Assuming 2 checkbox or 3 checkbox will be tick

Kindly help me

[Admin]

Hi

Not sure about the requirement. Are you looking something like ?

Dim Ctrls, i As Long
    
    Ctrls = Array(CheckBox1, CheckBox2, CheckBox3)
    
    For i = LBound(Ctrls) To UBound(Ctrls)
        If Ctrls(i).Value Then 'if TRUE
            ActiveCell.Offset(, i + 1) = "Some Value"
        Else
            'unchecked
        End If
    Next

[ranthrave]

Sir
I'm looking something similar to your previous code

If Not (optAAA.Value) + (optBBB.Value) + (optCCC.Value) Then
    optCCC.SetFocus
    MsgBox "Pls choose product"
    Exit Sub
End If

Similar case, but instead of option button I will use checked button

If Not (chkXXX.Value) + (chkYYY.Value) + (chkZZZ.Value) Then
    chkXXX.SetFocus
    MsgBox "Pls choose 2 or 3 brand"
    Exit Sub
End If

[ranthrave]

I forgot the "Else".

Anyway just wanted to say Many Thanks sir Admin for your time and solutions