Formüllü Hücre Değerine Göre Kod Çalıştırma

[betoncu]

A1 Hücresinin değeri değişince (hücrenin içerisine girip enter tuşuna basınca) aşağıda belirttiğim kodlar yardımıyla uyarı mesajı verdirebiliyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" <> Empty Then Deneme
End Sub

Sub Deneme()
MsgBox "Deneme"
End Sub


Fakat A1 hücresinde formül olduğu zaman formül sonucuna göre hücre değeri değiştiğinde bu kodlar çalışmıyor. Ancak formülün içerisine girip enter tuşuna bastığımızda uyarı mesajı geliyor.

Hücrenin içerisine girip enter tuşuna basmadan; hücredeki formülün değişen sonucuna göre bu uyarı mesajını nasıl verdirebiliriz?

Örnek dosya ektedir.

 

[Emir Hüseyin Çoban]

. . .

Kodların çalışmasını A1 hücresinden değil.
A1 hücresindeki formülün, değer aldığı alanlar da değişiklik olunca çalıştır.
Şeklinde düzenlene bilir.

. . .

 

[betoncu]

Hüseyin bey yardımınız için teşekkür ederim.
Diğer arkadaşların fikri nedir acaba bu konuda?

 

[Emir Hüseyin Çoban]

. . .

Dim bellek

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Deneme
ElseIf Range("a1").Value <> bellek Then
Deneme

Else
End If
End Sub

Sub Deneme()
MsgBox "Deneme"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
bellek = Range("a1").Value
End Sub

. . .

 

[betoncu]

Hüseyin Bey tekrar teşekkür ederim...