listbox form control scrollbar question

[billritz]

I want the scrollbar at the top, and I've seen solutions to use Sheets("Main").ListBoxes("List Box 1").scrolltop but excell says it's not a property or method. Does this only work with ActiveX? Can it be done with a simple form control? What about .topindex which the documentation from Microsoft says is a property of (inherited from) listbox. I can't get that to work either.

 

[Norie]

What documentation are you looking at?

 

[billritz]

I found .topindex at:
https://msdn.microsoft.com/en-us/li...aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

 

[Jaafar Tribak]

I don't think you can sroll a listbox (form control) programmatically.

But you can use a little hack if you just need to scroll to the top as follows:

Sub test()

    Dim list() As Variant
    
    With ActiveSheet.ListBoxes(1)[COLOR=#008000][B] '<== change listbox index or name as needed.[/B][/COLOR]
        list = .list
        .RemoveAllItems
        .list = list
        .Selected = 1
    End With

End Sub

 

[billritz]

Thanks for the great idea Jaafar! I didn't think about removing all items. Then, when it loads, the scrollbar initializes to the top, which is exactly what I wanted it to do.
In workbook_open I'm initializing the listbox to a sheet the superuser maintains, so I just made sure .RemoveAllItems was just before I loaded it.
It works great, and looks better for the users. Thanks again!

Sheets("Main").Activate
ActiveSheet.Shapes("List Box 1").Select
With Selection
.RemoveAllItems
.ListFillRange = "Picklist!$A$2:$A$" & Range("Picklist!A1048576").End(xlUp).Row
.LinkedCell = ""
.MultiSelect = xlExtended
.Display3DShading = True
End With

 

[Norie]

What exactly do you mean by 'scrollbar at the top'?

Do you mean you want the first item in the list selected?

 

[billritz]

I meant just that - I wanted the scrollbar at the top, regardless of what was selected. One user selected the top row, then scrolled down to the bottom and selected something else. He saved it like that, and the next user opened it, saw the selections he wanted, picked a couple with CTRL, ran it, and of course got data for the top one which was out of sight. I just added stuff in the workbook_open ti re-init each time it opens (see above) and took Jaafar's idea to clear it out first, which causes the scrollbar to init up at the top, even with nothing selected.

Thanks for the reply.