.wav help for vb

[saint_2008]

This is what I have,

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If UCase(ActiveSheet.Range("S41").Value) > 99 Then
FName = "C:\windows\media\ding.wav"
Call PlaySound(FName, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Sub

but I cant get it to work!

All I want is for it to play a sound when My Value in S41 goes over the Value 99
the value is part of a simple formula of sums.

Cheers for any help, and pointing to the right direction where I'm going wrong with this!

 

[VoG]

Try

If Range("S41").Value > 99 Then

 

[saint_2008]

Cheers for the Help, but It still doesn't work at all

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000


Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("S41").Value > 99 Then
FName = "C:\windows\media\ding.wav"
Call PlaySound(FName, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Sub

Is there anyway I can get a sound to play easy if the value goes over 99 or what ever value I pick? Iv been trawling the formums taking codes altering them to what I need to no avail.



Also what if I need multiple values could I play different sounds? like one to go off at > 75 and another at > 99 ??

 

[VoG]

The amended code does work - I tested it.

Where have you placed the code - it needs to go in the worksheet code module - right click the sheet tab and select View Code.

 

[saint_2008]

The amended code does work - I tested it.

Where have you placed the code - it needs to go in the worksheet code module - right click the sheet tab and select View Code.

Its on my active sheet atm ill change it now see if it works!

 

[saint_2008]

Its on my active sheet atm ill change it now see if it works!

Still didn't work in the module?

 

[VoG]

Make sure that events are enabled. In the code window press CTRL + G to open the Immediate Window and type in

Application.EnableEvents = True

and press Enter.

By the way, the code as written will play a sound if S41 is >99 and any cell is changed. Is that what you want to happen?

 

[saint_2008]

Make sure that events are enabled. In the code window press CTRL + G to open the Immediate Window and type in

Application.EnableEvents = True

and press Enter.

By the way, the code as written will play a sound if S41 is >99 and any cell is changed. Is that what you want to happen?

I want it to play only if 1 cell S41 goes above 99.

did you see my previous comment asking is it also possible to make it so it does multiple values maybe with different sounds?

iv also enabled Application.EnableEvents = True and will try now with the code.

 

[saint_2008]

Still no luck at all getting the wav to play. I though this was so simple to do! I guess I was wrong! NO! lol

 

[VoG]

It works for me. This should do what you want (if you can get the sounds to play!). Note that I changed the filenames and path of the .wav files.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim FName As String
If Target.Address(False, False) = "S41" Then
    Select Case Target.Value
        Case Is > 99: FName = "C:\tardis.wav"
        Case Is > 75: FName = "C:\intel.wav"
        Case Else: FName = ""
    End Select
    If FName <> "" Then Call PlaySound(FName, 0&, SND_ASYNC Or SND_FILENAME)
End If
End Sub