Need To creat a sound and pop up messege alert

Dear Sir,

Would like to know, what would be the easiest way to creat a sound and a pop up messege alert when the value in a certain cell is less than a value I specify.

for example if value in cell x8 is less than 190 then I want a sound and pop up messege alert.

Many thanks in advance for your help

Welcome to the forum!

The trigger event will be based on a manual change in value or a formula change? IF the latter, what is the formula?

The sound could be a Beep or play a sound as mentioned or

Please Login or Register  to view this content.

Many thanks, it is a formula change in cell x8, however I would like to have a popup messege and a beep together, like when I open the worksheet if the value is in this cell is less than 190 I want a pop up messege and beep.

also would you please let me know how to enter the vba and use it, for this job.

the formula in x8 is very simple (=X9-'inventory'!Z8 )

many thanks again in advance

Many thanks, it is a formula change in cell x8, however I would like to have a popup messege and a beep together, like when I open the worksheet if the value is in this cell is less than 190 I want a pop up messege and beep.

also would you please let me know how to enter the vba and use it, for this job.

the formula in x8 is very simple (=X9-'inventory'!Z8 )

many thanks again in advance

Dear guys,

I HAVE establish the vba code listed below, however the problem is that this VBA CODE WAS WORKING OKAY, BUT LATELY, IT IS GIVING WARNINING EVEN IF THE RULE IS NOT ESTABLISHED OR IGNORING WARNING EVEN IF THE RULE IS ESTABLISHED, WHAT COULD BE THE PROBLEM?
FOR EXAMPLE MAYA PACKAGING BOXES ARE OVER THE SPECIFED MINIMUM AMOUNT, HOWEVER IT IS GIVING A WARNING EACH TIME I OPEN EXCEL, ON THE OTHER SIDE, MAYA PAPER IS BELOW THE SPECIFIED AMOUNT, AND YET NO WARNNING, WHAT COULD BE THE PROBLEM? IS IT THE QUOTATION IN THE VBA WRONG OR THE CODE? COULD YOU CORRECT IF FOR ME?

MANY THANKS IN ADVANCE

THE CODE IS :

Sub Auto_Open()
Sheets("STORAGE MATERIALS").Select
If Range("C8") <= "1500" Then
Application.Speech.Speak "Diesel Fuel is gettig low"
MsgBox "Please Order Diesel Immediatly "
End If
SHEETS("STORAGE MATERIALS").Select
If Range("y8") <= "2000" Then
Application.Speech.Speak "packaging Boxes are gettig low"
MsgBox "Please Order MAYA Packaging Boxes Immediatly "
End If
Sheets("STORAGE MATERIALS").Select
If Range("u8") <= "2" Then
Application.Speech.Speak "Enzym is gettig low"
MsgBox "Please Order Enzym Immediatly "
End If
Sheets("STORAGE MATERIALS").Select
If Range("x8") <= "150" Then
Application.Speech.Speak "packaging paper is gettig low"
MsgBox "Please Order MAYA Packaging Paper Immediatly "
Else
Sheets("STORAGE MATERIALS").Select
Application.Speech.Speak "Welcome"
End If
End Sub