اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

ارتباط.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

 

  • Like 1
رابط هذا التعليق
شارك

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

 

رابط هذا التعليق
شارك

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

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

 

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

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

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

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

 

نعم يمكن ذلك 

اليك الملف

ارتباط_.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information