كود عدم تصفية

[صلاح الصغير]

السلام عليكم ....

اريد كود لعمل عدم تصفية على عمود معين فى كل الاوراق

و ليكن فى اول ورقة او حدث الورقة عند فتحه.....و شكرا

unfilter all sheets.rar

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

وعليكم السلام أخي العزيز صلاح

جرب الكود التالي

Sub Test()
    Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        Sh.AutoFilterMode = False
        Sh.Range("A1").CurrentRegion.AutoFilter
    Next Sh
End Sub

تقبل تحياتي

 

[عبدالسلام ابوالعوافي]

    Dim ws As Worksheet
    On Error Resume Next
    For Each ws In Worksheets
        ws.ShowAllData
    Next
    On Error GoTo 0

 

[صلاح الصغير]

شكرا للاساتذة الافاضل 

سرعة الاستجابة هى العادة دائما

تم الحل ايضا من خلال هذا الكود ممكن اعرف الفرق و الافضل

Sub unfilter()
Dim Sh As Worksheet
For Each Sh In Sheets
Sh.AutoFilterMode = False
Sh.Range("a1:c5000").AutoFilter
Next Sh
End Sub

 

شكرا عرفت الفرق بعد تجربة الثلاثة اكواد

و هو فى الكود الثانى عدم الارتباط باعمدة معينة

 

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

أخي الكريم صلاح

استخدام كلمة Sheets فقط في هذا السطر استخدام سيء إلى حدٍ ما

For Each Sh In Sheets

الأفضل استخدام كلمة Worksheets إذ أن كلمة Sheets تتعامل مع كل أنواع أوراق العمل بما فيها Charts .. وهذا قد يسبب مشاكل في حالة وجود ورقة عمل Chart في ملفك

أما استخدام نطاق محدد كما وضعت A1:C5000 فسيء أيضاً حيث قد تزيد البيانات أو تنقص أما استخدام CurrentRegion فإنه يكيف النطاق الحالي للعمل عليه أياً كان مدى هذا النطاق

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

عموماً كل السبل تؤدي المطلوب إن شاء الله

تقبل تحياتي

[صلاح الصغير]

شكرا استاذ ياسر

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

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

الان, صلاح الصغير said:

شكرا استاذ ياسر

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

لم أقهم المقصود من كلامك ..ممكن توضح أكثر ..

أعتقد الكود يعمل مع أي فلترة موجودة في ورقة العمل وليس في نطاق محدد

[صلاح الصغير]

جرب حضرتك ادراج صفوف قبل الصفوف الهيد سوع يعطيك رسالة خطا

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

37 دقائق مضت, صلاح الصغير said:

جرب حضرتك ادراج صفوف قبل الصفوف الهيد سوع يعطيك رسالة خطا

لم يعطني خطأ وفي هذه الحالة كود أخونا عبد السلام يكون أفضل طالما أن الفلترة لن تكون في صفوف موحدة