(تمت الاجابة) ارجو المساعدة بكود يقوم باستخراج الاسماء طبقا لاسم المادة المختارة

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

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

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

كود لكتابة الاسماء التى ينطبق عليها اسم المادة.rar

[عبدالله المجرب]

السلام عليكم

اخي فضل ضع هذا الكود في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cl As Range

If Not Intersect(Target, [I1]) Is Nothing Then

[I2:I1000].ClearContents

For Each cl In [B2:E21]

If cl = Target Then Cells([I10000].End(xlUp).Row + 1, 9) = Cells(cl.Row, 1)

Next

End If

End Sub

[فضل حسين]

حبيب قلبى المايسترو

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

لقد قمت بعمل ماطلبت وضعت الكود فى حدث الصفحة ولكن وللاسف لم ينفذ شئ او يفعل اى شئ ولااعلم ماهو السبب .

ولسيادتكم جزيل الشكر

تم تعديل فبراير 24, 2012 بواسطه فضل 1

[فضل حسين]

حبيب قلبى المايسترو

للاسف النتائج غير مضبوطه

تم تعديل فبراير 24, 2012 بواسطه فضل 1

[عبدالله المجرب]

السلام عليكم

جرب المرفق

كود لكتابة الاسماء التى ينطبق عليها اسم المادة.rar

[فضل حسين]

^{حبيب قلبى المايسترو}

^{انا اسف ياحبيبى حصل لبس عندى او خطأ من عندى ليس مقصود .}

^{وبسم الله وماشاء الله ولاالله الا الله والله اكبر ابداع مابعده ابداع والظاهر اننى هامسك الخشب على طول وانا فى البيت .}

^{اللهم صلى على النبى اصبحت الحانك سريعة جدا . بارك الله فيك ويخليك لنا ياحبيبى}

[الـعيدروس]

السلام عليكم

استاذ عبدالله المجرب

ماشاء الله تبارك الله

كود مختصر جدا

تقبل مروري

[فضل حسين]

حبيب قلبى المايسترو

والله مااريد ان انهى هذه المشاركة الجميلة معك وهذا الابداع والجمال فى شغلك واكوادك .فأنا بالامانه والله بستمتع بالحانك استمتاع غير عادى بل اصبحت مدمن اعمال المايسترو .

يسعدنى ويشرفنى ان اشكرك للمرة الثانية على هذا الجمال والابداع

على امل ان نتقابل فى مشاركة اخرى للاستمتاع اكثر واكثر واكثر

[عبدالله المجرب]

حياك الله اخي فضل

وشكراً على مرورك اخي ابو نصار

[أبو عبد النور]

السلام عليكم،

بارك الله فيك أخي عبد الله.

[بن علية حاجي]

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

أخي الكريم، تعودت أن أتتبع خطوات أخي وحبيبي أبو أحمد، عمله بالأكواد وعملي بالمعادلات، أقدم العمل التالي في الملف المرفق باستعمال معادلات بسيطة مع إضافة تنسيق شرطي "نلوين الاسم واسم المادة في الجدول حسب الاسم المختار في القائمة المنسدلة"...

أخوك بن علية

كود لكتابة الاسماء التى ينطبق عليها اسم المادة3.rar

[عبدالله المجرب]

السلام عليكم

شرف كبير ان يقال فيني هذا الكلام من استاذ كبير مثل بن عليه

شكراً على هذا التشجيع

[أبو عبد النور]

أخي بن علية،

لا اعلم لماذا يحدث خطأ عند تفعيل الماكرو في ملفك المرفق ؟

[فضل حسين]

الاستاذ الفاضل / apt

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

لايوجد ادنى مشكلة فى الملف المرفق فأنت بتتعامل مع عملقين كبيرين المايسترو والاستاذ الكبير بن عليه

ولكن الملحوظة التى احب ان اوضحها لسيادتكم ان العمود i به كود المايسترو الابداعى

والعمود k به المعادلة الرائعة لاستاذنا الكبير بن عليه

ولكن هو عندما عمل استاذنا الكبير التنسيق الشرطى للمواد عملها على اسم المادة الموجودة فى عمود i وليس على عمود k

واظن جاء ت ملحوظتك من هنا

على ايه حال ارفقت الملف وان شاء الله سوف لاتجد به اى مشكلة

ولاتنسى ان تشكر العملقين الكبيرين المايسترو والاستاذ الكبير بن عليه على عملهما الرائع

وسلام

كود لكتابة الاسماء التى ينطبق عليها اسم المادة3.rar

[فضل حسين]

استاذى الكبير / بن عليه

تسلم الايادى الجميلة وتسلم العقول النيرة حل مفيش احسن من كدة . حل فعلا من استاذ ورئيس قسم للمعادلات . بارك الله فيك وزادك علما اللهم امين .

اما بخصوص كلمتك الجميلة ( تعودت أن أتتبع خطوات أخي وحبيبي أبو أحمد، عمله بالأكواد وعملي بالمعادلات )

بكده كملت

فبدل ماكنت على طول ماسك الخشب فى البيت مع اكواد المايسترو

ناويت والنيه لله مع اكواد حبيب قلبى المايسترو ومعادلات استاذنا الكبير بن عليه

اشترى كرسى خشب لجهاز الكمبيوتر واقعد عليه قبل دخولى المنتدى العظيم اوفيسنا

سلام ياحبيبى ونتقابل فى مشاركات اخرى لمزيد من المتعة والجمال

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

[أبو عبد النور]

السلام عليكم،

شكرا لك أخي فضل على الملف.

وإكمالا لعمل الاستاذ عبد الله ووصولا الى نتيجة الأستاذ بن علية

ارفق ملفا جديدا عله يساعد الأخ فضل.

شكراً

كود لكتابة الاسماء التي ينطبق عليها اسم المادة.rar

[محمد مصطفى ابو حمزة]

مش عارف اقول ايه فريق عباقرة للمساعدة والله احسدك اخى فضل 1 بارك الله فيكم يا اخوة الخير

[فضل حسين]

الاستاذ الفاضل / apt

الف شكر على الاهتمام وعلى الملف جزاك الله كل خير وبارك الله فيك .

ولكن وللاسف الكود لايعمل عندى ولااعرف ماهو السبب هل لاننى بعمل على اوفيس 2003 او ايه بالضبط الله اعلم

على ايه حال اكرر شكرى وامتنانى لشخصكم الكريم

وسلام

[أبو عبد النور]

هي مشكلة الالوان بالفعل.

سوف اعد لك ملفا جديدا ان شاء الله.

[أبو عبد النور]

السلام عليكم،

- تم اضافة تنسيق شرطي للسطور المضافة من آخر المصفوفة

- يتم ملء القائمة المنسدلة آليا واضافة اي مادة جديدة تمت كتابتها

ارجو ان يناسبك البرنامج

كود لكتابة الاسماء التي ينطبق عليها اسم المادة_(ن2).rar