Я хочу заполнить выпадающий список на основе выбора пользователя в другом. Можно'Не найти ничего, что связано с этим в Интернете.

У меня есть книга под названиемlookupDept содержащий следующую таблицу:

A   B
==  ==============================
BS  Business School
CG  Chemical Engineering

гдеколонка А имеет определенное имяdeptCode а такжеколонка Б имеет определенное имяDEPTNAME, У меня есть вторая рабочая книга под названиемlookupModule которая содержит следующую таблицу: I '

A       B                                                   C
======  ==================================================  ==
BSA005  Organisational Behaviour                            BS
BSA007  Skills for Study                                    BS
CGA001  Fluid Mechanics I MEng & BEng Status                CG
CGA002  Stagewise Processes                                 CG

я пытаюсь обновитьcbo_moduleCode в моей форме, чтобы выбрать диапазон, гдеколонка А вlookupDept Матчиколонка С вlookupModule, Это код, который ям с помощью:

Так что, если пользователь выбираетBS - бизнес школа в форме (которая извлекается изlookupDept книга, я хочу, чтобы все поля, содержащиеBS в столбце СlookupModule Рабочая тетрадь для избранных. Это код, который ям пока использую:

Private Sub UserForm_Initialize()

    Dim c_deptCode As Range
    Dim c_deptName As Range

    Dim deptCodes As Variant
    Dim deptNames As Variant

    Dim ws_dept As Worksheet
    Dim ws_misc As Worksheet
    Set ws_dept = Worksheets("lookupDept")
    Set ws_misc = Worksheets("lookupMisc")

    ' Assign each range to an array containing the values
    deptCodes = Choose(1, ws_dept.Range("deptCode"))
    deptNames = Choose(1, ws_dept.Range("deptName"))

    ' Create deptcode+deptname cbo
    For i = 1 To ws_dept.Range("deptCode").Rows.Count
        CombinedName = deptCodes(i, 1) & " - " & deptNames(i, 1)
        cbo_deptCode.AddItem CombinedName
    Next i

End Sub