Заполнить ListBox на основе значений ячеек

Question

Я заполняю список на основе

With lbInterviews
   .RowSource = "=Interviews!A2:P50"
End With

Однако, как бы я это сделал, так что он заполняется только на основе, если ячейка равна чему-то, например

Заполняет только этот списокполе, если ячейка на листе: Интервью, столбец: F равен textbox1.text

Answer 1

Полагаю, вы говорите о поле со списком в пользовательской форме, если да, надеюсь, это работает для вас ...

Private Sub UserForm_Initialize()
    For i = 1 To 10
        If UCase(Left(Sheet1.Cells(i, 1), 3)) = "YES" Then
            ListBox1.AddItem Sheet1.Cells(i, 1)
        End If
    Next
End Sub

Answer 2

только пример

Private Sub UserForm_Initialize()
    Set sh = ThisWorkbook.Worksheets(1)
    With sh
        LR = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
    lC = 0
    With Me.ListBox1
        .ColumnCount = 2
        .RowSource = ""
        For r = 2 To LR
            If Left(sh.Cells(r, 1), 1) = "P" Then ' <<< to changed condition
                .AddItem
                .List(lC, 0) = sh.Cells(r, 1)
                .List(lC, 1) = sh.Cells(r, 2)
                lC = lC + 1
            End If
        Next
        If .ListCount = 0 Then MsgBox "No data found"
    End With
End Sub