Other multi select listboxes in MS Excel 365

I am looking for nice listboxes in MS Excel. I know that there are multiselect listboxes in MS Excel, which can be controlled through VBA. But I want one that has the layout of a the filter dropdowns, with checkboxes where you can select the options.
Frans_TruyensAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Rgonzo1971Commented:
Hi,

in VBA the normal Listbox can have check boxes if you set ListBox1.ListStyle = fmListStyleOption

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnCount = 3
        .ColumnWidths = "1cm;2cm;2cm"
        '.ColumnHeads = True
    ListBox1.RowSource = "Sheet1!A2:C10"
    ListBox1.ListStyle = fmListStyleOption

    End With
End Sub

Open in new window

Regards
0
Frans_TruyensAuthor Commented:
I will try thanks
0
Frans_TruyensAuthor Commented:
No this does NOT work.

Set lst = Sheets("Sheet4").ListBoxes("lstTest")
lst.ListStyle = fmListStyleOption
0
Ultimate Tool Kit for Technology Solution Provider

Broken down into practical pointers and step-by-step instructions, the IT Service Excellence Tool Kit delivers expert advice for technology solution providers. Get your free copy now.

Frans_TruyensAuthor Commented:
the listbox property is not supported.
0
Rgonzo1971Commented:
I meant a listbox in a form
0
Frans_TruyensAuthor Commented:
I am using a listbox in a sheet. But the property isn't there?
0
Rgonzo1971Commented:
pls try

Set lst = Sheets("Sheet4").ListBoxes("lstTest")
lst.Object.ListStyle = 1 'fmListStyleOption
lst.Object.MultiSelect = 1
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Frans_TruyensAuthor Commented:
I returned home. I will try it monday at my work. I will continue Monday morning.
0
Frans_TruyensAuthor Commented:
Rgonzo1971
this does not work. I am working with Excel 365
 
Sorry for the delay. I was at another customer's site last week.
0
Rgonzo1971Commented:
Sorry can't help further
0
Frans_TruyensAuthor Commented:
Is there another solution? I have found on the internet that you solution works with Office 2003, but I am working with Office 365.
0
Rgonzo1971Commented:
HI,

pls try

Sub Macro()
Set s = Selection
For Each shp In ActiveSheet.Shapes
    If shp.Type = msoOLEControlObject Then
        Set lstbx = shp
        Exit For
    End If
Next
lstbx.OLEFormat.Object.Object.ListStyle = fmListStyleOption
lstbx.OLEFormat.Object.Object.MultiSelect = 1
End Sub

Open in new window

EE20150309.xlsm
0
Frans_TruyensAuthor Commented:
I downloaded your file. But I am not able to check/uncheck the checkboxes.  Is it possible to check/uncheck? Or how does this work?
0
Rgonzo1971Commented:
But can you select one of the lines
0
Frans_TruyensAuthor Commented:
No. I looks like an image.
0
Rgonzo1971Commented:
then like I said
can't help further
0
Frans_TruyensAuthor Commented:
Anyone else can help?
0
Martin LissOlder than dirtCommented:
This question has been classified as abandoned and is closed as part of the Cleanup Program. See the recommendation for more details.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.