الماكروا المشروط في الاكسيل

[Anwar]

كيف يتم انشاء ماكروا مشروط في الاكسيل

بمعني يتم تنفيذ الماكروا علي اساس شرط معين اذا تحقق وجد الشرط يتم تنفيذ الماكروا وان لم يتحقق طبعا لا ينفذ

ولتوضيح الصورة اكثر لدي برنامج والمطلوب هو عند بقوم باستدعاء الماكروا بواسطة زر يقوم الماكروا بفحص محتويات الخلية (b13) مثلا فاذا وجد فيها الرقم (1621) فانة يقوم بتنفيذ جميع المطلوب منة . واذا وجد رقم غير ذلك يتوقف عن العمل .

[Abo Mazin]

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

ضع هذا الكود في بداية كود الماكرو المراد تشغيله

Range("B13").Select

If Selection.Text <> "1621" Then End

[Anwar]

شكرا لك اخي ابو مازن

جربت الكود ونجح بقي امر اخر ارجوا الرد علية

اذا اردت من الماكروا ان يقارن بين قمة خليتين ثم يرجع نعم في حالة التحقيق ولا في حالة عدم المساوة جرب ذلك عن طريق الدالة if ولكن المشكلة اني نجحت ان ينطلق ال الخلية الاولي و ينطلق الي الخلية الثانية ولكن لم انجح ان يقارن بين الخليتن

ويعطيكم العافية

[Anwar]

الاخوة ارجوكم لاتنسونا

مازلت احاول ولكن لم اجد الحل :@

المشكلة ان الماكرو يركز علي خلية واحدة ويقرائها ولا يمكن عمل ذلك علي الخلية الثانية

اخي ابو مازن وينك

هل تعتقد انة يمكن تعديل الامر

Rabge("B13") And Range("C13").Select

جربت ولم ينجح لعلة ينجح معك او تجد كود اخر

ويعطيكم العافية

[محمد طاهر عرفه]

فى بداية الماكرو ضع الكود التالي

If Range("a1") <> 1 Or Range("a2") <> 2 Then
  MsgBox "not valid"
  Exit Sub
 End If

[Anwar]

اشكرك يااستاذ محمد علي الرد

ونجحت الطريقة (y)

والله العظيم المنتدي منور بعودتك

اللة لا يحرمنا منك ويعطيك العافية