Specified Listbox Value

[kayza]

Hi,

I have problems in determining the content of the ListBox, where I wanted the contents of the listbox only containing the values according to the specified criteria. here is the example data

	A	B
1	one	OK
2	two	-
3	three	OK
4	four	OK
5	five	-

<tbody>
</tbody>

from the above example, I would like to make ListBox only displays if the values in column "B" is "-". so the ListBox values should be like this :

two	-
five	-

<tbody>
</tbody>

Is it possible to displays the Listbox value only from the specified criteria ?

I really appreciate for all the assistance provided
Thanks.

 

[Domenic]

Assuming that the sheet containing the data is the active sheet, try...

[COLOR=darkblue]Dim[/COLOR] vData [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR]
[COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]

vData = Range("A1:B" & Cells(Rows.Count, "A").End(xlUp).Row)

[COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] [COLOR=darkblue]UBound[/COLOR](vData)
    [COLOR=darkblue]If[/COLOR] vData(i, 2) = "-" [COLOR=darkblue]Then[/COLOR]
        [COLOR=darkblue]With[/COLOR] Me.ListBox1
            .AddItem vData(i, 1)
            .List(.ListCount - 1, 1) = vData(i, 2)
        [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]With[/COLOR]
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
[COLOR=darkblue]Next[/COLOR] i

Change the name of the ListBox, accordingly.

Hope this helps!

 

[kayza]

Thanks Domenic...
It working.
Thank a lot