Select UserForm ListBox Value For Closed WB Input

**bdb1974** · 04-19-2011, 03:49 PM

Hi all,

Seems my problems are never ending.

Using a userforms listbox item. BTW only 1 item is listed. I'm trying to select that
item with code so the value/text can be copied over to an previously closed workbook(WB). Currently, I'm trying to select the item using the following:

Please Login or Register  to view this content.

It seems that the method that I'm using to select the list box items doesn't always work.
My MsgBox will return a empty box. Where if I walk through the code and manually select the listbox I will get LB5 to hold the listbox5 value.

I've been trying to figure this out over the past few days. Any help as always much appreciated.

Thanks,

BDB

**davegugg** · 04-19-2011, 04:25 PM

It seems to me that you are not declaring your LB5 variable. You probably want to declare it as a string, then get the value from the listbox using the .Value property. As is, LB5 is not declared a certain data type, and when you set it to your listbox it probably is using the Object data type.

Please Login or Register  to view this content.

**bdb1974** · 04-19-2011, 05:07 PM

davegugg, In my example i just forgot to show that I had dim'd LB5 As string.

I know that's not my problem.

In regards to setting
LB5 = Me.ListBox5.Value

I've tried this too.

I've got 3 list boxes I'm trying to obtain info from. I've placed a msgbox after each
string variable to visually show me what the value is for each LB. Running the following
code will leave the first LB empty, the second LB will capture the listbox2 value and
the 3rd LB will be empty.

Please Login or Register  to view this content.

Still seems the only way I can get all 3 listboxes values is to manually select them.

I didn't want to do this but I might have better luck using textboxes.

Still hoping someone might have a solution.

thanks,

BDB

**bdb1974** · 04-19-2011, 05:45 PM

If a listbox contains an item (not empty) , then maybe do something like
for each item in listbox add to an array then from the array set a variable
equal to the element in the array?

Goto be another way of pulling this value out of the listbox.

BDB

**bdb1974** · 04-19-2011, 06:02 PM

Great news! I stumbled accross an idea which actually works.

Here's goes:

Dim LB3 As string
Dim lItem as Integer

For lItem = 0 To ListBox3.ListCount - 1

If ListBox3.Selected(lItem) = True Then
LB3 = Me.ListBox3.List(lItem)
LB3 = LB3
MsgBox LB3
ListBox3.Selected(lItem) = False
End If

Next

I did this for all 3 listboxes and got all 3 to return with the item listed.

Yeah!!!!

Regards,

BDB