поиск и фильтрация в списке и поле со списком

Question

С этим кодом можно найти все значения из столбца A, но есть ли способ отфильтровать его?как основание на столбце B, C, D пусто или получено значение.

Окончательный результат будет таким же, как если столбец B или C или D пуст, тогда заголовок столбца A будет отображаться в X, если B, C,D получает значение, тогда заголовок столбца A будет отображаться в Y.

* Таким образом, столбец A вернется к списку или списку со списком в столбце B, C, D будет пустым или нет

 With Worksheets("sheet1")

Me.x.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value
Me.y.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value

 End With

прикрепленный результат выглядит так:

Пример 1

Answer 1

я решил сам

Private Sub UserForm_Initialize()
    Dim X As Long
    Dim Y As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Sht1")
    Y = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    For x= 1 To Y 
        If ws.Range("B" & x) ="" or ws.Range("C" & x) = "" or ws.Range("D" & x) = ""Then
            Me.ListBox1.AddItem ws.Range("A" & x)
        End If
    Next r
End Sub