Alarm when certain condition is satisfied

[Santosh20061988]

Hi,

I am really unable to find out a way where I can create a sound like alarm when a certain condition is satisfied in a cell.

The scenario is like this: I have formated a cell like this, it automatically displays the time left to complete a task. I want the cell to give me a reminder or a alarm when the value in the cell falls down to certain limit ( ie 15 minutes).

Thanks in advance if you can help me out on this.
Thanks
Santosh

 

[bertie]

Hi Santosh and welcome to the board.

To play simple sounds like "beep" then, assuming your time is in cell A1:

If Range("A1").value = "00:15:00" then beep

-------------------------------
I you have an "Alarm" sound file you want to play, you can find a Microsoft article on how to do so here:
http://support.microsoft.com/kb/158140

------------------------------
You can also use the built in Excel feature to speak out a warning:
To test

You may need speakers for this.
Open a new Excel Workbook.
Press Alt+F11.
Double click on the Sheet1 module in the Project Window, left hand side.
Copy an paste the code below.

In Sheet1 "A1" enter test data:
00:15:01
00:15:00
The second one wil trigger the macro.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] Worksheet_Change([COLOR=darkblue]ByVal[/COLOR] Target [COLOR=darkblue]As[/COLOR] Range)
   [COLOR=darkblue]Dim[/COLOR] myMins [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Integer[/COLOR]
   [COLOR=darkblue]Dim[/COLOR] mySecs [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Integer[/COLOR]
 
   [COLOR=darkblue]If[/COLOR] Target.Address <> "$A$1" [COLOR=darkblue]Then[/COLOR] [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
 
   myMins = Minute(Target.Value)
   mySecs = Second(Target.Value)
 
   [COLOR=darkblue]If[/COLOR] myMins = 15 And mySecs = 0 Then _
      [COLOR=red]Application.Speech.Speak (myMins & " minutes to go.")[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

I hope this gives you enough ideas to help solve your problem.

Bertie