Excel dependent drop down forms?

[dafreedomfita]

I am trying to put together two combo boxes, Combo1 and Combo2, the content of Combo2 will depend on the selection made in Combo1, for example Combo1 will have 10 items, once an item is selected Combo2 will have different sub selections relating to that item. I know you can do this via Validation, but the problem with that I have about 4000 options in the combo1 and about 60000 in the second, here is the structure of my data:

First Option /Second Option
Option1_____1.1
Option1_____ 1.2
Option1_____ 1.3
Option2_____ 2.1
Option2_____ 2.2
Option2_____ 2.3
Option3_____ 3.1
Option3_____ 3.2
Option3_____ 3.3

My ultimate final result should look like this, two drop down menus once Option1 is selected second drop down form should display these options:

Option1 /_____ 1.1
____________ 1.2
____________ 1.3

see attachment for complete clarity

http://www.605am.com/excel.gif

Thanking in advance for your help,
Stan

 

[jindon]

I have fixed the code, so can you try again?

(First "End Sub" should be "Next")

 

[dafreedomfita]

here is what I am getting now

http://www.605am.com/excel4.gif

thanks dude

 

[jindon]

here is what I am getting now

http://www.605am.com/excel4.gif

thanks dude

OOps. Missed a period ".",

Already fixed in the previous code.

 

[dafreedomfita]

thanks for your patience, I think we are getting somewhere I got the first combo box to populate but cannot get the second one to work, i am trying to set these values for the second one =EMBED("Forms.ComboBox.1",""),
but its not working, see screen shot,

thanks again buddy, appreciate your help

http://www.605am.com/excel5.gif

 

[jindon]

Delete that combobox, then add new combobox from the Control Tool Box and name it as ComboBox2

 

[dafreedomfita]

did it same thing happens as on the screen shot 5

 

[dafreedomfita]

got it its working now, thank you so much, so if I were to modify this should I just change the Sheet numbers and rangers?

 

[jindon]

got it its working now, thank you so much, so if I were to modify this should I just change the Sheet numbers and rangers?

Yep! the bold parts.

With Sheets("Sheet2")
a = .Range("f17", .Range("f" & Rows.Count).End(xlUp)).Resize(,2).Value
End With

 

[dafreedomfita]

Dont know how to thank you, thanks heaps dude have a great day, I've been searching for this for 2 days, you explained this to me in a few minutes appreciate it...stan

 

[jindon]

Dont know how to thank you, thanks heaps dude have a great day, I've been searching for this for 2 days, you explained this to me in a few minutes appreciate it...stan

Yep!
Everybody starts from there and learn many things from a lots of trial and error.