Sesli uyarı

[soneris]

Merhaba.
bir hücredeki değer belirlediğim bir değerden yüksek ise sesli uyarı vermesini nasıl sağlayabilirim.

Teşekkürler.

 

[Ziynettin]

Merhaba.

B1 hücresine 8 den büyük sayı girildiğinde çalışır kod.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "B1" Then
        If Target.Value > 8 Then
'            Beep
            Application.Speech.Speak "Hop"
        End If
    End If
End Sub

Not: B1 hücresine formül ile sonuç alınıyor ise kod çalışmaz.