Add items to Listbox based on criteria

[sharky12345]

I'm using this to load a Listbox on a Userform as the form is loaded;

ListBox4.RowSource = Range(Sheet5.Range("U2"), Sheet5.Range("U11").End(xlUp)).Address(, , , True)

I now need to take this a step further if possible - I now need to load only those values where the value of the 2nd offset column is "Yes".

Anyone?

 

[Fluff]

If your values in U are unique, try

Private Sub UserForm_Initialize()
   Dim Cl As Range
   Dim Dic As Object

   Set Dic = CreateObject("scripting.dictionary")

   For Each Cl In Sheet5.Range("U2", Sheet5.Range("U11").End(xlUp))
      If Cl.Offset(, 2).Value = "Yes" And Not Dic.exists(Cl.Value) Then Dic.Add Cl.Value, Nothing
   Next Cl
   Me.ListBox1.List = Dic.keys
End Sub

 

[sharky12345]

Hi Fluff,

Thanks for the suggestion but it doesn't work I'm afraid - the Listbox doesn't refresh, not quite sure why.....

 

[Fluff]

Are the values in col W Yes, or could they be yes or YES