If cell above value popup window

Hi ppl, i have this code, that when for example the cell U50 in Sheet1 is above the number difined in Sheet2 cell P15 it pops up a window saying that is above limit, it works well in an workbook but now i want to do the same to another workbook but i dont remember how does the "Val2" receives the value from Sheet1 U50 to test it, and do some code needs to be inside a function like a Private Sub Worksheet_Change(ByVal Target As Range) ?

Can anyone help me to refresh my memory? Thanks

Please Login or Register  to view this content.

Hello
How about this?
Using Macro...

Please Login or Register  to view this content.

After all problem not solved... Because even when the cell is empty the popup box appears how can i avoid that ?

Hello

I'm Using excel 2010 it works fine here doesn't display message when below the maximumCPTload
can you try to issue a ELSE before the ENDIF just to bypass the first IF. If the value is below the maximum.Just for experiment..

vlady thanks, i tried done that with the "else" but it didn´t work, imagine that the cells are already all clean (without values) and if you press the button "Clean Values" that calls the function ClearAllFields, all the pop up boxes with MsgBox will appear even more than one time (the MsgBox should only appear when i have a value imagine... superior to 9000), why do they keep on poping maybe 10 time each). and that is strange...

Note: Sheet1 in portugal Folha1.

Where is the code of Sheet1:

Please Login or Register  to view this content.

And this is the code in my Module1: (that have the code to clean all the cells values)

Please Login or Register  to view this content.

Thanks once again.

I think so, because it always check the cell if empty and the loop is the Worksheet_Change you can use a module for this also instead of the SUb-Endsub procedures.

Like it will only check if you will run the macro(display the messages).