Inequality in Excel (VBA)

[excelit]

Hi everyone!

Need some help with some VBA Code.

The idea is:

Theres a New product form. It allows someone to create a new product by filling in 3 fields. Product Description, Cost Price, and Selling Price.

Ive got the VBA Code working fine, and it adds the product succesfully in a sheet.

What I want to do now:

I want to futher improve this VBA Code, by putting in an inequality. Basically, I want the form to check that the Selling Price is greater than the Cost Price - (obviously!, if not theres no profit).

So basically, if someone puts in a selling price which is less than the cost price, the system throws up an error box saying the selling price is lower than the cost price.

Its pretty simple I think - I got something similar done but it didnt quite work well.

Thanks!

[solnajeff]

Hi

For your enter button try the following, for textboxes - tbsell and tbcost (amend accordingly):

Please Login or Register  to view this content.

Will throw up message boxes if there is either a value missing or sell is less than cost and return to the form for amendment.

Regards

Jeff

[shg]

Think you need to convert those text values to numbers first, Jeff, otherwise "123" < "45"

[excelit]

@ Jeff

EDIT: Got it working with numbers only

Works - but yeh, I need to format the selling price and cost price field as numbers..if not It lets me put in "test" as the cost price of the product :P

I checked the properties of the field and got nothing..is it something in VB i have to add?

[shg]

Please don't quote whole posts.

Please Login or Register  to view this content.

[excelit]

Hello,

I tried your code @shg - but theres a problem.

After the msgbox comes up saying "Fix cost", the values are still added in the worksheet.
The code I have after yours basically adds the data filled in the form onto two sheets, but if any of the if conditions are met in your code, i want the rest of the code to stop running.

How do I do that?

[shg]

Put Exit Sub after each MsgBox.