Remove Button for ListForm Trasnfer - need to unselect on original listform

[o4008]

I have 2 listforms. User can select on listform1 and click ADD to transfer to listform2.

I also have a REMOVE button. It removes it from listform2.

BUT what I would like for it to do, in addition to, is to unselect it on listform1 as well.

I can't seem to formulate the right code:

Please Login or Register  to view this content.

[AlphaFrog]

This will deselect the Listbox1 selection if that's what you're asking.

ListBox1.ListIndex = -1

[o4008]

Hmm - I tried but the selected item on Listbox2 is still selected on Listbox1.

Please Login or Register  to view this content.

[AlphaFrog]

Hmm - I tried but the selected item on Listbox2 is still selected on Listbox1.

Please Login or Register  to view this content.

Can you show your event procedures for both ListBox1 and ListBox2 ?

[o4008]

Please Login or Register  to view this content.

[Norie]

Perhaps.

Please Login or Register  to view this content.

[o4008]

Thank you so much Norie!!! - but now my problem becomes, how do I redirect the code to read from listbox2 and transfer applicable data? If you read my prior code - the selection on listbox1 is the one that is being transferred to the excel sheet.

[Norie]

Eh, wouldn't that just mean replacing ListBox1 with Listbox2 here?

Please Login or Register  to view this content.

[o4008]

Thought that, but now, listbox2 is unselected. Not only that - for some reason I get an error. Must be how I set up the transfer. UGH..

What I'm trying to do, is
1. Have listbox1 (Apple, Orange, Cherry) --- User chooses Apple and Orange --- it transfers it to listbox2 for review
2. User decides I don't want Apple --- user selects apple on listbox2 --- clicks remove button --- removes apple from listbox2 and also deselects it from listbox1
3. user clicks another button - this button reads from selected items on listbox1 --- and starts transfering to excel sheet

Sorry - first time using userforms. And I tried to step, but can't do it modally.

[Norie]

Don't check for what's selected in ListBox2,loop through the list - everything in it has already been 'selected' from ListBox1.

[o4008]

I'm confused

[Norie]

You've selected items in ListBox1 and transferred them to ListBox2.

So now everything in ListBox2 is what you selected from ListBox1, so you don't need to check what's selected in ListBox2.

Please Login or Register  to view this content.

[o4008]

Ahh.. Works - but now, I don't have the full data on listbox2. How do I transfer the array? I have 38 columns.
<code>
Sub AddButton_Click()
Dim i As Long

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ListBox2.AddItem ListBox1.list(i)
ListBox1.Selected(i) = False
End If
Next i

End Sub
</code>

[Norie]

How are you populating ListBox1 and where does the data come from?

[o4008]

On the properties, I listed a data table as a rowsource.

[Norie]

First, can I ask why you have the 2nd listbox?

If you only used one listbox this would be straightforward.