Hücre Belli Bir Değere Geldiğinde Excel'in Ses İle Uyarı Vermesi

[bsen]

Merhaba,
Dış veri alarak çalışan hücrelerim var ve her dakika kendisini güncelliyor.

A1>=0 olduğunda ses ile uyarı vermesini istiyorum. Bunun kodunu paylaşırsanız sevinirim.

Teşekkür ederim.

 

[muratboz06]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A1"), Range(Target.Address)) _
        Is Nothing Then
        If IsNumeric(Range("A1").Value) = True And Range("A1").Value >= 0 And Range("A1") <> "" Then
            Beep
        End If
    End If
End Sub