Listbox1 to Listbox 2 Remove Item Once Selected

[baller1013]

I have a user form that has two listboxes (listbox1 and listbox2). When a user selects the value from listbox1 and adds it to listbox2, using command button, I would like the selection to disappear from listbox1. Additionally, if the user removes the selection from listbox2, I would like to add it back to listbox1. The listboxes are multicolumn (2) and multiselect. This is for a project so any help you can provide would be greatly appreciated. The following code I have that allows the user to select a value from listbox1 and add it to listbox2 is below. I have not been able to get the value to be removed from listbox1 as of yet. Thanks again!

If ListBox1.ListIndex = -1 Then Exit Sub

For i = 0 To ListBox1.ListCount - 1
     If ListBox1.Selected(i) = True Then
        ListBox2.AddItem ListBox1.List(i, 0)
        ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1)
        ListBox1.RemoveItem

     End If
Next I

End Sub

 

[Fluff]

How about

Private Sub CommandButton1_Click()
    
    Dim i As Long
    
    If ListBox1.ListIndex = -1 Then Exit Sub
    
    For i = ListBox1.ListCount - 1 To 0 Step -1
         If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.list(i, 0)
            ListBox2.list(ListBox2.ListCount - 1, 1) = ListBox1.list(i, 1)
            ListBox1.RemoveItem i
         End If
    Next i

End Sub

 

[baller1013]

Fluff- You are awesome! That worked perfectly!!!

I am going to try to do something very similar when a user chooses to remove the selection from listbox2; I want to add the value back to listbox1. Thanks again!!

 

[Fluff]

Fluff- You are awesome! That worked perfectly!!!

Glad to help & thanks for the feedback.

I am going to try to do something very similar when a user chooses to remove the selection from listbox2; I want to add the value back to listbox1.

Good luck. If you have any problems, post back