نايف - م

تمااام هو المطلوب جزاك الله خيرا

السلام عليكم الكود يعمل بأمتياز لكن الحقيقة لم أفهم آلية عمله يمكن ذلك اذا تغير ترتيب الأعمدة و عددها حتى أستطيع تطبيقه على أية جدول test.xlsm

الحمدلله و لك الشكر و جزاك الله خيرا أستاذي : المطلوب بالضبط لكن سؤال أخير قبل أن نغلق الموضوع هذا الكود يلزم كثيرا مع تغير قاعدة البيانات و الأعمدة المطلوبة ما هي الأجراءات التي تتغير في حال أردت التعامل مع قاعدة بيانات ثانية .. يعني مثلا قاعدة بيانات من 10 أعمدة و اسم الطالب في العمود الثاني و صفته في العمود الخامس .. يعني بعد أذنك قليل من الشرح حتى أستطيع فهمها و تطبيقا حيثما أشاء لك وافر أحترامي

السلام عليكم قمت بالتغيير ل or فكانت النتيجة كل طويل و كل سمين و كل ذكي .. المفروض أن تعطي سامر فقط لأنه الوحيد الطويل و السمين و الذكي .. و المفروض تعطي اسم سامر مرة واحدة كقيمة فريدة 20231013 test.xlsm

السلام عليكم الأستاذ الكريم .. أريد الصفات في 3 تكست بوكس .. أعتقد أنه يجب أن أضع and بدل or If Arr(i, 2) Like "*" & Cond1 & "*" And Arr(i, 2) Like "*" & Cond2 & "*" And Arr(i, 2) Like "*" & Cond3 & "*" Then أستاذي الكريم و مع تغيير الكود كما سبق لم يعطي النتيجةالمطلوبة : طالب عنده هذه الصفات الثلاث هل يمكن عمل ذلك مع الشكر

السلام عليكم . عمود يحتوي أسماء الطلاب . عمود يحتوي صفات الطلاب الطول الوزن الذكاء .. أريد معرفة كل الطلاب الذين يحملون الصفات الموجود في 3 تكست بوكس 20231013 test.rar

تمام .. مع الشكر الجزيل للأستاذ محمد هشام

السلام عليكم لم أعرف كيف أنشأ ملف لأنه متغير النتائج يوجد تكست بوكس و ليست بوكس التكست بوكس لأدخال كود البحث و الليست بوكس لأضافة نتيجة البحث كيف يمكن أن أضع كود بحث في التكست بوكس و الحصول على النتيجة في الليست بوكس ثم مسح كود البحث في التكست بوكس و أضافة كود آخر و الحصول على نتيجة جديدة تضاف للقديمة في الليست بوكس 20231013 test.xlsm

رائع سلمت الأيادي أستاذي الغالي ..الأستاذ الكريم ..كيف يمكنني نقل محتوى الورقيتين المختارات ل ليست بوكس نايف ترتيب اوراق في مصنف.xlsm

الف مبروك أستاذ

السلام عليكم ..عند أختيار عدة أوراق في الليست بوكس و طلب عرض الأوراق المختارة يعطين أخر ورقة فقط نايف ترتسيب اوراق في مصنف.xlsm

مع الشكر الجزيل للأستاذ ابراهيم الحداد المحترم

السلام عليكم ..عند الضغط على زر أمر أحصل على 3 رسائل م سي جي بوكس ..أريد أن تظهر النتائج في رسالة واحدة المصنف11.xlsm

الأخ الغالي omar elhosseini نفس الكود أنا وضعته في مشاركتي و قلت أنني جربته و لم ينجح عندما تكتب في خلية فارغة فأنع يعطي رسالة أنا أريد الرسالة فقط في الخلايا المكتوب فيها و ليست الفارغة مع الشكر

السلام عليكم في مجال به خلايا مكتوب و حلايا فارغة .. كيف يمكن الحصول على مسج عند تغيير احدى الخلايا المكتوبة مع الشكر ملاحظة : لا يمكن الطلب من خلال ملف جربت الكود التالي و لم ينجح Dim KeyCells As Range ' The variable KeyCells contains the cells that will ' cause an alert when they are changed. ' Set KeyCells = Range("A1:C10") lastrow = æÑÞÉ11.Cells(rows.Count, "b").End(xlUp).Row Set KeyCells = æÑÞÉ11.Range("b2:b" & lastrow) If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then ' Display a message when one of the designated cells has been changed. ' Place your code here. MsgBox "Cell " & Target.Address & " has changed." End If