VBA Userform Dependent Combobox

Hi al,

I have read reams on this over various forums and nothing I try seems to work. If someone could point me in the direction of a clear and concise tutorial on this subject or help me to understand where I am going wrong, It would be sincerely appreciated.

All I want to do is have one combobox within a userform - the options within which depend on the selection of another combobox.

Box 1 (cboNumber)Options are (1,2,3)
Box 2 (cboLetter)Options are (a,b,c if 1 is selected), (d,e,f if 2 is selected), (g, h, I if 3 is selected)

Ideally I would like to draw values from a worksheet named "Worksheet1", where 1,2,3 are "A2, A3, A4", a, b, c are column "B2, B3, B4", d, e, f are column "C2, C3, C4", etc. Frankly though, I don't care how it is done, I just want to understand how to do it.

I am very new to VBA and this issue is a small part of a larger form (most of which I have managed to accomplish using some fantastic tutorials out there). As such, please treat me like a simpleton and don't just fire some code at me on the assumption that I understand it or indeed know exactly where to place it.

Many thanks in advance of any help!

Thank you for the example - it does exactly what I specified and works brilliantly!

However!

When I go to change the number of options in each column, all works well until I try to reduce the number of options to 1 - where it returns "invalid property array Index."

To clarify, the number of columns will vary (A, B, C, D, E, F, G, ETC) and the number of options in each colums will vary from 1 to 20 (ish),

Unfortunately despite your attempt to explain what the code is doing to me, I still don't understans what each line is doing, so am unable to amend what I'm sure is a very simple issue.

Again, I would appreciate any clarification (and further idiot proof explanation of the code).

One last thing! The code will be added to an existing form, but when I have attempted to add it, it returns a mesage "ambiguous name detected UserForm_Initialize. I suspect this is because I already have the Private Sub UserForm_Initialize() command at the top of my form.

Essentially, I need code I can simply drop into my existing code.

I hope that makes sense!

Okay, I have put together a table as an example of what I will be working with. What I would like ideally is:

• Each of the column headers to form an option in Combobox 1 (More will be added)

• Each of the values in the cells under the Headers to represent dependent options in Combobox 2 (these will also change, so need to comboboxes to change accordingly)

• Also, Instead of populating the existing comboboxes in the code with the “AddItem” command, I would like to reference the relevant column on the “Data Input” sheet.

I have included a small piece of existing code to give some idea of where I am at and how I have got there.
What I really need now is the code to do the above, an explanation of what the code is doing would be great – and crucially, how to insert the new code into the existing code so it works!
I hope that has clarified?

Private Sub UserForm_Initialize()				
				
        Application.Visible = False				
        				
        txtCustomer.Value = ""				
				
        txtDetails.Value = ""				
        				
        txtResDetails = ""				
        				
        txtDate.Value = Format(Date, "dd/mm/yyyy")				
        				
        txtTime.Value = Format(Time, "hh:mm")				
        				
With cboOperator				
				
.AddItem "Operator 1"				
				
        .AddItem "Operator 2"				
				
        .AddItem "Operator 3"				
				
        .AddItem "Operator 4"				
				
        .AddItem "Operator 5				
        				
 End With				
				
    cboOperator.Value = ""				
    				
With cboIssue				
				
.AddItem "Missing"				
				
        .AddItem "Quality"				
				
        .AddItem "Short Delivered"				
				
        .AddItem "Damaged"				
				
        .AddItem "Late"				
				
 End With				
				
    cboIssue.Value = ""				
    				
End Sub				
				
Private Sub cmdExit_Click()				
    				
    Unload Me				
    Application.Quit				
				
End Sub				
				
				
Private Sub cmdClear_Click()				
				
    Call UserForm_Initialize				
    				
End Sub				
				
Private Sub cmdUnlock_Click()				
				
If Me.txtPassword.Value = "password" Then				
				
Unload Me				
				
Application.Visible = True				
				
Else				
				
Me.Hide				
				
Retry = MsgBox("The password is incorrect. Do you wish to try again?", vbYesNo, "Retry?")				
				
Select Case Retry				
				
Case Is = vbYes				
				
Me.txtPassword.Value = ""				
				
Me.txtPassword.SetFocus				
				
Me.Show				
				
Case Is = vbNo				
				
Unload Me				
				
End Select				
				
End If				
				
End Sub

Anyone?

Any help on this would really be a life saver!

Last bump on this one...

Surely this is an easy resolution. The frustration is driving me nuts!

(although I was slightly mad prior to this exercise....)

Thanks in advance!!!!