Re: combx problem

Tech-Archive recommends: Speed Up your PC by fixing your registry

From: Tom Ogilvy (twogilvy_at_msn.com)
Date: 09/15/04 

Date: Wed, 15 Sep 2004 16:06:30 -0400

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 

-- 
Regards,
Tom Ogilvy
"scrabtree23" <anonymous@discussions.microsoft.com> wrote in message
news:2e9201c49b5d$ac4b3410$a501280a@phx.gbl...
>   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.
>
Quantcast