How do I create a sound alert in excel spreadsheet

[shaun t]

How do I create a sound alert, to use ,for when a cell value changes to a
given value. ie: I am importing realtime data and want a sound to notify when
when a certain value is detected

[Cutter]

This is what answered it for me when I wanted to do the same thing:

http://j-walk.com/ss/excel/tips/tip87.htm

[Bob Phillips]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
With Target
Beep
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"shaun t" <shaun [email protected]> wrote in message
news:[email protected]...
> How do I create a sound alert, to use ,for when a cell value changes to a
> given value. ie: I am importing realtime data and want a sound to notify
when
> when a certain value is detected

[shaun t]

Hi Bob

Thanks alot, sure its just what I want, but a little over my head

Have pasted code as you said, was the code to start at

private and end at end sub

the cell range I am monitoring is d2:d4, and the value I want to trigger the
alert is 0 ( zero). Where is this entered into the code you said paste

Cheers again Shaun

"Bob Phillips" wrote:

> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim i As Long
> On Error GoTo ws_exit:
> Application.EnableEvents = False
> If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
> With Target
> Beep
> End With
> End If
>
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
> 'This is worksheet event code, which means that it needs to be
> 'placed in the appropriate worksheet code module, not a standard
> 'code module. To do this, right-click on the sheet tab, select
> 'the View Code option from the menu, and paste the code in.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "shaun t" <shaun [email protected]> wrote in message
> news:[email protected]...
> > How do I create a sound alert, to use ,for when a cell value changes to a
> > given value. ie: I am importing realtime data and want a sound to notify
> when
> > when a certain value is detected
>
>
>

[Bob Phillips]

Shaun,

This is modified to your particular needs. Follow the instructions after the
previous piece of code so as to know where to put it

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("D2:D4")) Is Nothing Then
With Target
if .value = 0 Then Beep
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"shaun t" <[email protected]> wrote in message
news:[email protected]...
> Hi Bob
>
> Thanks alot, sure its just what I want, but a little over my head
>
> Have pasted code as you said, was the code to start at
>
> private and end at end sub
>
> the cell range I am monitoring is d2:d4, and the value I want to trigger
the
> alert is 0 ( zero). Where is this entered into the code you said paste
>
> Cheers again Shaun
>
> "Bob Phillips" wrote:
>
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > Dim i As Long
> > On Error GoTo ws_exit:
> > Application.EnableEvents = False
> > If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
> > With Target
> > Beep
> > End With
> > End If
> >
> > ws_exit:
> > Application.EnableEvents = True
> > End Sub
> >
> > 'This is worksheet event code, which means that it needs to be
> > 'placed in the appropriate worksheet code module, not a standard
> > 'code module. To do this, right-click on the sheet tab, select
> > 'the View Code option from the menu, and paste the code in.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "shaun t" <shaun [email protected]> wrote in message
> > news:[email protected]...
> > > How do I create a sound alert, to use ,for when a cell value changes
to a
> > > given value. ie: I am importing realtime data and want a sound to
notify
> > when
> > > when a certain value is detected
> >
> >
> >

[shaun t]

Hi again Bob

Have done as you have instructed

When the code is pasted, what do I do with the headins in the two drop downs
above

The first has in it WORKSHEET and GENERAL

The second has CHANGE ACTIVATE etc and several others

The reason I am asking as the code does not generate a BEEP when the value
is 0

Cheers Shaun

"Bob Phillips" wrote:

> Shaun,
>
> This is modified to your particular needs. Follow the instructions after the
> previous piece of code so as to know where to put it
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim i As Long
> On Error GoTo ws_exit:
> Application.EnableEvents = False
> If Not Intersect(Target, Me.Range("D2:D4")) Is Nothing Then
> With Target
> if .value = 0 Then Beep
> End With
> End If
>
> ws_exit:
> Application.EnableEvents = True
> End Sub
>
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "shaun t" <[email protected]> wrote in message
> news:[email protected]...
> > Hi Bob
> >
> > Thanks alot, sure its just what I want, but a little over my head
> >
> > Have pasted code as you said, was the code to start at
> >
> > private and end at end sub
> >
> > the cell range I am monitoring is d2:d4, and the value I want to trigger
> the
> > alert is 0 ( zero). Where is this entered into the code you said paste
> >
> > Cheers again Shaun
> >
> > "Bob Phillips" wrote:
> >
> > > Private Sub Worksheet_Change(ByVal Target As Range)
> > > Dim i As Long
> > > On Error GoTo ws_exit:
> > > Application.EnableEvents = False
> > > If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
> > > With Target
> > > Beep
> > > End With
> > > End If
> > >
> > > ws_exit:
> > > Application.EnableEvents = True
> > > End Sub
> > >
> > > 'This is worksheet event code, which means that it needs to be
> > > 'placed in the appropriate worksheet code module, not a standard
> > > 'code module. To do this, right-click on the sheet tab, select
> > > 'the View Code option from the menu, and paste the code in.
> > >
> > > --
> > >
> > > HTH
> > >
> > > RP
> > > (remove nothere from the email address if mailing direct)
> > >
> > >
> > > "shaun t" <shaun [email protected]> wrote in message
> > > news:[email protected]...
> > > > How do I create a sound alert, to use ,for when a cell value changes
> to a
> > > > given value. ie: I am importing realtime data and want a sound to
> notify
> > > when
> > > > when a certain value is detected
> > >
> > >
> > >
>
>
>

[Bob Phillips]

Shaun,

You don't need to do anything with them, it is already effectively done.

The beep will only happen when any value in D2:D4 is changed to 0.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"shaun t" <[email protected]> wrote in message
news:[email protected]...
> Hi again Bob
>
> Have done as you have instructed
>
> When the code is pasted, what do I do with the headins in the two drop
downs
> above
>
> The first has in it WORKSHEET and GENERAL
>
> The second has CHANGE ACTIVATE etc and several others
>
> The reason I am asking as the code does not generate a BEEP when the value
> is 0
>
> Cheers Shaun
>
> "Bob Phillips" wrote:
>
> > Shaun,
> >
> > This is modified to your particular needs. Follow the instructions after
the
> > previous piece of code so as to know where to put it
> >
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > Dim i As Long
> > On Error GoTo ws_exit:
> > Application.EnableEvents = False
> > If Not Intersect(Target, Me.Range("D2:D4")) Is Nothing Then
> > With Target
> > if .value = 0 Then Beep
> > End With
> > End If
> >
> > ws_exit:
> > Application.EnableEvents = True
> > End Sub
> >
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "shaun t" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hi Bob
> > >
> > > Thanks alot, sure its just what I want, but a little over my head
> > >
> > > Have pasted code as you said, was the code to start at
> > >
> > > private and end at end sub
> > >
> > > the cell range I am monitoring is d2:d4, and the value I want to
trigger
> > the
> > > alert is 0 ( zero). Where is this entered into the code you said paste
> > >
> > > Cheers again Shaun
> > >
> > > "Bob Phillips" wrote:
> > >
> > > > Private Sub Worksheet_Change(ByVal Target As Range)
> > > > Dim i As Long
> > > > On Error GoTo ws_exit:
> > > > Application.EnableEvents = False
> > > > If Not Intersect(Target, Me.Range("A1:H10")) Is Nothing Then
> > > > With Target
> > > > Beep
> > > > End With
> > > > End If
> > > >
> > > > ws_exit:
> > > > Application.EnableEvents = True
> > > > End Sub
> > > >
> > > > 'This is worksheet event code, which means that it needs to be
> > > > 'placed in the appropriate worksheet code module, not a standard
> > > > 'code module. To do this, right-click on the sheet tab, select
> > > > 'the View Code option from the menu, and paste the code in.
> > > >
> > > > --
> > > >
> > > > HTH
> > > >
> > > > RP
> > > > (remove nothere from the email address if mailing direct)
> > > >
> > > >
> > > > "shaun t" <shaun [email protected]> wrote in message
> > > > news:[email protected]...
> > > > > How do I create a sound alert, to use ,for when a cell value
changes
> > to a
> > > > > given value. ie: I am importing realtime data and want a sound to
> > notify
> > > > when
> > > > > when a certain value is detected
> > > >
> > > >
> > > >
> >
> >
> >

[maks]

hi!
Did you found answer?

"shaun t" wrote:

> How do I create a sound alert, to use ,for when a cell value changes to a
> given value. ie: I am importing realtime data and want a sound to notify when
> when a certain value is detected

[Ryan Jones]

You can use a beep command in the sheet code under change

"maks" <[email protected]> wrote in message
news:[email protected]...
> hi!
> Did you found answer?
>
> "shaun t" wrote:
>
>> How do I create a sound alert, to use ,for when a cell value changes to a
>> given value. ie: I am importing realtime data and want a sound to notify
>> when
>> when a certain value is detected

[jixy]

i'm very new to vba, so i'm also very confused. this forum has been quite helpful so far. i'm trying to create different sounds on different sheets within excel when the values are above a certail threshold but need help in doing so

[arlu1201]

jixy,

Welcome to the Forum, unfortunately:

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread. It makes sense to have a new thread for your question because a thread with numerous replies can be off putting & difficult to pick out relevant replies.