Formül sonucu oluşan değer için veri doğrulama uygulanabilirmi.

[hassan26]

Formül sonucu oluşan değer için aşağıdaki kodu uyguladım ama ilgili hücreye değer manuel girilmedikçe kod aktif olmuyor. Kısacası ekli dosyadaki D kolonunda formül sonucu oluşan değer için veri doğrulama uygulayabilmenin başka bir yolu varmı.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [d:d]) Is Nothing Then Exit Sub
If Target.Value < 7 Or Target.Value > 100 Then
MsgBox ("Değer 7-100 arasında değildir")
End If
End Sub

 

[N.Ziya Hiçdurmaz]

Yanıt

Kodlarınızı aşşağıdaki aralığın içine yazıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Seyit Tiken]

Kodlarınızı aşağıdaki eylem şekli arasında yazıp deneyiniz.

Private Sub Worksheet_Calculate()

End Sub

 

[hassan26]

Selam Seyit bey V.Basic For Applications verdiğiniz başlıkları denedim ben B ve C kolonlarına değer giriyorum formül sonucu D kolonunda beliriyor ancak Cursorü D kolnundaki hücre üzerine getirmeden yada mouse ile üzerine gelmeden kod aktif olmuyor. İstediğim Ben B ve C kolonuna veri girdiğimde D kolonunda formülde istenen değer düşükse D kolonundaki hücreye cursoru atlatmadan yada mouse ile üzerine gelmeden doğrulamada olduğu gibi uyarı vermesiydi. Yapamadım.
Saygılar ve ilginize teşekkürler.