تصفية البيانات بعدة شروط Multiple Filter

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الكرام  كل عام وانتم بالف خير

هل يمكن عمل تصفيه على اساس رقم العامل الذى يوضع فى الخليهD3 ومصدر رقم العامل  العمود C

 وخلال الفترة من ..D1.. الى فترة ....D2....

مع العلم ان مصدر التاريخ هو عمود واحد فقط وهو العمود E

بلاضافة الى   Description اى كونه حاضر ام غائب من خلال الخليه G1 والتى مصدرها العمود F

   

تصفية.rar

[ياسر خليل أبو البراء]

الأخ الكريم ابو حنين

مشكور على التوضيح التام للمطلوب .. هكذا يكون التوضيح

إليك الملف التالي (تم الاستعانة بعمود مساعد لجمع الشروط)

العمود المساعد هو العمود H

إليك الكود مع شرح الأسطر لتتمكن من التعديل عليه

Sub MultipleCriteriaFilter()
'يقوم الكود بفلترة البيانات طبقاً لعدة شروط
'[H5] لتسهيل العمل تم عمل معادلة في العمود الثامن
'=IF(AND(E5>$D$1-1,E5<$D$2+1),C5&F5,"")
'المعادلة تتحقق من وقوع التاريخ بين تاريخي الشرط ، فإذا تحقق
'ليشمل الشروط الأخرى [F5] و [C5] يتم ربط النصوص في الخلايا
'------------------------------------------------------------
'تعيين المتغيرات
    Dim WS As Worksheet
    Set WS = Sheets("General")
'إلغاء خاصية اهتزاز الشاشة
    Application.ScreenUpdating = False
'بدء التعامل مع ورقة العمل
        With WS
'إزالة الفلترة إذا ما كانت موجودة مسبقاً
            .AutoFilterMode = False
'الفلترة بناءً على العمود الثامن أي العمود المساعد
            .Range("A4:H4").AutoFilter field:=8, Criteria1:=Range("H3").Value
        End With
'إعادة تفعيل خاصية اهتزاز الشاشة
    Application.ScreenUpdating = True
End Sub

** لا تنسى أن تحدد أفضل إجابة من خلال الضغط على كلمة "تحديد كأفضل إجابة " ؛  ليظهر الموضوع مجاب ومنتهي.

** لا تنسى أن تضغط كلمة "أعجبني" (الأمر لن يستغرق منك ثواني) ---> (أمضيت من وقتي وقتاً ليس بالقليل .. فاضغط ولا تكن بخيل)

تقبل تحياتي

Filter Data By Multiple Criteria YK.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى الحبيب ياسر اصبحت وامسيت بكل الخير واسال الله ان يجعل ما امضيت من وقت فى ميزان حسناتك

اخى الحبيب

كيف الحال اذا كانت المطلوب البحث عن حالة العامل بغض النظر حاضر ام غائب

اى الرقم بين التاريخين اى سواء كان حاضر ام غائب 

 

اخيرا كيف الرجوع الى كامل الجدول والمقصود به عند عدم كتابه اى رقم فى الخليه D3  واستخدام الكود يظهر كل الجدول بجمبع بياناته

هل يمكن تحقيق الامر

جزاك الله كل الخير

تم تعديل يونيو 8, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

[محمد حسن المحمد]

السلام عليكم أخي أبو حنين وأخي أبو البراء

جزاكما الله خير ....

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

أما عن كيفية الرجوع للجدول الكامل أرى أنه في تحديد صفوف الجدول ثم إظهار الصفوف المخفية

لا تؤاخذوني على تطفلي ...والسلام عليكم.

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى محمد المقصود بالرجوع الى الجدول الاصلى هو عند عدم كتابه اى شئ فى الخليه d3 وعند تنفيز الكود يظهر جميع الجدول

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

فى حفظ الله 

[ياسر خليل أبو البراء]

أخي الكريم أبو حنين

قم بتعديل المعادلة في الخلية H5 لتكون بهذا الشكل

=IF(AND(E5>$D$1-1,E5<$D$2+1),IF($G$1="",$C5,$C5&$F5),"")

وفي الكود قم بإضافة السطر التالي

    If IsEmpty(Range("D3")) Then WS.AutoFilterMode = False: Exit Sub

بعد السطر

    Application.ScreenUpdating = False

جرب وشوف النتائج

 

لاحظ أن غيرك عمل إعجاب في المشاركة رقم 2 رغم إنه مش صاحب الموضوع

  (يا أخي الكسل وحش أوي ,,,)

 

تقبل تحياتي

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

    الاخ الكريم ياسر ..... الاخ الفاضل ياسر     

لك منى كل التقدير وكل الاعجاب بما تقدمه من حلول

والله انى مااحببت الاكسيل الا بسسب ذلك المنتدى الرائع

رائع بك وبجميع الاساتذه الذين لا يبخلون عن المساعده للجميع

    جزاك الله كل الخير      

 

          

تم تعديل يونيو 8, 2015 بواسطه ۩◊۩ أبو حنين ۩◊۩

[محمد لطفى]

السلام عليكم

    الاخ الكريم ياسر ..... الاخ الفاضل ياسر     

لك منى كل التقدير وكل الاعجاب بما تقدمه من حلول

والله انى مااحببت الاكسيل الا بسسب ذلك المنتدى الرائع

رائع بك وبجميع الاساتذه الذين لا يبخلون عن المساعده للجميع

    جزاك الله كل الخير      

 

          

السلام عليكم

تم التعديل ولااعرف طريق الرفع الجديدة

[محمد لطفى]

السلام عليكم

    الاخ الكريم ياسر ..... الاخ الفاضل ياسر     

لك منى كل التقدير وكل الاعجاب بما تقدمه من حلول

والله انى مااحببت الاكسيل الا بسسب ذلك المنتدى الرائع

رائع بك وبجميع الاساتذه الذين لا يبخلون عن المساعده للجميع

    جزاك الله كل الخير      

 

          

السلام عليكم

تم التعديل ولااعرف طريق الرفع الجديدة