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

[أبو عبد الملك السوفي]

السلام عليكم

أحبابنا الكرام كيف حالكم

عندي مشكلة تحدث كلما ركبت كود البحث التالي في الملف ارجوا ان توضحوا لي سبب هاته المشكلة لما الملف لا يقبل هذا الكود ولا قبل اصلا Textbox

فعندما افتح Textbox في صفحة البحث واركب الكود في حدث الصفحة يعمل الكود بشكل ممتاز لكن لما اغلق البرنامج وافتحه مرة اخرى يرفض الفتح ويضيع كل كوداته الاخرى حتى لو فتح Textbox ولم اضع اي كود تحدث نفس المشكلة

Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("C65535").End(xlUp).Row
    If ActiveSheet.TextBox1.Text <> "" Then
        Selection.AutoFilter
        Range("$A$8:$J$" & LastRow).AutoFilter Field:=3, Criteria1:= _
            "=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr
    Else
        Range("$A$8:$J$" & LastRow).AutoFilter Field:=3
    End If

 

برنامج المكتبة.rar

[عادل حنفي]

اخي أبو عبد الملك السوفي

جرب الملف هكذا

تحياتي

 

برنامج المكتبة.rar

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير عادل حنفي على الإضافة المنتظرة .. جزاك الله خيرًا و زادها بميزان حسناتك..وافر تحياتي

 

 

 

                       

تم تعديل أكتوبر 8, 2015 بواسطه عبد العزيز البسكري

[عادل حنفي]

اخي عبد العزيز البسكري

اولا اشكرك علي مرورك 

اما بالنسبة للملاحظة فقد قمت بانزال للمرفق مرتان وفتحه دون اي مشكلة

 وللعلم عند تنزيلي للملف اول مرة من مشاركة اخي أبو عبد الملك السوفي

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

 وقمت بحفظ الملف مرة اخري وصار فتحه دون مشاكل

عموما ننتظر تجربة الاخوة للملف 

تحياتي

[أبو عبد الملك السوفي]

السلام عليكم

بوركت استاذ حنفي

لكن اريد ان اعرف ما المشكلة

جربت الملف اكثر من مرة وحفظته باكثر من صيغة لكنه بقي يتوقف ويعيد الفتح من جديد

عملت الكود على ملف آخر وحصل معي نفس المشكل

[عادل حنفي]

اخي

اولا هل لازالت المشكلة موجودة ام لا

ثانيا بالفعل ظهرت لي رسالة لا اتذكرها حاليا وتتبعت الخطا وذلك بعد ان اغلق الاكسل نفسه والفتح مرة اخري وقمت بالحفظ بعد ذلك وانتهت المشكلة

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

تحياتي

[عبد العزيز البسكري]

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

بارك الله فيك أستاذنا القدير عادل حنفي على العمل المميّز .. كنت قد كتبت ملاحظة حول الرسالة التي يدور محتواها حول الفلترة .. ثم قمت بالتعديل على مشاركتي و حذفت الملاحظة لأنّي بمجرّد أنْ غيّرت كلمة "Sheet1"  في الكود إلى كلمة " البحث " التي هي اسم الورقة زالت المشكلة و معها الرسالة ..جزاك الله خيرًا و زادها بميزان حسناتك أستاذي القدير عادل حنفي و زادك من علمه و فضله ..

                                                                                               خالص احتراماتي

تم تعديل أكتوبر 8, 2015 بواسطه عبد العزيز البسكري

[أبو عبد الملك السوفي]

السلام عليكم

الاخ الفاضل عبد العزيز

هل يمكن ان توضح قليلا كيف غيرت كلمة شيت الى البحث

[عبد العزيز البسكري]

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

آسف أخي الكريم محمد عبد السّلام حصلت لي لخبطة في الملفات .. و الوقت كان جد متأخر .. شاهدت ملف أستاذنا القدير عادل حنفي و إضافته للتاكست بوكس .. كفضول قصد التعلم .. قمت بتغيير التاكست بوكس إلى كومبوبوكس .. و غيّرت اسم الشيت كما ذكرت .. و حفظت الملف بامتداد XLSM .. فلم تظهر المشكلة ثانية .. ما قصدته هو هكذا أخي الفاضل :

 

 

برنامج المكتبة.rar

[أبو عبد الملك السوفي]

السلام عليكم

بورك في أخي عبد العزيز الامر واضح الآن

شكرا جزيلا