sound Play from formular help

[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!

 

[Greg Truby]

Horita, no tengo tiempo para hacer pruebas. Pero creo que el problema queda en el hecho de que está comparando un valor de texto contra un valor numerico. Creo que si usaría la función CInt() o mejor CDbl() al lado izquierda de su comparación se resuelve la cosa.

<hr />

If you want a response in English, please use the English language forum. :wink:

 

[VoG]

Solucionado click here