Multiple Listboxes, how do I know which one I have selected?

[dreid1011]

Good morning,

I have created a userform with 3 listboxes. Items are added to each listbox individually as the user inputs data into a corresponding text box. I am trying to add a delete item button, that when clicked, removes the selected item from whichever listbox the selected item is in. How do I tell Excel which listbox the item is in?

So far, Google searches yield results pertaining to multiple selections in a listbox, but not a single selection within multiple listboxes.

Any help is greatly appreciated, thank you.

 

[MickG]

Try this:-

Private Sub CommandButton1_Click()
Dim aList As Variant, Lt As Variant, n As Long
aList = Array(ListBox1, ListBox2, ListBox3)
For Each Lt In aList
    With Lt
       For n = 0 To .ListCount - 1
            If .Selected(n) Then
                .RemoveItem (n)
            End If
        Next n
    End With
Lt.ListIndex = -1
Next Lt
End Sub

 

[dreid1011]

Thank you, that code worked well. Here is what I have now after some modifications to accommodate the multipage on the form:

Dim ListArr As Variant, ListN As Variant
Dim n As Long
Dim CtrlName(4) As String
CtrlName(0) = "Counter"
CtrlName(1) = "Cashier1"
CtrlName(2) = "Cashier2"
CtrlName(3) = "Cashier3"
CtrlName(4) = "Cashier4"
ListArr = Array(MultiPage1.Pages(MultiPage1.Value).Controls(CtrlName(MultiPage1.Value) & "ChecksList"), MultiPage1.Pages(MultiPage1.Value).Controls(CtrlName(MultiPage1.Value) & "CChecksList"), MultiPage1.Pages(MultiPage1.Value).Controls(CtrlName(MultiPage1.Value) & "MOrdersList"))
For Each ListN In ListArr
    With ListN
        For n = 0 To .ListCount - 1
            If .Selected(n) Then
                .RemoveItem (n)
            End If
        Next n
    End With
ListN.ListIndex = -1
Next ListN

I'm going to clean it up a little more even later.