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

السلام عليكم ورحمة الله وبركاته 💐 أخي الكريم هل هذا ما تريد الوصول إليه فإن لم يكن يرجى التوضيح اكثر تم استخدام الدالة Sumif للوصول إلى النتائج لكن بعد إلغاء دمج الخلايا في ملف البيانات كما يلي: ملحص.xlsx

السلام عليكم ورحمة الله وبركاته 💐 يرجى النظر في الملف المرفق تقبل تحياتي العطرة الفرق بين تاريخين.xlsx

السلام عليكم ورحمة الله وبركاته لإجراء اللصق في الخلايا المصفاة أو ما يجاورها، نذهب إلى أعلى خلية في المكان المراد اللصق فيه مثلاً D2 من D2 :D10 نكتب فيها = أول خلية مراد نسخها مثلاً: =A2 = أول خلية مراد نسخها ثم نحدد النطاق المراد اللصق فيه على أن تكون أول خلية محددة D2 ثم نضغط على زري CTRL+Enter معاً. والله أعلم لمزيد من المعلومات يمكنك متابعة هذا الفيديو والسلام عليكم

السلام عليكم ورحمة الله وبركاته أخي الكريم أرجو أن يكون هذا الحل مناسباً ولكن هنا 3 تكست بوكس كل منها بلغة (عربي - إنكليزي - فرنسي) أشكر من خلال هذا الموضوع الأخت ساجدة العزاوي على تطرقها لمثل هذه المسائل الهامة. بإمكانك أخي الكريم متابعة هذا الفيديو من هنا أرجو أن تعم فائدته ...تقبل تحياتي العطرة ... والسلام عليكم. تبديل لغة التكست بوكس.xlsm

أشكرك أخي الكريم @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) واسحب نزولاً

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