Validate if option button selected at least one selection from a multiselect listbox has also been selected

[NorthbyNorthwest]

Hi, everyone. Hope someone can help. I have a dozen sets of yes/no option buttons on a user form. Underneath each set yes/no option buttons is a multiselect list box. How can I validate the user has selected at least one item from the corresponding list box if he or she selected the no option button in response to a question? If the user has missed making one or more list box selections I want to send message as a reminder. Again, the user is only required to make a list box selection if they have selected the no option button to the question above.

 

[HaHoBe]

Hi NorthbyNorthwest,

maybe add a frame to your set of optionbuttons and the listbox. I added a commandbutton for the check with a code like this (change names to fit):

Private Sub CommandButton2_Click()

  Dim lngLBCounter As Long
  Dim blnSelected As Boolean
 
  If optNo Then
    For lngLBCounter = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(lngLBCounter) = True Then
        blnSelected = True
      End If
    Next lngLBCounter
    If Not blnSelected Then
      MsgBox "wrong choice"
    Else
      MsgBox "All´s well"
      ListBox1.Enabled = False
    End If
  Else
    MsgBox "All´s well"
    ListBox1.Enabled = False
  End If

End Sub

Private Sub optNo_Click()

  ListBox1.Enabled = True

End Sub

Private Sub UserForm_Initialize()

ListBox1.Enabled = False

End Sub

HTH,
Holger

 

[NorthbyNorthwest]

Hi NorthbyNorthwest,

maybe add a frame to your set of optionbuttons and the listbox. I added a commandbutton for the check with a code like this (change names to fit):

Private Sub CommandButton2_Click()

  Dim lngLBCounter As Long
  Dim blnSelected As Boolean
 
  If optNo Then
    For lngLBCounter = 0 To ListBox1.ListCount - 1
      If ListBox1.Selected(lngLBCounter) = True Then
        blnSelected = True
      End If
    Next lngLBCounter
    If Not blnSelected Then
      MsgBox "wrong choice"
    Else
      MsgBox "All´s well"
      ListBox1.Enabled = False
    End If
  Else
    MsgBox "All´s well"
    ListBox1.Enabled = False
  End If

End Sub

Private Sub optNo_Click()

  ListBox1.Enabled = True

End Sub

Private Sub UserForm_Initialize()

ListBox1.Enabled = False

End Sub

HTH,
Holger

Thanks so much for the help, Holger. I'll give it a go.