Conditionally AddItem to ComboBox

[szymagic]

Hello,

I have a combobox that I'd like to populate with various people's names based on if they pass certain qualifications. So for example:

[TABLE="width: 500"]
<tbody>[TR]
[TD]Names[/TD]
[TD]Run[/TD]
[TD]Pass[/TD]
[TD]Catch[/TD]
[/TR]
[TR]
[TD]Bob[/TD]
[TD]Y[/TD]
[TD]N[/TD]
[TD]N[/TD]
[/TR]
[TR]
[TD]Jill[/TD]
[TD]N[/TD]
[TD]Y[/TD]
[TD]Y[/TD]
[/TR]
[TR]
[TD]Tony[/TD]
[TD]Y[/TD]
[TD]Y[/TD]
[TD]Y[/TD]
[/TR]
[TR]
[TD]Mary[/TD]
[TD]N[/TD]
[TD]N[/TD]
[TD]Y[/TD]
[/TR]
</tbody>[/TABLE]

If I would like to populate that combobox with people who can Run, what's the best way to sift through the data and snag all of the "Y"s

So the combobox would have Bob and Tony.
Assume the "Names" cell is A1.

The more concise the better!!

Thank you very much!

 

[Akuini]

Try this:

Private Sub ComboBox1_GotFocus()
Dim r As Range
ComboBox1.Clear
For Each r In Range("B2", Cells(Rows.Count, "B").End(xlUp))
    If r = "Y" Then ComboBox1.AddItem r.Offset(, -1)
Next
End Sub

 

[szymagic]

That does the trick, thank you kindly!

 

[Akuini]

You're welcome, glad to help.