searching data using a userform

**stephen1000** · 07-04-2009, 03:18 PM

Hi Guys,

I think a simple task, not used to many user forms in the past

I am looking to enter a numeric value these are the green columns.

it then needs to search the workbook for that number (Barcode Number)

then if the cell to the right has a value, it needs to pull that number into the userform' if no number is next to it, then I manually write and post it the cell next to the one just found.......

easy peasy (NOT)

cheers in advance

Stephen

**Ancalagon12321** · 07-04-2009, 06:01 PM

Does this do the trick?

**Ancalagon12321** · 07-04-2009, 06:06 PM

I guess I ought to provide some instructions:

To open the form go to Tools > Macro > Macros > "DoForm"

The first button is a "read" button - it looks up the invoice number corresponding to the barcode number, and puts it into the second text box.

The second button is a "write" button - it takes whatever's in the second text box and writes it into the data.

I haven't made it very error proof, secure or intuitive but after all, I'm not getting paid.

**stephen1000** · 07-05-2009, 04:43 AM

Originally Posted by Ancalagon12321

I guess I ought to provide some instructions:

To open the form go to Tools > Macro > Macros > "DoForm"

The first button is a "read" button - it looks up the invoice number corresponding to the barcode number, and puts it into the second text box.

The second button is a "write" button - it takes whatever's in the second text box and writes it into the data.

I haven't made it very error proof, secure or intuitive but after all, I'm not getting paid.

Hi Ancalagon,

Thanks for that, its a start; just dicovered that all the numbers in green have formulas not values in,so it does not work unless i change cells to numeric values.

I did organize this sheet, will need a bit of re-thinking.

cheers for what you did

stephen

**Ancalagon12321** · 07-05-2009, 10:58 AM

Stephen: Find the line of code that uses "Find" and change it from this:

something.Find(something)

to this:

something.Find(something, LookIn:=xlValues)

**royUK** · 07-05-2009, 04:20 AM

Your post does not comply with Rule 9 of our Forum RULES. If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit. And please never edit a thread in which someone else has responded.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save