Can I associate one or more Comboboxes to another Combobox?

I have several on a Userform, that I want to be able to inpu
information into one and have the others that are related to it, onl
drop down the related information. (I.E. input a part number and onl
have the related stock numbers show in the associated Combobox.)

Right now, my Comboboxes drop down everything in the list

--
Message posted from http://www.ExcelForum.com

It can be done, but it all has to be manually coded, nothing automatic. You
need to have some way of identifying the selection from combo1 with a
number of ranges to select from for combo 2, and so on. It can get very
messy the more combos in the hierarchy. I did a 4 combo linked app in
JavaScript once, and that was horrible, whereas 2 is relatively simple.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Thunder5 " wrote in message
...
Can I associate one or more Comboboxes to another Combobox?

I have several on a Userform, that I want to be able to input
information into one and have the others that are related to it, only
drop down the related information. (I.E. input a part number and only
have the related stock numbers show in the associated Combobox.)

Right now, my Comboboxes drop down everything in the list.


---
Message posted from http://www.ExcelForum.com/

Please help !
I have 34 users & I need to assign for each user a separate no. in cel
A2. The format of the number need to be with 2 letters assigned t
individual & leading with 0 (zero) if the number is below 100 (e.g., i
cell A2 is entered with 22, its value to be ar022 & not ar22) else wit
the no.(say, ar122).
Secondly, the writing of code will be very big if I have to write fo
34 cases. How do I make it simple?

Select Case Application.UserName
Case "X1"
If Range("A2").Value < 100 Then
Range("A2").NumberFormat = """ar0""0"
Else: Range("A2").NumberFormat="""ar""0"
End If
Case "X2"
If Range("A2").Value < 100 Then
Range("A2").NumberFormat = """br0""0"
Else: Range("A2").NumberFormat="""br""0"
End If
Case "X3"
If Range("A2").Value < 100 Then
Range("A2").NumberFormat = """cr0""0"
Else: Range("A2").NumberFormat="""cr""0"
End If
Case n....

End Select
:

--
Message posted from http://www.ExcelForum.com