(تمت الاجابة) هل من كود لالغاء اي فلترة بداخل WorkBook

[3mr 3bdeen]

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

ارجوا تساعدووني في ايجاد كود يعمل مع فتح الـ Workbook يقوم بالغاء كافة الفلترة التي بداخل الـ Workbook .

فقط هذا هو المطلوب .. جزاكم الله خيرا ..

[طارق محمود]

السلام عليكم

تفضل أخي الكود التالي في حدث الملف

Private Sub Workbook_Open()

For i = 1 To Sheets.Count

    Sheets(i).AutoFilterMode = False

Next i

End Sub

[أبو أنس حاجب]

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

حماك الله من كل شر ومكروه أستاذي طارق (هذا الدعاء يتناسب تناسباً عكسيا أيً) أجزل الله لك العطاء من الخير كله.

أتمنى أن لايكون خانني التعبير.

أبوأنس

[3mr 3bdeen]

جزاك الله كل الخير واجزل لك البركة في عمرك وعملك حبيبي واخي طارق ..

[3mr 3bdeen]

للاسف اخي الكود لم يعمل على الاطلاق .. ! مع اني جعلتة في حدث الملف WORKBOOK

للعلم كافة الفلاتر بداخل الجداول

.. لعل هذا هو العلة في عدم فاعلية الكود .. !؟

تم تعديل مارس 3, 2012 بواسطه 3mr 3bdeen

[عبدالله المجرب]

اخي عمر انا جربت الكود ويعمل زي الفل (تاكد من امان الماكرو)

[3mr 3bdeen]

انا متاسف لكن هذا هو الذي يحدث بالفعل ... هههههههه :)

ولكن عند عمل ملف يعتمد على فلتر خارجي "اقصد ليس بداخل جدول" .. يتم بالفعل عمل الكود ..!

ولكن عندما يتم عمل فلترة بداخل جدول .. للاسف لا يعمل الكود .. !؟

.

.

اليكم الصور والملف .. !

.

.

TEST.rar

[طارق محمود]

السلام عليكم

لم تذكر ياأخي أن الملف به جداول

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

Private Sub Workbook_Open()

For i = 1 To Sheets.Count

    Sheets(i).AutoFilterMode = False

    For Each Gadwal In Sheets(i).ListObjects

         Range(Gadwal.Range.Address).AutoFilter

    Next Gadwal

Next i

End Sub

[3mr 3bdeen]

كلة تمام .. كلة يعمل كما يرام .. جزاك الله خيرا