كود خاص advanced filter

[gamalin]

الاخوة الافاضل اكرمكم الله

لدي ملف استخدم فيه advanced filter

واقوم بتنفيذه لمرات عديدة باستخدام الماكرو

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

Sub mg()

'

' mg Macro

'

'

Range("A4:S1039").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("ãÝÑÏÇÊ!Criteria"), Unique:=True

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 1

End Sub

ولالغاء الفلترة قبل تنفيذها من جديد استخدم الكود التالي

Sub mg2()

'

' mg2 Macro

'

'

ActiveSheet.ShowAllData

End Sub

وتم ربط الكودين معا ليعملوا تلقائيا عند التغيير في بيانات الصفحة

بحيث يتم تنفيذ اظهار كل البيانات اولا ثم عمل الفلتر

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

Sub mmm()

'

' mmm Macro

'

'

Application.Run "ãÍãÏ.xls!mg2"

Application.Run "ãÍãÏ.xls!mg"

End Sub

المشكلة انه في حال ظهور كل البيانات وتغيير اي بيان في الصفحة اي عند تنفيذ الماكرو mg2

والبيانات كاملة يتوقف ويعطي رسالة خطأ

فهل يمكن عمل شرط

على الكود السابق

انه في حال ظهور كل البيانات

لا يتم تنفيذ الماكرو mg2

ويتم تنفيذ mg فقط

وفي حال انه يوجد فلتر منفذ بالفعل

يتم تنفيذ mg2 ثم mg

ارجو الاهتمام وسرعة الرد

اشكركم

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

لو ملف مرفق يكون أفضل

أخوك أبو البراء

[gamalin]

لو ملف مرفق يكون أفضل

أخوك أبو البراء

[gamalin]

لو ملف مرفق يكون أفضل

أخوك أبو البراء

[gamalin]

لو ملف مرفق يكون أفضل

أخوك أبو البراء

m.rar

[أبوعبد الله]

أخي العزيز

الماكرو الذي ذكرته يعمل عندي بدون مشاكل ومع ذلك استبدله بالآتي :

Sub mg2()

On Error Resume Next

ActiveSheet.ShowAllData

End Sub

وجرب وأخبرني بالنتيجة

تحياتي

[gamalin]

أخي العزيز

الماكرو الذي ذكرته يعمل عندي بدون مشاكل ومع ذلك استبدله بالآتي :

Sub mg2()

On Error Resume Next

ActiveSheet.ShowAllData

End Sub

وجرب وأخبرني بالنتيجة

تحياتي

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

كود هايل وحل المشكلة تمام التمام ياريس وبدون اي كلكعه حل بسيط وسهل ومفسر نفسه اشكرك وتحياتي