3mr 3bdeen قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 السلام عليكم ورحمة الله وبركاته .. ارجوا تساعدووني في ايجاد كود يعمل مع فتح الـ Workbook يقوم بالغاء كافة الفلترة التي بداخل الـ Workbook . فقط هذا هو المطلوب .. جزاكم الله خيرا .. رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 السلام عليكم تفضل أخي الكود التالي في حدث الملف Private Sub Workbook_Open() For i = 1 To Sheets.Count Sheets(i).AutoFilterMode = False Next i End Sub رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 السلام عليكم ورحمة الله وبركاته حماك الله من كل شر ومكروه أستاذي طارق (هذا الدعاء يتناسب تناسباً عكسيا أيً) أجزل الله لك العطاء من الخير كله. أتمنى أن لايكون خانني التعبير. أبوأنس رابط هذا التعليق شارك More sharing options...
3mr 3bdeen قام بنشر مارس 3, 2012 الكاتب مشاركة قام بنشر مارس 3, 2012 جزاك الله كل الخير واجزل لك البركة في عمرك وعملك حبيبي واخي طارق .. رابط هذا التعليق شارك More sharing options...
3mr 3bdeen قام بنشر مارس 3, 2012 الكاتب مشاركة قام بنشر مارس 3, 2012 (معدل) للاسف اخي الكود لم يعمل على الاطلاق .. ! مع اني جعلتة في حدث الملف WORKBOOK للعلم كافة الفلاتر بداخل الجداول .. لعل هذا هو العلة في عدم فاعلية الكود .. !؟ تم تعديل مارس 3, 2012 بواسطه 3mr 3bdeen رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مارس 3, 2012 مشاركة قام بنشر مارس 3, 2012 اخي عمر انا جربت الكود ويعمل زي الفل (تاكد من امان الماكرو) رابط هذا التعليق شارك More sharing options...
3mr 3bdeen قام بنشر مارس 4, 2012 الكاتب مشاركة قام بنشر مارس 4, 2012 انا متاسف لكن هذا هو الذي يحدث بالفعل ... هههههههه :) ولكن عند عمل ملف يعتمد على فلتر خارجي "اقصد ليس بداخل جدول" .. يتم بالفعل عمل الكود ..! ولكن عندما يتم عمل فلترة بداخل جدول .. للاسف لا يعمل الكود .. !؟ . . اليكم الصور والملف .. ! . . TEST.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 4, 2012 مشاركة قام بنشر مارس 4, 2012 السلام عليكم لم تذكر ياأخي أن الملف به جداول جرب الكود التالي 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 رابط هذا التعليق شارك More sharing options...
3mr 3bdeen قام بنشر مارس 4, 2012 الكاتب مشاركة قام بنشر مارس 4, 2012 كلة تمام .. كلة يعمل كما يرام .. جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان