gamalin قام بنشر فبراير 9, 2010 مشاركة قام بنشر فبراير 9, 2010 الاخوة الافاضل اكرمكم الله لدي ملف استخدم فيه 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 ارجو الاهتمام وسرعة الرد اشكركم رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 9, 2010 مشاركة قام بنشر فبراير 9, 2010 لو ملف مرفق يكون أفضل أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر فبراير 9, 2010 الكاتب مشاركة قام بنشر فبراير 9, 2010 لو ملف مرفق يكون أفضل أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر فبراير 9, 2010 الكاتب مشاركة قام بنشر فبراير 9, 2010 لو ملف مرفق يكون أفضل أخوك أبو البراء رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر فبراير 9, 2010 الكاتب مشاركة قام بنشر فبراير 9, 2010 لو ملف مرفق يكون أفضل أخوك أبو البراء m.rar رابط هذا التعليق شارك More sharing options...
أبوعبد الله قام بنشر فبراير 9, 2010 مشاركة قام بنشر فبراير 9, 2010 أخي العزيز الماكرو الذي ذكرته يعمل عندي بدون مشاكل ومع ذلك استبدله بالآتي : Sub mg2() On Error Resume Next ActiveSheet.ShowAllData End Sub وجرب وأخبرني بالنتيجة تحياتي رابط هذا التعليق شارك More sharing options...
gamalin قام بنشر فبراير 9, 2010 الكاتب مشاركة قام بنشر فبراير 9, 2010 أخي العزيز الماكرو الذي ذكرته يعمل عندي بدون مشاكل ومع ذلك استبدله بالآتي : Sub mg2() On Error Resume Next ActiveSheet.ShowAllData End Sub وجرب وأخبرني بالنتيجة تحياتي اخي الكريم بارك الله فيك وجزاك كل الخير ونفعك بما تعلم وزادك علما ونفعك ونفع بك كود هايل وحل المشكلة تمام التمام ياريس وبدون اي كلكعه حل بسيط وسهل ومفسر نفسه اشكرك وتحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.