Move all from Listbox1 to Listbox2

[Matthew Dyer]

I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

 

[Matthew Dyer]

I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

I figured it out . For those curious, here is my solution:

Private Sub CommandButton2_Click()
Dim i As Integer
i = 0
Do Until ListBox1.ListCount = 0
ListBox2.AddItem ListBox1.List(i)
ListBox1.RemoveItem i
Loop
End Sub

 

[Harald Staff]

Hi

You don't say whether LIstbox2 contains anything that should be kept, so
assuming not:

Private Sub CommandButton1_Click()
Me.ListBox2.List = Me.ListBox1.List
Me.ListBox1.Clear
End Sub

HTH. Best wishes Harald

 

[GS]

Matthew Dyer wrote on 5/10/2011 :

I have a form with two listboxes. I have a button on the form that,
once pushed, i'd like everything from listbox1 to move to listbox 2.
help? thanks!

try...

With Me.ListBox1
ListBox2.List = .List
If .RowSource <> "" Then .RowSource = "" Else .Clear
End With