ظهور رسالة Message Box عند كتابة قيمة بخلية

[امير عاطف]

السؤال للأخ hosam :

مطلوب ظهور رساله ( MESSAGE BOX ) عند أدخال رقم في خلية الأيداع تقول ( تمت أضافة المبلغ ) .

- وظهور رساله أخرى عند أدخال رقم في خلية السحب تقول ( تم خصم المبلغ ) .

[امير عاطف]

Private Sub Worksheet_Change(ByVal Target As Range)

Dim r

  For Each r In Range("a1", "a1000")

     If r.Value > 0 Then

        MsgBox "تمت أضافة المبلغ", vbOKOnly, "Officena"

        Exit For

     End If

  Next r

End Sub

[امير عاطف]

رد للأخ أبو احمد :

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value <> "" Then

   If Target.Column = 1 Then

MsgBox "تمت أضافة المبلغ", , "تهانينا"

End If

If Target.Column = 2 Then

MsgBox "تم خصم المبلغ ", , "أحسن الله عزاك"


  End If


End If

End Sub

[امير عاطف]

لا يوجد بالأكود السابقة اي مشاكل !

تأكد من وضع الاكواد عند حدث التغيير لورقة العمل وليس لدفتر العمل

[حسام نور]

- تم عمل اللازم أشكركم .. الحمد لله عرفت الطريقه