Я создал пользовательскую форму, которая имеет ComboBox, который будет показывать определенный диапазон при заполнении другого комбинированного списка. Поэтому, если я выберу в ComboBox1
: «Вариант 1», ComboBox2
будет искать эту опцию на другом листе и заполнять себя указанными значениями с помощью кода, показанного ниже. Это все работает отлично, за исключением того, что я должен указать определенный диапазон.
Этот диапазон в Combobox2
является динамическим, потому что Опции не всегда имеют одинаковое количество.
Private Sub cboAccoType_AfterUpdate()
If cboAccoType.value = Worksheets("SETUP").Range("B33").value Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("S3:T100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B34") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("U3:V100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B35") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("W3:X100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B36") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("Y3:Z100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B37") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AA3:AB100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B38") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AC3:AD100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B39") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AE3:AF100").value
ElseIf cboAccoType.value = Worksheets("SETUP").Range("B40") Then
boekingen.cboAccommodatie.List = Worksheets("SETUP").Range("AG3:AH100").value
End If
End Sub
Итак, мои вопросы: Как я НЕ ПОКАЗЫВАЮ строки, которые возвращаются пустыми внутри этого списка пользователей 2?
Заранее спасибо.