Multi-Select Dependent List Boxes Possible

[jaysunice]

Here's the situation. I more or less have a tiny "database" (if you'd even call it that) that contains:

1. Brands
2. Products
3. Descriptive Categories

Each Brand (15) can contain anywhere from 2 to 30 different Products. Each Product, contains the same set of 15 Descriptive Categories.

***

I would like to create a way to have a mult-select list box drop down that would allow me to choose one or more of the Brands. Then, a second dependent list would allow me to choose (one or more) amongst the relevant Products for the associated Brands that were just selected. Finally, a query button that returns the pertinent information in a table format.

***

I know how to create dependent lists using =Indirect() via Data Validation lists, however, this does not translate to Mult-Select List Boxes.

Many Thanks!

 

[MickG]

This may be the basis of what you want, to load "StudyArmBox" from selection in "IDBox"
Place a Commandbutton on Userform and insert code below.
NB:- Change Properies of "IdBox" to "Multselect"

Private [COLOR="Navy"]Sub[/COLOR] CommandButton1_Click()
[COLOR="Navy"]Dim[/COLOR] R [COLOR="Navy"]As[/COLOR] Variant, nn [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
R = Sheets("MasterSheet").Cells(1).CurrentRegion.Resize(, 3)

[COLOR="Navy"]With[/COLOR] IDBox
    StudyArmBox.clear
    [COLOR="Navy"]For[/COLOR] n = 0 To .ListCount - 1
        [COLOR="Navy"]If[/COLOR] .Selected(n) [COLOR="Navy"]Then[/COLOR]
            [COLOR="Navy"]For[/COLOR] nn = 1 To UBound(R)
                [COLOR="Navy"]If[/COLOR] R(nn, 1) = .List(n) [COLOR="Navy"]Then[/COLOR]
                    StudyArmBox.AddItem R(nn, 3)
                [COLOR="Navy"]End[/COLOR] If
            [COLOR="Navy"]Next[/COLOR] nn
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] n
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick