Excel VBA: удаление пробелов в ComboBox с динамическим диапазоном - PullRequest
0 голосов
/ 17 марта 2019

Я создал пользовательскую форму, которая имеет 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?

Заранее спасибо.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...