إلغاء تصفية ماعدا

[samycalls2020]

الأخوة الأفاضل . . سلام الله عليكم

أريد كود يقوم بإلغاء أي تصفية موجوده بالجدول ماعدا التصفية

الموجودة من الصف السادس إلى الصف العاشر  من الجدول 

تنويه : قد يكون الجدول أكبر وأكثر في عدد الصفوف والأعمدة , ويكون عدد الصفوف المستثناة من إلغاء التصفية 50 صف أو أكثر

تحياتي 

إلغاء تصفية ماعدا.xlsb

[samycalls2020]

هذه محاولة متواضعة .. ولكن 

ماذا إذا كان الجدول أكبر وأكثر في عدد الصفوف والأعمدة , ويكون عدد الصفوف المستثناة من إلغاء التصفية 50 صف أو أكثر

إلغاء تصفية ماعدا.xlsb

[محمد يوسف ابو يوسف]

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

 

تفضل

Sub run()
    Application.ScreenUpdating = False
    ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=1 '''عمود رقم 1 في الجدول
    ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=2 '''عمود رقم 2 في الجدول
    ActiveSheet.ListObjects("الجدول1").Range.AutoFilter Field:=3 '''عمود رقم 3 في الجدول
  Application.ScreenUpdating = True
''' ملحوظة اذا ارت اكثر من ثلاث عمود  فيك تنسخ وتعدل رقم اللعمود المراد كما تشاء 
End Sub

 

[samycalls2020]

الأخ الكريم محمد يوسف

الموضوع ليس أعمده ولكن الموضوع خاص ببعض الصفوف التي أريد استثنائها  من إلغاء التصفية

شكرا لمشاركتك المقدرة

[samycalls2020]

للرفع