كيفية إظهار رسالة تحذيرية بإدخالات خاطئة بناء على قيم معينة

[obad65]

مع التحية اخواني الأعزاء

 

كما هو موضح بالمرفق 

أود عند اختيار نوع الحفرية (1)  ترابي في الخانة C3

وعند ادخال كميات في الخانات C8;C9;E7;E8

تظهر رسالة تنبيه بالماكرو تفيد بوجود خطأ لايمكن ادخال كميات أسفلتية في الحفرية الترابية

 

     ولكم مني جزيل الشكر والتقدير والاحترام

zz.zip

[obad65]

مع التحية والتقدير أخواني

  آمل الاطلاع وافاداتي مع شكري الجزيل

[الصـقر]

استاذى الفاضل

حسب فهمى 

تفضل الملف المرفق هل هو المطلوب

zz.zip

[obad65]

هذا المطلوب فعلا

 

  جزاك الله ألف خير أخي حسام ....

[ياسر خليل أبو البراء]

الأخ الحبيب حسام اسمح لي بإضافة بسيطة على الكود الخاص بك

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C8:C9")) Is Nothing Then
    If [C3] = 1 And Not IsEmpty(Target) Then MsgBox "لا يمكن ادخال كميات أسفلتيه فى الحفرية الترابية": Target.ClearContents
    End If
    If Not Intersect(Target, Range("E7:E8")) Is Nothing Then
    If [C3] = 1 And Not IsEmpty(Target) Then MsgBox "لا يمكن ادخال كميات أسفلتيه فى الحفرية الترابية": Target.ClearContents
    End If
End Sub

حتى يتم مسح محتويات الخلية بعد إظهار الرسالة

تم تعديل نوفمبر 18, 2014 بواسطه YasserKhalil

[الصـقر]

يا كبير الاستاذ استاذ 

رائع رائع رائع رائع

وبعدين ( مش عايزين نقطع على بعض دى يدوب سبوبه بسيطه ههههههههههههههههههه)بصصلى فيها

زادك الله من علمه وتقبل احترامى