Выпадающие элементы Excel combobox на основе предыдущей combobox

Question

Форма примет информацию, а затем скопирует информацию в Sheet1. Форма содержит 5 текстовых полей и 2 выпадающих списков. Первыми параметрами combobox являются CRIS, TRACS и DOCS. Вторая опция combobox должна основываться на первом выборе combobox.

Вот мой код до сих пор:

Private Sub cmdClear_Click() 
Call UserForm_Initialize 
End Sub 

Private Sub cmdMove_Click() 

Dim emptyRow As Long 

Sheet1.Activate  'Make Sheet1 active 

emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1  

'Transfer information 
Cells(emptyRow, 1).Value = txtName.Value 
Cells(emptyRow, 2).Value = txtBtn.Value 
Cells(emptyRow, 3).Value = txtCbr.Value 
Cells(emptyRow, 4).Value = txtOrder.Value 
Cells(emptyRow, 5).Value = txtTrouble.Value 
Cells(emptyRow, 6).Value = ComboBox1.Value 

End Sub 
Private Sub UserForm_Click() 

End Sub 

Private Sub UserForm_Initialize() 

txtName.Value = ""   'Empty NameTextBox 
txtBtn.Value = ""   'Empty BTN 
txtCbr.Value = ""   'Empty CBR 
txtOrder.Value = ""   'Empty Order Number 
txtTrouble.Value = ""  'Empty Trouble Ticket Number 

ComboBox1.Clear 

With ComboBox1 
    .AddItem "CRIS" 
    .AddItem "TRACS" 
    .AddItem "DOCS" 
End With 

txtName.SetFocus 

End Sub 

Answer 1

добавить этот код в UserForm код панели:

Private Sub ComboBox1_Change() 
    With Me 
     If .ComboBox1.ListIndex <> -1 Then 
      Select Case .ComboBox1.Value 
       Case "CRIS" 
        .ComboBox2.List = Array("close", "reroute", "transfer") 
       Case "TRACS" 
        .ComboBox2.List = Array("close", "reroute") 
       Case "DOCS" 
        .ComboBox2.List = Array("completed", "transfer", "update") 
      End Select 
     End If 
    End With 
End Sub