Dropdown list on a form - values dependent on another dropdown on the form?

[TheWennerWoman]

I hope I can explain this properly.

I have a dropdown (combi?) box on a form called cmb_repcat and this contains a list of items (reporting categories) where the user needs to select one.

There is then another dropdown (combi?) box on the form called cmb_repsubcat - this contains a list of items (sub-reporting categories). I want this box to be populated only with items relevant to what is selected in the first dropdown.

So for example, if "Income" were selected in box 1, I wouldn't want the user to be able to select "Cost Of sales" from box 2 because that isn't income.

Any help appreciated, thank you for reading.

 

[Akuini]

Here's an example of 3 dependent combobox in a userform:

3 combobox, dependent, userform, simple, dictionary, table - 1

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[dmt32]

you can create tables for each sub-category & use the controls listindex property to access the required table.

02-06-2023.xls
	D	E	F	G	H
1	Sub-Category 1		Sub-Category 2		Sub-Category 3
2	Sub Category 1 -1		Sub Category 2 -1		Sub Category 3 -1
3	Sub Category 1 -2		Sub Category 2 -2		Sub Category 3 -2
4	Sub Category 1 -3		Sub Category 2 -3		Sub Category 3 -3
5	Sub Category 1 -4		Sub Category 2 -4		Sub Category 3 -4
6	Sub Category 1 -5		Sub Category 2 -5		Sub Category 3 -5
7	Sub Category 1 -6		Sub Category 2 -6		Sub Category 3 -6
8	Sub Category 1 -7		Sub Category 2 -7		Sub Category 3 -7
9	Sub Category 1 -8		Sub Category 2 -8		Sub Category 3 -8
10	Sub Category 1 -9		Sub Category 2 -9		Sub Category 3 -9
Sheet1

code for the cmb_repcat control

Private Sub cmb_repcat_Change()
    Dim tbl     As ListObject
    Dim index As Long
    
    index = Me.cmb_repcat.ListIndex + 1
    If index = 0 Then Me.cmb_repsubcat.Clear: Exit Sub
    
    Set tbl = Worksheets("Sheet1").ListObjects(index)
    Me.cmb_repsubcat.List = tbl.DataBodyRange.Value
    
End Sub

Dave