مساعدة في اعادة كتابة كوود

[BuFaisal]

الاخوة الافاضل السلام عليكم ورحمة الله

حاولت ان اجمع من الاكواد المطروحة في المنتدى لانشاء كود رسالة تنبية تخرج مباشرة "بدون ضغط اي زر" عندما يكون ناتج خلية d3اصغر من 0 ولكن هناك خطء لم تستطع خبرتي المتواضعة على تحديدة ارجو الافادة

Sub Macro1()

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng1 As Range

Set Rng1 = Range("d3")

If Intersect(Target, Rng1).Value < 0 Then

MsgBox (" stock is not enough to complete the order")

End If

End Sub

وللمعلومية فان d3 معادلة ولا ينطبق عليها Data Validation لان الادخال غير مباشر للخلية وانما ناتج من حسابات لخليا اخرى

ولكم جزيل الشكر

اخوكم بوفيصل

تم تعديل مايو 8, 2010 بواسطه BuFaisal

[هشام شلبى]

السلام عليكم

===========

عزيزى ابو فيصل

الكود سيصبح على الصورة

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng1 As Range

Set Rng1 = Range("d3")

If Intersect(Target, Rng1).Value < 5 Then


MsgBox (" stock is not enough to complete the order")


End If

End Sub

غيرت لك القيمة الى 5 حتى تشعر بالتغير بالكود

New ورقة عمل Microsoft Excel.rar

[BuFaisal]

استاذ هشام

السلام عليكم ورحمة الله

نفس المشكلة

حيث ان D3 هي ناتج معادلة (D2 المخزون - D1 المطلوب)

في حالة ان المطلوب اكبر من المخزون تضهر الرسالة اما اذا كان المخزون يغطي المطلوب فلأمور طبيعية

ولكم جزيل الشكر

شاهد المرفق

New ورقة عمل Microsoft Excel.rar

[أبوعبد الله]

أخي العزيز / بوفيصل

رجاء الاطلاع على المرفق وبه تم تعديل بسيط على الكود ليعمل كما ترغب لدى أي تغيير في D1 أو D2 يؤثر على نتيجة المعادلة في D3 ويجعله بالسالب فقط ستظهر الرسالة . والشكر موصول لأخي الحبيب هشام شلبي .

تحياتي

أبو عبدالله

New ورقة عمل Microsoft Excel.rar

[BuFaisal]

الله لا يحرمنا منكم ولا من خبراتكم

ولأهم من كل شي سرعة تجاوبكم

جعلها الله في ميزان حسناتكم

اخوكم بوفيصل