B1 hücresine 8 den büyük sayı girildiğinde çalışır kod.
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.