Listboxes value

Im using a code that reads the value in a listbox on a userform. My problem is that the code doesnt read the value unless the user clicks the text in the list box. Is there anyway of getting around this. Im using the code below-Private Sub CommandButton3_Click()

Me.Hide
Sheets("BALANCE SHEET").Select
Rows("4:9141").EntireRow.Hidden = True
v = ActiveWorkbook.CustomDocumentProperties("list").Value
Application.ScreenUpdating = False
For Each C In Worksheets("BALANCE SHEET").Range("a4:a9141") ' Adjust your range if necessary
If C.Value = v Then
C.Rows.EntireRow.Hidden = False
End If
Next C
Application.ScreenUpdating = True
ActiveWindow.SmallScroll Down:=-1
Module7.compbar
Unload Me
End Sub



Private Sub addbutton_Click()
ListBox2.AddItem ListBox1.Value
End Sub

Private Sub deletebutton_click()
If ListBox2.ListIndex = -1 Then Exit Sub
ListBox2.RemoveItem ListBox2.ListIndex

End Sub

Private Sub ListBox2_click()
ActiveWorkbook.CustomDocumentProperties("list").Value = ListBox2.Value
End Sub

The addbutton adds a selection from listbox1 to listbox2, then using the commandbutton3_click() its supposed to do its thing, but it won't becouse the code is not reading a value from listbox2 unless the user clicks the item in listbox2, then clicks commandbutton_click3(). Have any sugestions?

[Russell Hauf]

First of all, I want to thank you for putting all of your code in your post!

Do you get an error or does your code just not do what it should? At first blush, I'd quess that this is what's at the root of your problem:

Private Sub ListBox2_click()
ActiveWorkbook.CustomDocumentProperties("list").Value = ListBox2.Value
End Sub

This sets the custom property - so the user must click in ListBox2's list to get this to happen, correct?

If you're getting an error, click Debug and tell me what line it goes to. If you are not getting an error, tell me what does happen when it doesn't do what you want.

Thank you,

rh

[Todd_M]

Russell- Give me some time, get back to you a little later!

[Russell Hauf]

I'll be here. I'm trying to help you, remember?

[Todd_M]

Didnt mean to sound that way, sorry-
Ok,I do not get an error, It works as it should as long as I click on the text in the listbox2. But becouse im using commandbutton3_click() as the command to have the code work I dont want to have the user to have to click on the listbox2 and then click the commandbutton3(). Its redundant(cant spell that). So how do you have the user just click on commandbutton3() and have the CustomDocumentProperties("list").Value read listbox2 without actually clicking(highlighting) it?
Thanks, Todd

[Todd_M]

Hey Russell, If you get a chance can you help me with this question?
Thanks Todd

[Russell Hauf]

By definition, a listbox contains a list. So if nothing is selected, it does not have a value. If you want something that will only hold one value, use a textbox. But you can set the custom document properties from anywhere (ActiveWorkbook.CustomDocumentProperties("list").Value = ListBox2.Value ) -- again keeping in mind that for ListBox2 to have a value, there must be an item in ListBox2 selected.

If this doesn't help, send me the workbook with step by step instructions of what I should do to get the incorrect result (and maybe instructions on how you do get the desired result).

-rh