Audible Alarm

[cmiedaner]

Hello.

Is there a way to trigger an audible alarm if a given cell has a value greater than 0 ?

Could someone post the VBA ?

 

[CM]

Hi, Am Wed, 31 Oct 2012 11:11:21 -0700 (PDT) schrieb : > Is there a way to trigger an audible alarm if a given cell has a value greater than 0 ? copy code in module of the worksheet. It works with Range("C1") - modify to suit: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$1" Then Exit Sub If Target.Value > 0 Then Beep End Sub Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2

Thanks. I pasted the code into a module and the value in C1 is 1 but no beep ? I'm using excel 2010 - does that matter ?

 

[Claus Busch]

Hi,

Am Fri, 2 Nov 2012 11:20:19 -0700 (PDT) schrieb CM:

Thanks. I pasted the code into a module and the value in C1 is 1 but no beep ? I'm using excel 2010 - does that matter ?

the code must be copied in the code module of the worksheet. In Project
Explorer double click on the worksheet and copy the code in the code
module.


Regards
Claus Busch

 

[cmiedaner]

Hello. Is there a way to trigger an audible alarm if a given cell has a value greater than 0 ? Could someone post the VBA ?

Thanks again. I am not familiar with Projects/Explorer ?

 

[Claus Busch]

Hi,

Am Fri, 2 Nov 2012 12:04:12 -0700 (PDT) schrieb (e-mail address removed):

Thanks again. I am not familiar with Projects/Explorer ?

have a look for the workbook "CM":
https://skydrive.live.com/#cid=9378AAB6121822A3&id=9378AAB6121822A3!191


Regards
Claus Busch

 

[cmiedaner]

Hi, Am Fri, 2 Nov 2012 12:04:12 -0700 (PDT) > Thanks again. I am not familiar with Projects/Explorer ? have a look for the workbook "CM": https://skydrive.live.com/#cid=9378AAB6121822A3&id=9378AAB6121822A3!191 RegardsClaus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2

I cannot open the spreadsheet. It needs a windows live id which i dont have..

 

[Claus Busch]

Hi,

Am Mon, 5 Nov 2012 09:31:14 -0800 (PST) schrieb (e-mail address removed):

I cannot open the spreadsheet. It needs a windows live id which i dont have.

you can follow the link and then right click on "CM" and choose
"Download"


Regards
Claus Busch

 

[cmiedaner]

Hi,



Am Mon, 5 Nov 2012 09:31:14 -0800 (PST) :






you can follow the link and then right click on "CM" and choose

"Download"


Thanks. I did get it to download. I entered a number greater than 0 in C1. Nothing happenned. Is it suppose to beep ?


Regards

Claus Busch

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

 

[Claus Busch]

Hi,

Am Mon, 5 Nov 2012 10:37:57 -0800 (PST) schrieb (e-mail address removed):

a download is a strange source and therefore Excel disabled macros.
Enable macro and it will beep.


Regards
Claus Busch

 

[cmiedaner]

Hi,



Am Mon, 5 Nov 2012 10:37:57 -0800 (PST)






a download is a strange source and therefore Excel disabled macros.

Enable macro and it will beep.


The macros are enabled. Still no beep.


Regards

Claus Busch

--

Win XP PRof SP2 / Vista Ultimate SP2

Office 2003 SP2 /2007 Ultimate SP2

 

[cmiedaner]

 

[Claus Busch]

Hi,

Am Mon, 5 Nov 2012 11:09:54 -0800 (PST) schrieb (e-mail address removed):


for 10 beeps change the code to:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim intCounter As Integer

If Target.Address <> "$C$1" Then Exit Sub

If Target.Value > 0 Then
For intCounter = 1 To 10
Beep
Application.Wait (Now + TimeValue("0:00:01"))
Next intCounter
End If
End Sub


Regards
Claus Busch