Removing items from listbox
I had to take out the test for cbDuplicates and the ListIndex tests for -1
to test it, but after doing so it worked fine for me.
Check that these values are not set incorrectly.
--
HTH
Bob Phillips
(remove nothere from email address if mailing direct)
"asmenut" wrote in message
...
I have (2) listboxes (List_AddTo - List_AddFrom). I have populated
List_AddTo
with values from a Spreadsheet range. The List_AddFrom listbox is
initially
populated from via VBA. I am having difficulty removing items from
List_AddFrom when they match List_AddTo items:
'Validate List_AddFrom Listbox with List_AddTo listbox and remove items as
necessary
If List_AddTo.ListIndex = -1 Then Exit Sub
If List_AddFrom.ListIndex = -1 Then Exit Sub
If Not cbDupicates Then
For i = 0 To List_AddTo.ListCount - 1
For j = 0 To List_AddFrom.ListCount - 1
If List_AddTo.list(i) = List_AddFrom.list(j) Then
List_AddFrom.RemoveItem j
End If
Next j
Next i
End If
Any ideas as to what I am doing wrong?
|