Filter data by using dependent combo boxes

Hi. I have seen a post similar to my query which I have found here.

But because I hardly understand the codes brought up in there, I couldn't make adjustments to suit my data.

I have attatched a sample file I've made by referring to @gsrai31's post. What I would like is that (i) filtered data will only be displayed only after the user has made selections from the three dependent combo boxes (i. e. the second drop down list depends on the choice the user has made from the first, and so on) and (ii) to understand the procedures/lines of the VBA code so I could make necessary adjustments for it is certain that I will encounter other datasets that would require similar excel function.

Hi jraj1106. Yes, that's how I want it to be. Thank you for your time.

http://www.excelforum.com/excel-prog...html?p=3093866

1) to Filter sheet module

Please Login or Register  to view this content.

2) To ThisWorkbook Moudle

Please Login or Register  to view this content.

Fantastic! Thanks a lot jindon!

Originally Posted by stewfeed

Fantastic! Thanks a lot jindon!

I'm very new to this. Can someone please advise. I can't seem to make the macro run automatically for some reason. It has to be manually run.
1. Select from the drop down list in combo box
2. Have a macro called filter_stuff output the results from a linked table
3. I need the macro to run automatically when when a value is selected from the combo box

The code is here:
Sub Filter_Stuff()

Range("C14").CurrentRegion.AutoFilter Field:=1, Criteria1:=Range("$E$9").Value, Operator:=xlAnd

End Sub

How do i get the macro to run automatically:
(supposing i'm expecting a string value from the combo box)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("$E$9"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value = "$E$9" Then
Call Filter_Stuff
End If
End If
End Sub

Application.EnableEvents = True
End If
End Sub

Hi Jindon. When I try to use the code to another file I get Runtime error '13' ".ComboBox2.List = dic(.ComboBox1.Value)(1).keys"

If you are talking about "another file", I can not give you any advice.

Aww! Okay... Many thanks by the way