Faster way to code this

[jhahes]

I was just wondering if there is possibly another way to do this. With
the code that i have it just seems to take forever...


I am using a form and when you put in a number in textboxNumber


the code goes to sheet1 and does the following

Sheet1.activate
Range("A2").select
Do
If csng(activecell) <> csng(textboxNumber.value) then
activecell.offset(1,0).select
End if

Loop until csng(activecell) = csng(textboxNumber.value) or
activecell.row = 5000

activecell.offset(0,5).value = textboxOrderID
activecell.offset(0,6).value = textboxItemDescription


I would appreciate any ideas

 

[colofnature]

You could use a find, eg:

[a2:a5000].find(what:=textboxNumber.value, lookat:=xlwhole).select

in place of the 'Do...Loop until'.

Col

 

[Guest]

Turn on the macro recorder. Select Column 1, Do edit=>Find then type in the
number.

Turn off the macro recorder and look at the recorded code

Now modify this code to use the value in the textbox.

from
What:="1234"
to
What:=textboxNumber.value

you can also modify it to check for a found value

if application.Countif(Columns(1),textboxNumber.value) > 0 then
' modified recorded code
else
msgbox textboxNumber.Value & " is not in column 1"
end if

 

[jhahes]

thanks for the responses colofnature, and tom. I used the macro
recorder way and it works great.

Thanks