Populate List / Combo Box
 

I want to populate a list box with filtered values from column y based on the
value in column x matching the value in cell a1.

Column y contains a list of players.
Column x contains the team to which the player belongs
A1 will be updated by the user with the team name
The list box will then display the players who are members of the team in A1

I'd be grateful for suggestions how to acheive the filtering rather than
populating the list box with all column y values and therefore displaying
all players irrespective of their team.

Thanks in advance,

David

You might do something like this:

Sub PopListbox()
Dim Cell As Range
For Each Cell In Range("X1:X20")
If Cell.Value = Range("A1").Value Then
Sheet1.ComboBox1.AddItem Cell.Offset(0, 1).Value
End If
Next
End Sub

--
Jim
"Dave C" wrote in message
...
|I want to populate a list box with filtered values from column y based on
the
| value in column x matching the value in cell a1.
|
| Column y contains a list of players.
| Column x contains the team to which the player belongs
| A1 will be updated by the user with the team name
| The list box will then display the players who are members of the team in
A1
|
| I'd be grateful for suggestions how to acheive the filtering rather than
| populating the list box with all column y values and therefore
displaying
| all players irrespective of their team.
|
| Thanks in advance,
|
| David