Listbox2.removeitem

[rwheeler]

I have this code to add items to listbox2 from listbox1. How can I code a Commandbutton4 to remove selected items in listbox2

Private Sub CommandButton3_Click()
Dim i As Integer
For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) Then
ListBox2.AddItem (ListBox1.List(i))
End If
Next
End Sub

 

[kpark91]

Do you mean ListBox2.Clear ?

 

[rwheeler]

I want to have the ability to remove certain items, not clear the whole thing

 

[VoG]

Untested

With UserForm1.textbox2
 .AddItem ""
 .ListIndex = .ListCount - 1
 .RemoveItem .ListCount - 1
End With

 

[kpark91]

If you want to see if the item is Hello, then try

For i = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox2.List(i) = "Hello" Then
        ListBox2.RemoveItem (i)
    End If
Next i

 

[rwheeler]

That worked great!!! Thank you all!

 

[kpark91]

..Which one worked? lol
I have no idea how VoG's code works from just seeing it

 

[rwheeler]

Your work well. I did not have any luck with his, though I do appreciate the reply. I think all i was doing wrong was either using the same variable (i) for the add and remove or I had "ListBox2.RemoveItem (ListBox1.List(i))" instead of "ListBox2.AddItem (i)"