Select first Item in Listbox

[Djblois]

I am trying to select the first item in a list box with its index number. This is what I have tried and it keeps crashing:

[vba]Me.lbColumn1SC.ListIndex.Value = 1[/vba]

The reason why I am trying it this way is because the list is always different so I can't select in by name.

I even tried:

[vba]Me.lbColumn1SC.ListIndex = 1[/vba]

[Paul_Hossler]

Djblois --

Try

[VBA]

Private Sub UserForm_Initialize()
With Me.ListBox1
.Value = .List(0)
End With
End Sub

[/VBA]

Paul

[mikerickson]

If the list box is on a Userform or from the Toolbox,

Me.ListBox1.Selected(0) = True

If its from the Forms menu, its 1 based and this syntax is needed

ActiveSheet.Shapes("List Box 1").OLEFormat.Object.Selected(1) = True

[Djblois]

This Crashes the program:

[VBA]

Me.ListBox1.Selected(0) = True

[/VBA]

and this one won't compile:

[VBA]With Me.ListBox1
.Value = .List(0)
End With[/VBA]

[Norie]

Can you tell us where the listbox is actually located?

When are you actually trying to do this?

Is the listbox actually populated when you try it?

How is it 'crashing'?

[lucas]

Why are you making us guess Daniel? Please provide an example...

[Djblois]

Sorry,

It is in a form. It is populated already. I add the data to it before I show the form with this:

[VBA]PivotSummary.lbColumn1SC.List = Array("Product", "Division", "Department", "Country", _
"P-Category", "P-Manager")[/VBA]

However, I am trying to add this in the forms code window:

[VBA]With Me.ListBox1
.Value = .List(0)
End With[/VBA]

The reason I am trying to add it there is I use the same form for multiple reports. Ex: Customer Reports and Product Reports and even though I use this to chose one of the items in the list before I show the form, nothing is selected:

[VBA]PivotSummary.lbColumn1SC.Value = "Product"[/VBA]

so I am trying to get it selected other ways.

[Norie]

Daniel

So how is it 'crashing'?

What error message if any are you getting?

[Djblois]

"Could not select the selected Property. Invalid property value."

and to double check I bypassed the line and it was populated.

However, if I change the True to False then it doesn't crash. I also tried a value of 1 and it still crashes with the same error message.

[Norie]

Did you try this?
[vba]

Me.lbColumn1SC.ListIndex = 0
[/vba]

[Djblois]

no but I tried

[VBA]me.lbcolumn1SC.listindex = 1[/VBA]

and that also crashed with a error saying:

Could not select the set the List Index Property. Invalid property value

[Norie]

Daniel

Is listindex definitely in lower case?

[Djblois]

No, I just checked it is "ListIndex"

[lucas]

since you don't seem to be willing to post an example....Paul's method works so you're doing something different which we can't see because......I just don't understand.

[Djblois]

Lucas,

the underlying code is so large and ingrained in the program it would take me about 3 hours to post an example. I am not trying to make it any harder, just to show what I am doing fully would take a long time.

[lucas]

I don't know what to say.....did you try the example that I posted with Paul's code? Did it work for you in the example....if so why can't you incorporate it into your code?

[jmfurban]

Thank you... I needed this!

[rory]

Daniel,
You do have the

me.lbcolumn1SC.listindex = 0
line after the line that populates the listbox, don't you? (If not, you will get the error you describe)

[pstraton]

My experience with ListBox controls in UserForms is that setting .ListIndex = n or .Selected(n) = True doesn't seem to help at all. The only workaround that I've found is the following, where "n" is the list item to be selected/highlighted:

    Dim SaveVal As String
    With MyUserForm.SomeListBox
        SaveVal = .List(n)
        .Value = ""
        .Value = SaveVal
        .SetFocus   'Not required, but allows up/down arrow keys to function normally.
    End With

Note that just re-assigning the selected list item to its current value doesn't work because the underlying code apparently checks for that case and treats it as a no-op.

[SamT]

10 yo thread