Why does this code not work?

[technix]

Private Sub »»_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem (ListBox1.List(i))
End If
Next i
For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True Then
ListBox1.RemoveItem (ListBox1.List(j))
End If
Next j
End Sub

The part here

Private Sub »»_Click()
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem (ListBox1.List(i))
End If
Next i

This will take the multi selected items and will add them to listbox2

This code is where i am having problems

For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True Then
ListBox1.RemoveItem (ListBox1.List(j))
End If
Next j
End Sub

What I want to happen is as soon as the items selected were added to the listbox2 they would be deleted from listbox1

Derrick

 

[Ivan F Moala]

Try;

<pre/>
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
ListBox2.AddItem (ListBox1.List(i))
End If
Next i

For j = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(j) = True Then
ListBox1.RemoveItem (j)
End If
Next j

</pre>

 

[technix]

Thank you Ivan that worked, now could I trouble you to explain it so that I can understand

Derrick

 

[Ivan F Moala]

On 2002-08-30 23:31, technix wrote:
Thank you Ivan that worked, now could I trouble you to explain it so that I can understand

Derrick

Derrick
You nearly had the 1st part you just needed to have the index and NOt the actual selection input.
The last bit of your code you needed to step
down from the Actual Max index count as changing the Listindex via deleting also changes the index...if that makes sense.
ie start from the Last entry and work down and not from the 1st as this will change when you remove it.

 

[technix]

Thank you that does make sense. If at all possible could you help me out with my next dilemma?

http://www.mrexcel.com/board/viewtopic.php?topic=20454&forum=2&8