نايف - م

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

السلام عليكم الكود يعمل بأمتياز لكن الحقيقة لم أفهم آلية عمله يمكن ذلك اذا تغير ترتيب الأعمدة و عددها حتى أستطيع تطبيقه على أية جدول 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

الشكر الجزيل للأخ الكريم هذا حل رائع كنت أعمل للوصول اليه و لم أنجح لكن أنا أريد أن أختار أوراق ثم يتم ترتيبها حسب الحرف الأول و ليس حسب مكان التموضع الأوراق حسب الكود عندك يرتبها متسلسلة كما هي أنا أريدها حسب الحرف الأول ملاحظة ثانية : التريب حبذا لو يكون بعد أول ورقة محددة و ليس أول ورقة في الملف

كيف يمكن ترتيب الأوراق المحددة بالليست بوكس .. فقط المحددة بالليست بوكس المصنف1.rar

مع الشكر الجزيل لك أخي الكريم و الشكر لكل من يتعب في سبيل الآخرين

السلام عليكم عندي 3 تكست بوكس هي عبارة عن دفعات مالية من زبون كيف يمكن أن أجمع قيم هذه التكست بوكس بحيث تعرض الدفعات ال 3 و المجموع activecell = textbox1+textbox2+textbox3 textbox1=12 textbox2 =13 textbox3=14 تكون النتيجة في الخلية النشطة = 12+13+14 = 39

السلام عليكم الكومبوبوكس فيه قائمة طويلة من الكلمات التي أرغب بأدراجها في خلايا ضمن العبارات المكتوبة - ليس في بداية الخلية و لا في نهايتها و أن تكون مسبوقة بالرمز # لسهولة البحث عن كلمة مفتاحية يمكن أجراء نسخ للكلمة من الكومبوبوكس ثم كتابة الرمز # ثم أمر لصق من البرنامج الرئيسي لكن للحقيقة تستهلك معي كثير من الوقت هل يمكن المساعدة في تحقيق ذلك و لكم الشكر الجزيل ملف مرفق المصنف1.rar

لقد وضعن شرط اليوم على الشكل التالي : For i = 2 To lr If Range("ae" & i) >= Const_Time And Range("ad" & i) = LL Then Exit For End If Next LL= date لم ينجح

طيب و شرط اليوم المحدد

شكرا للحل أستاذي سليم لكنك لم تلحظ اليوم المحدد بالكود و أنا أريد جمع الأرباح بعد وقت محدد و بالتالي أشارة المساواة هنا غير منطقية If Range("f" & i) = Const_Time Then كما أنني أريدد جمع الأرباح من العمود D

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

السلام عليكم أريد جمع الأرباح بين تاريحين و في يوم محدد أرفقت مثال أوضح فيه المطلوب و حاولت باستخدام sumifs و لم تنجح ممكن مساعدة حساب الربح بين وقتين.rar