Hücrede değerine göre mesaj (aktif hücre)

[burhancavus61]

Aktif hücre o sütunu "Hata" yazıyor ise uyarı mesajı versin. Makro ile lazım

 

[PLİNT]

Merhaba
Formül sonucu değer hataları içinse şöyle deneyebilirsiniz ("O" sütunu için)

If ActiveCell.Column = 15 And IsError(ActiveCell.Value) Then MsgBox "Aktif hücredeki formül sonucu hatalı"

Değer olarak ise

If ActiveCell.Column = 15 Then
If ActiveCell.Text Like "*" & "HATA" & "*" Then MsgBox "Aktif hücrede HATA var"
End If

 

[Korhan Ayhan]

Burhan Bey,

Bu şekilde sorularınızı genel sorarsanız büyük ihtimalle cevap almanız zorlaşır.

Makro hangi olayda uyarı mesajı verecek?

 

[burhancavus61]

Hocam örneğin K25 sütununda değişiklik yapıyorum O25 sütunu değişikliğe göre hata mesajı yazıyor. Bende O25 sütunundaki Hata mesajına karşılık mesaj gelsin istiyorum. 2000 satırlık bir veri var.

 

[PLİNT]

Aşağıdaki kodu ilgili sayfaya yapıştırıp deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 11 And IsError(Target.Offset(0, 4).Value) Then
MsgBox Target.Offset(0, 4).Address & "'te Hata oluştu"
End If
End Sub

 

[burhancavus61]

olmadı hocam

 

[PLİNT]

"O25" hücresinde formül var değillmi?

 

[burhancavus61]

Evet Eğerli "Hata" mesajı veriyor

 

[PLİNT]

Ek dosyadaki; "Sayfa1" kod penceresinde 2 çeşit kod bulunuyor

https://www.dosyaupload.com/7333

 

[burhancavus61]

Tamam hocam bakıyorum

 

[burhancavus61]

Hocam sağolun sizin örnek çalışıyor. Muhtemelen benim eklediğim bi kod engelleme yapıyor. bulmaya çalışacağım.