Uyarı Mesajı - Veri Doğrulama

[vivident]

Merhaba

D1 hücresinde veri doğruluma ile liste şeklinde veri çekiyorum, vba kodu olarak
D1 Hücresi tpl ise "doğru giriş yaptınız" mesajı versin
D1 Hücresi boş veya farklı birtanım varsa hiçbir mesaj vermesin

Nasıl yapabiliriz
Soru ektedir

 

[vivident]

Veri doğrulama kullanılarak yapılırken, hücre içine değer girilmediği için ve filitre yönetimi ile değer değiştiğinden veri doğrulama çalışmıyor.

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
If Range("D1") = "TPL" Then
MsgBox ("doğru giriş yaptınız")
End If
End Sub

Bu kodu kullanmaya çalıştım, ama malesef olmadı

 

[vivident]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D1") = "TPL" Then
MsgBox ("doğru giriş yaptınız")
End If
End Sub

Sanırım koddaki problem ilk satırda idi

Private Sub Worksheet_Change(ByVal Target As Range)

Yukarıda ki gibi değiştirince kod çalıştı