Заполнить поле со значениями из таблицы на основе значения столбца рядом с ним Код VBA

Question

Я хочу заполнить поле со списком при запуске пользовательской формы со значениями в столбце A на основе значения в столбце C. , т.е. мои параметры списка со списком должны перечислять элементы в столбце A, если значение коррекции в столбце C является «PINK»

Answer 1

Предпочитаемый код, который вы уже делали, является предпочтительным. Но вы должны попробовать что-то вроде следующего. Предположим, что combobox1 находится в UserForm1:

Private Sub UserForm1_Initialize() 

dim ws as worksheet 
set ws = activesheet 

rowsCount = ws.cells(ws.rows.count, 1).end(xlup).row 

'loop over data in column A 
for i = 0 to rowsCount 
    if ws.cells(i, 3).value = "PINK" then 
     combobox1.AddItem(ws.cells(i, 1).value) 
    end if 
next i 

end sub