Creating multi select dependent dropdown list, how?

[abi1224]

Hello I need to have a multi select dependent dropdown list. And as an example below. Can anyone help please?

 

[kevin9999]

I'm not sure how you'd combine the dependencies with multiple selection data validations, but see if this gets you close to where you want to be. Note the formulas in cells L3 and M3 (make the ranges in the formulas as big as you need them to be) and the validation list references. Using this sheet:

Multi validation selections.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1
2	Items							Fruits	Vegetables	Drinks
3	Fruits							Apple	Potato	Pepsi		Fruits	Apple
4	Vegetables							Banana	Cucumber	Cola		Vegetables	Banana
5	Drinks							Orange		Fanta		Drinks	Orange
6										Redbull			Potato
7				Level 1	Level 2								Cucumber
8				Fruits, Drinks	Banana, Orange, Fanta								Pepsi
9													Cola
10													Fanta
11													Redbull
12
Sheet1

Cell Formulas
Range	Formula
L3:L5	L3	=FILTER(A3:A11,A3:A11<>"")
M3:M11	M3	=TOCOL(H3:J6,1,1)
Dynamic array formulas.

Cells with Data Validation
Cell	Allow	Criteria
D8	List	=$L$3#
E8	List	=$M$3#

And this code in the sheet code module of the above sheet (right click the sheet tab name, select View Code, and put the code in the window that appears on the right of screen).

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oldvalue As String, Newvalue As String
    Application.EnableEvents = False
    On Error GoTo Exitsub
    If Target.Address = "$D$8" Or Target.Address = "$E$8" Then
        If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
            GoTo Exitsub
            Else
            If Target.Value = "" Then GoTo Exitsub Else
            Application.EnableEvents = False
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            If Oldvalue = "" Then
                Target.Value = Newvalue
                Else
                If InStr(1, Oldvalue, Newvalue) = 0 Then
                    Target.Value = Oldvalue & ", " & Newvalue
                Else
                Target.Value = Oldvalue
                End If
            End If
        End If
    End If
Exitsub:
    Application.EnableEvents = True
End Sub

Link to demo file Here