محمد حسن المحمد

أشكرك أخي الكريم @Hicham1470 بل أنت من يستحقها في هذه المرة،جزاكم الله خيراً. والسلام عليكم

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

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام @lionheart و @omar elhosseini جزاكما الله خيراً على ما تقدمانه من جهود حثيثة ومضنية للناس في حل أسئلتهم واستفساراتهم وإيصالهم للنتائج المرجوة أسأل الله تعالى أن يجعل كل ذلك بموازين حسناتكم يوم لا ينفع مالٌ ولا بنونَ إلا من أتى الله بقلب سليم أما معادلة الأستاذ الكريم @lionheart فهي باستخدام معادلات Filter (لمستخدمي 365) التي لم نرتق لها بعد. حيث لا زلنا على 2016 ومعادلة الأستاذ @omar elhosseini هي باستخدام عمود مساعد ومعادلة Exact حققت نتيجة طيبة. أرجو لكما التوفيق والسداد ...وأشكركما على هذه المعلومات القيمة التي تسدونها لنا والسلام عليكم ورحمة الله وبركاته

السلام عليكم أخي الكريم هذا المرفق من ملفاتك - أخي الكريم - مع بعض التعديلات أرجو أن يناسبك Private Sub TextBox1_Change() Application.ScreenUpdating = False ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=7, Criteria1:="*" & [e2] & "*", Operator:=xlFilterValues Application.ScreenUpdating = True End Sub TEST.xlsm

السلام عليكم ورحمة الله وبركاته يمكنك استخدام عمود مساعد تجمع فيه بين الاسم وشيء آخر كالرقم مثلاً ..إلخ. ثم ليكن هذا العمود ما تجري عليه الفلترة والله اعلم والسلام عليكم ورحمة الله وبركاته

الحمد لله الذي بنعمته تتم الصالحات

أشكركم على ردكم الجميل واعتذر إن كنت أسأت

الحمد لله الذي بنعمته تتم الصالحات لا شكر على واجب ، حياكم الله أخي الكريم @اشرف صبور محمد تقبل تحياتي

السلام عليكم أخي الكريم يرجى استبدال الكود في التيكست بوكس بالكود التالي: Private Sub TextBox1_Change() Application.ScreenUpdating = False ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=3, Criteria1:=[e2], Operator:=xlAnd If TextBox1.Value = "" Then ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=3 End If Application.ScreenUpdating = True End Sub تقبل تحياتي TEST.xlsm

السلام عليكم ورحمة الله وبركاته يمكنك استخدام المعادلة التالية واسحب نزولاً =SUM((B2*30);A2) تقبل تحياتي العطرة

السلام عليكم ورحمة الله وبركاته أخي الكريم هي ليست معادلة واحدة فحسب بل أكثر من معادلة. يرجى نسخ الخلايا إلى الملف الأصلي ثم تسجيل العدد المطلوب ثم السحب نزولاً بدءاً من الخلية أسفل الخلية الملونة بالأصفر. والله الموفق

السلام عليكم ورحمة الله وبركاته بعد إذن أستاذنا الكريم @نزار سليمان عيد هذا حل آخر ارقام جلوس.xlsm

العفو أخي الكريم @بلانك ولا يهمك أما الكود فهو للأخ الحسيني جزاه الله خيرا رمضان مبارك علينا وعليكم أعاده الله تعالى بالخير واليمن والبركات.

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

السلام عليكم هذه صورة عن الورقة التي أجري عليها الفرز بعد تفعيل الكود لديّ Office 2016 على رسلك أخي الكريم @مهند محسن فالدلالة على خطأ وقع في كود ما ليس انتقاداً هداماً بل هو لتصحيح الخطأ وقد يكون من استخدام اسم الورقة العربي في الكود مثلاً جزاكم الله خيراً كل من ساهم ويساهم في تطوير العمل بهذا المنتدى الكريم ...مع العلم أنني قلت لأخي الكريم @omar elhosseini أرجو لك مستقبلاً واعداً لمساهماته الطيبة ومساعدته للآخرين وبما أن هذا المنتدى تعليمي حبذا لو يكون شرح كل حل واضحاً للعيان وليس فقط ضمن ملف العمل الخاص بالسائل فحسب لننهض بمنتدانا ليبلغ قمة السؤدد والعطاء أسألكم اللين في المعاملة وانتقاء الأجوبة المشجعة وليس العكس مثل: وقد تبين أن المشكلة ليست من عند السيد @بلانك حسبما ترى في الصورة أعلاه. والسلام عليكم.

وعليكم السلام ...أعاده الله علينا بالخير واليمن والبركات استخدم المعادلة بدءاً من الخلية A2 =COUNTIF($B$2:B2;B2) تقبل تحياتي الترقيم حسب التاريخ.xlsx

السلام عليكم ورحمة الله وبركاته أخي الكريم كنت وضعت موديول التصفية ضمن حدث الورقة، بمجرد اختيار اسم المحافظة في الخلية الملونة بالأصفر H2 وهي الخلية التي تم استخدام قائمة منسدلة بأسماء المحافظات في مصر الشقيقة سيتم تلقائياً تصفية الأسماء في العمود D وأنا مستغرب كيف تم حذف موضوع استهلك جهداً ووقتاً ...فإن أمكن أن يقوم الإخوة من فريق الموقع الكرام مشكورين على إضافة هذه المشاركة إلى الموضوع السابق ثم حذف هذا الموضوع علماً أنه قد يكون السبب في حذف أحدهما راجع إلى كتابة الموضوع ذاته من العضو ذاته بنفس الوقت والتاريخ مما يخالف قوانين المنتدى الكريم ، لكن استغرابي هو كيف يتم حذف موضوع فيه ردود عديدة منها رد للأستاذ الكريم @نزار سليمان عيد جزاه الله خيراً وترك الآخر الذي لم يحظ بأية إجابة قط سوى هذه ، وأنا لا أضع اللوم كلياً على السائل فقد يكون ضعف الإنترنت هو السبب والضغط على حفظ أو إضافة لأكثر من مرة ويستجيب الموقع في كل منهما لإضافة الموضوع ذاته. والسلام عليكم. واجه بعض الاخوة مشاكل فى الدخول ، و اشار البعض الي فقدان بعض الردود و بمراجعة السبب ، تبين ان شركة الاستضافة قامت باجراء احادى الجانب دون موافقة مني بنقل الداتا سنتر الى سيرفر جديد أول أمس فى العادي كان يتم التواصل معي و اقوم بايقاف المنتدى، و لكن الان فقط اضافوا اشعار فى لوحة التحكم بانه سيتم النقل فورا ، و قد تم النقل حاليا بالفعل و لم يتم انتظار موافقتي كما هو معتاد . جاري التواص معهم لمعرفة مدى اضطرارهم الي ذلك ، ودراسة امكانية نقل الردود التي فقدت الى قاعدة البيانات

السلام عليكم ورحمة الله وبركاته تفضل =MAX(C3:F3)-B3 واسحب نزولاً خصومات جيدة.xlsx

لحذف الاسم في العمود A بالمعادلات =SUBSTITUTE(A1;"الاسم:";"";1) واسحب نزولاً لحذف رقم الهوية في العمود B بالمعادلات أيضاً =SUBSTITUTE(B1;"رقم الهوية:";"";1) واسحب نزولاً

هذه المعادلة والله أعلم. وإن كان أحد من الزملاء يرغب بالتعديل فله ذلك على الرحب والسعة.

جزاكم الله خيراً أخي الكريم @ابراهيم الحداد والشكر موصول للأخ الكريم @صوت الحق الذي حفزكم على هذا العمل الطيب تقبلوا تحياتي العطرة والسلام عليكم.

أخي الكريم السلام عليكم ((مع رجاء إرفاق ملف للعمل عليه من قبل الزملاء الأفاضل)): لإزالة السلاسل النصية من مجموعة من الخلايا في العمود B بدءاً من B2 نزولاً حتى آخر صف تريده يمكنك استخدام معادلة صفيف كما يلي : في الخلية C2: =SUM(MID(0&B2;LARGE(INDEX(ISNUMBER(--MID(B2;ROW($1:$99);1))*ROW($1:$99););ROW($1:$99))+1;1)*10^ROW($1:$99)/10) استخدم ALT+SHIFT+ENTER ثم تنسخ الناتج وتلصقه (لصق قيم في العمود B مثلاً) أو تسجل موديول كما يلي لمسح كلمات (رقم الهوية:) والإبقاء على الرقم في العمود ذاته: Sub ReplaceText() Cells.Replace What:="الاسم:", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Cells.Replace What:="رقم الهوية:", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub أما بقية الأسئلة ففي منتدانا من خلال البحث ستجد ضالتك إن شاء الله تعالى. إو إن شئت استخدم المعادلة التالية في العمود الثالث كما يلي: =IF($A1<>"";VLOOKUP(A1;$B$1:$B$170;1;0);"") تقبل تحياتي العطرة والسلام عليكم. ملاحظة: تمت كتابة معظم مشاركتي حسب طلبك كما جاء في الصورة التي أرفقت ....حرر للبيان. اوفسينا.xlsm

وجزاكم بمثل ما دعوتم أخي الكريم أبو عائشة @abo3aesha_2014 وفقكم الله تعالى لما يحب ويرضى آمين والسلام عليكم ورحمة الله وبركاته 💐🏵️🌺🌸

أحسنت بارك الله بك اخي الكريم @Ali Mohamed Ali جزاكم الله خيرا وأحسن إليكم آمين 👍🌺😊