how to fill the non exist data in drop down using vba form excel sheet

hello all,
i am create drop down list in my user form. i want fill data in to the list.
how to fill drop down list in 'B" column(Shee1) text only if "az" column have "Working" (sheet 1.)
after submit the data in to Sheet2 the particular "B" column text row , "AZ" cloumn cell text will change into "Assigned".



Thanks for advance

Hi, sateeshkumarj,

Your post does not comply with Rule 8 of our Forum RULES. Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Cross-posting is when you post the same question in other forums on the web. The last thing you want to do is waste people's time working on an issue you have already resolved elsewhere. We prefer that you not cross-post at all, but if you do (and it's unlikely to go unnoticed), you MUST provide a link (copy the url from the address bar in your browser) to the cross-post.

Expect cross-posted questions without a link to be closed and a message will be posted by the moderator explaining why. We are here to help so help us to help you!

Read this to understand why we ask you to do this, and then please edit your first post to include links to any and all cross-posts in any other forums (not just this site).

http://www.ozgrid.com/forum/showthread.php?t=186338

Ciao,
Holger

Hello Mr/Mrs. HaHoBe

i will not post same question in two sites, and it will not repeat again.
right now am edit the Question.
kindly do the needful for above thread.

Thanks for advance.

i write code for my problem, but it's not working.
my excel book
A B C D E F G H I J
40 IP Phone VPH-01 iphone 12 ip12 1 1 Not Working
41 IP Phone VPH-02 ipphone 12 op1s 1 1 Not Working
42 IP Phone VPH-03 ipphone 12 iphone1 1 1 Working

Worksheets("Stock").Unprotect password:="teks1234"
FinalRow1 = cells(Rows.Count, 1).End(xlUp).Row
Dim mdl2 As Collection
On Error Resume Next
Set mdl2 = New Collection
With ModelNum2
.clear
For Each cell In Range("b3:b" & cells(Rows.Count, 1).End(xlUp).Row)
If Mid(cell, 1, 4) = "VPH-" Or Sheets("Stock").Range("J" & FinalRow1).Value = "Working" Then
Err.clear
mdl2.Add cell.Value
If Err.Number = 0 Then .AddItem cell.Value
End If
Next cell
End With
ModelNum2.ListIndex = -1

When i run this code, my drop down list have 3 values instead of One
my drop down list must have only working items.
how can i fill the my data