Made Sound Alert More Than Once

[DaleKeel]

I found this

=IF(U70>=W70,SoundMe(),"")

and it works fine for what I have been doing. Problem is now I need for the sound to alert twice or three times and then stop (after the condition is met). Can anyone help me? Thanks.

For a different situation:
I need an alarm with a different sound than the above sound. Is that possible?

Thanks for your time.

 

[Logit]

Interesting ... I downloaded the workbook again. New instance of your workbook. It runs as expected and YES, there is a second instance running also.

 

[Logit]

Second instance creates this error :

Referencing this FUNCTION :

Private Function RemoteSoundMe(ByVal RangeAddr As String, ByVal SoundFile As String, ByVal HowManyTimes As Integer, ByVal IntervalDurationInSecs As Single)

    If Len(Dir(SoundFile)) = 0 And UCase(SoundFile) <> "BEEP" Then
        Call StopAllSounds
        Exit Function
    End If
    
    Range(RangeAddr).ID = RangeAddr & "||" & SoundFile & "||" & _
    HowManyTimes & "||" & HowManyTimes & "||" & IntervalDurationInSecs
    
    Call StopAllSounds
    Call SetProp(Application.hwnd, "addressof", VBA.CLngPtr(AddressOf TimerProc))
    Call SetTimer(Application.hwnd, AddAtom(StrPtr(Range(RangeAddr).ID)), 0, AddressOf TimerProc)

End Function

 

[Jaafar Tribak]

Ahhh .. Good catch !!

ClngPtr won't compile in excel 2007\VBA6 .. I missed that one.

If we replace the problematic line :
Call SetProp(Application.hwnd, "addressof", VBA.CLngPtr(AddressOf TimerProc))
with this :
Call SetProp(Application.hwnd, "addressof", Choose(1, AddressOf TimerProc))
then the code should work accross all versions.

I have updated the workbook example.

Thanks Logit for following this up and for testing.

 

[Logit]

Runs great !!

Good job.