Snasui Excel Forum

Code: Select all

j = 0
Do While Not IsEmpty(Sheet15.Cells(4 + j, 2).Value)
    ComboBox01.AddItem Sheet15.Cells(4 + j, 2).Text
    j = j + 1
Loop

Code: Select all

j = 0
Do While Not IsEmpty(Sheet15.Cells(4 + j, 2).Value)
    If Application.CountIf(Sheet15.Cells(4, 2).Resize(j + 1, 1), _
        Sheet15.Cells(4 + j, 2).Value) = 1 Then
        ComboBox01.AddItem Sheet15.Cells(4 + j, 2).Text
    End If
    j = j + 1
Loop