combx problem

[scrabtree23]

This is an ongoing unresolved problem. Here is a
different angle.

I have a table in Sheet1 with cost center numeric codes in
column A:A and function code numeric values in row 1:1.

There is a specific cost center numeric code in cell A1 on
Sheet2.

I need a code that will search down column A:A and find
the cell with the value that matches Sheet2 Cell A1. Lets
say Cell A15 is the match.

I then need the code to look across row 15 and populate
Combobox1's drop down with the value in any of this row's
cells that does not equal "no" or is blank.

 

[Tom Ogilvy]

worksheets("Sheet2").combobox1.Clear
Worksheets("Sheet1").Activate
Range("A1").Select
do while true and activeCell.Row <> 65536
if worksheets("Sheet2").Range("A1").Value = ActiveCell.Value then
exit do
end if
activeCell.offset(1,0).Select
Loop
if worksheets("Sheet2").Range("A1").Value <> ActiveCell.Value then
Exit sub
End if
activecell = activecell.offset(0,1).Select
do while activeCell.Column <> 256
if activecell.Value <> "" and lcase(activecell.Value) <> "no" then
worksheets("Sheet2").Combobox1.AddItem activeCell.Value
end if
ActiveCell.offset(0,1).Select
Loop