تصفية جدول بناء على شرط؟؟؟

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

اخواني في المرفق جدول بيانات أريد تصفيته بناء على قائمة منسدلة وتكون التصفية في نفس الجدول لا في شيت آخر

كما أريد عند التصفية لا تظهر الاسهم الصغيرة التي تظهر في التصفية في تصفية البرنامج 

ملاحظة: الجدول الرسمى يكون مرتبط على جدول آخر 

ارتباط.rar

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub Filter_me()

Range("xfd1") = "الصف"
Range("xfd2") = Range("i1")
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("a2:k500").AdvancedFilter xlFilterInPlace, Range("xfd1:xfd2")
Range("xfd1:xfd2") = vbNullString


End Sub

 

[عبدالعزيز محمد]

الكود يعمل بشكل ممتاز

ولكن ينقص إلغاء التصفية وإرجاع كل البيانات بالجدول بعد التصفية ؟؟؟؟؟؟؟؟؟؟؟؟

[صـدّيـق]

20 دقائق مضت, عبدالعزيز محمد-عاشق البرمجة said:

الكود يعمل بشكل ممتاز

ولكن ينقص إلغاء التصفية وإرجاع كل البيانات بالجدول بعد التصفية ؟؟؟؟؟؟؟؟؟؟؟؟

عندما تكون الخلية i1 فارغة سيجلب لك جميع البيانات بعد الضغط على الزر 

[صـدّيـق]

عندي سؤال استاذ سليم

لو اردنا التصفية بمعياريين كــ (الصف و الجنس) مثلا  ،  "لاخذ الفكرة  فقط"

كيف يكون شكل الكود ؟

وشكرا على مجهوداتك 

[صـدّيـق]

لقد توصلت الى هذا الحل حسب ملفي 

شكرا جزيلا استاذ سليم استفدت من فكرة الكود 

و شكرا للاخ عبد العزيز صاحب الموضوع 

Sub Filter_me()

Range("xfc1") = "القسم"
Range("xfc2") = Range("f5")
Range("xfd1") = "الفوج التربوي"
Range("xfd2") = Range("g5")
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
Range("a10:q100").AdvancedFilter xlFilterInPlace, Range("xfc1:xfd2")
Range("xfc1:xfd2") = vbNullString


End Sub

 

[عبدالعزيز محمد]

السلام عليكم ورحمة الله

هل من الممكن تطبيق التصفية بمعياريين كــ (الصف و الجنس) مثلا على ملفي السابق؟

 

تم تعديل أكتوبر 20, 2017 بواسطه عبدالعزيز محمد-عاشق البرمجة

[صـدّيـق]

29 دقائق مضت, عبدالعزيز محمد-عاشق البرمجة said:

السلام عليكم ورحمة الله

هل من الممكن تطبيق التصفية بمعياريين كــ (الصف و الجنس) مثلا على ملفي السابق؟

 

نعم يمكن ذلك 

اليك الملف

ارتباط_.rar