excel audio alert help

Discussion in 'Trading Software' started by dumb_mother, May 31, 2011.

  1. I currently use an excel "helper" program that is fed RTD bids/asks and calculates relationship values for me. What I'm looking to do, is add in a function that once a value reaches a certain level, an audio trigger will start to go off once every minute or so to get my attention, but that also has an easy way for me to switch it off. ie- if I'm asleep in the other room it'll start going off to wake me until I can get back to my computer to start trading, but once I'm back i can easily disable it so it does not continue to annoy me.

    I've found these links regarding audio alerts in excel, but it is more or less greek to me. It would be amazing if someone could help me out with this- here is what i'm testing so far, I'll let everyone know how it is works.

    thanks all,

    dm

    http://www.teachexcel.com/excel-help/ev.php?i=73815

    and I used the following code:

    Code:
    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("F8")) Is Nothing Then
    With Target
    If .Value > Abs(3) Then Beep
    End With
    End If
    
    ws_exit:
    Application.EnableEvents = True
    End Sub
    
    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("D8")) Is Nothing Then
    With Target
    If .Value > Abs(3) Then Beep
    End With
    End If
    
    ws_exit:
    Application.EnableEvents = True
    End Sub
    
    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("B8")) Is Nothing Then
    With Target
    If .Value > Abs(7) Then Beep
    End With
    End If
    
    ws_exit:
    Application.EnableEvents = True
    End Sub