Was a specific item selected in a multi-select listbox?

[clhare]

Hi all! I have a multi-select listbox with 5 items in it on my userform. If one specific item is selected, I need to do something. How do I check to see if that item is selected?

I tried adding the following to the click event for the listbox, but it only works if the box is single-select.


Private Sub lstMyListbox_Click()
With lstMyListbox
If .Selected(2) Then
MsgBox "you selected item B"
End If
End With

End Sub

Thanks!

Cheryl

[SamT]

For a Multiselect control you need to look at each index to see if it is Selected.

This is just example code, It doesn't actually fit your requirements.

Private Sub LBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i
Dim j
Dim SelectionList(lbox1.ListCount) 'an array of selected Items
Dim Selections As String 'A comma separated String of Selected Items

For i = -1 To lbox1.ListCount - 1
'List indexes start at zero, Counts start at 1, Listindex -1 means no item selected.

If lbox1(i).Selected Then
SelectionList(j) = lbox1(i)
j = j + 1

If i = -1 Then
Selections = "False"
Else
Selections = Selections & ", " & lbox1(i)
End If
End If

Next i
End Sub

[gmaxey]

Cheryl,
The click event isn't triggered with a multi-select listbox (Since list items are indexed from 0 you may need to change (2) to (1):


Private Sub lstMyListbox_Change()
If lstMyListbox.Selected(2) Then Msgbox "You selected item B"
End Sub

[clhare]

Thank you! That works perfectly!

Cheryl