نايف - م

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

السلام عليكم

الكود يعمل بأمتياز لكن الحقيقة لم أفهم آلية عمله

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

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