اصلاح كود بحث داخل فورم

[mohamedyousef]

السلام عليكم .. لابد من التحية عند بدء أى مشاركة ,,,السادة الافاضل 

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

محل.xlsm

[عبدالفتاح في بي اكسيل]

ولماذا لا تقول  ما  هي  مشكلتك ، هل  يوجد خطأ  ام  لا يظهر  شيء؟

ولماذا لا تشرح الية عمل برنامج  البحث  يتم عن اي  عمود , هل  علينا  ان  ندخل داخل  البرنامج ونراجع سطر  بسطر  حتى  نعلم كيف  يعلم  البرنامج؟

تذكر  دائما  نشر  التفاصيل  كاملة لموضوعك تجعل  فرصة  اجابة  الاعضاء  لك كبيرة جدا .

معظم  المواضيع ينشر  صاحبه  موضوع  دون  ان يتعب  نقسه  بوضع  تفاصيل  فقط يريد  اجابة بدون اي  تعب  لذا  ارى العديد  من  المواضيع مثل هذا الموضوع   دون  ان اقدم له  المساعدة ان استطعت .

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

isearch = Worksheets("sheet4").Range("a1").CurrentRegion.Rows.Count

عندما  تريد  ان تشير  الى اسم  الصفحة  اما  ان تستخدم   Worksheets("sheet4") او  sheet4  على حسب  التسمية  الموجودة  حيث  كل  طريقة  بها  اسم  مختلف  يمكن ان تلاحظه من داخل محرر الاكواد وانت  في  كودك  اشرت الى sheet4 باستثناء  السطر  الذي  به  الخطا ، حينها تغير  الى هذا 

isearch = sheet4.Range("a1").CurrentRegion.Rows.Count

 

 

[mohamedyousef]

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