Msj Uyarısı

[ijol]

Merhaba,

A sutunun, A15 ile a1000 Arasına veri girişi yapılıyor. A15 itibari ile girişi yapılan verilerden her sıfır çıkışında "hatalı işlem" uyarısını vermesini nasıl yapabilirim. Bu sayede sıra ile hatalı işlemleri bulabileceğim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sayfa kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a15:a1000]) Is Nothing Then Exit Sub
If Cells(Target.Row, "a") = 0 Then
    MsgBox "Hatalı işlem"
End If
End Sub

 

[ijol]

N.Ziya Hiçdurmaz merhaba,

makroyu denedim fakat olmadı, ekte örnek gönderiyorum, A16 hücresine veriyi D16-H16 olarak alıyor iki değer farkı sıfır olduğunda hata vermiyor.