برجاء المساعدة فى كود البحث فى list box

[الصفتى]

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

الساده الافاضل خبراء vbaبرجاء التكرم و مساعدتى فى تصحيح الكود فى التكست بوكس و الذى يقوم بالبحث فى ليست بوكس و التحديات التى تقابلنى فيه هى:

1-عند فتح الفورم فى شيت 1 و عمل البحث يقوم الفورم بفتح شيت البيانات(ليدجر ايضا) و لا ارغب فى ذلك افضل ان لايفتح الشيت و اكتفى بالبيانات فى الليست بوكس

2-ارغب فى ظهور 6 اعمدة فقط فى الليست بوكس و هم غير مرتبين فى شيت الليدجر

3- اظهار رءوس الاعمده فى الليست بوكس ... مرفق ملف موضح به ... و لكم جزيل الشكر 

تجربة.xlsb

[أ / محمد صالح]

رءوس الأعمدة لا يتم إضافتها إلى عناصر القائمة

وإنما تكون عبارة عن تسميات labels أعلى القائمة

تفضل هذا ملفك بعد التعديل

 

إظهار نتائج البحث في listbox.xlsb

[الصفتى]

شكرا جزيلا استاذ محمد صالح جزاك الله كل خير

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

[أ / محمد صالح]

أضف في أول سطر في الإجراء السطر التالي لمسح محتويات القائمة

ListBox1.Clear

 

[الصفتى]

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

مرفق  نموزج العملتجربة.xlsb

[أ / محمد صالح]

نظرا لاستعمالك Option Explicit في بداية الكود

يجب الإعلان عن المتغيرات

ضع هذا السطر كأول سطر في إجراء البحث

Dim ws As Worksheet, i As Long, i2 As Long

بالتوفيق 

[أ / محمد صالح]

جميعا بإذن الله تعالى 😍🤩

[الصفتى]

 

هل بتجربة.xlsbالامكان اضافة كود لعد عدد العملاء فى الليست بوكس و اظهاره فى text box2

شاكرا لكم سعة صدركم

[أ / محمد صالح]

يفضل البدء بموضوع جديد بعنوان جديد مادام المطلوب مختلف

هذا الموضوع يحتوي على ثلاثة مطلوبات أو أربعة

على كل حال

ضع قبل نهاية الإجراء مباشرة 

Me.TextBox2 = i2

بالتوفيق 

[الصفتى]

عاجز عن الشكر لحضرتك

[أ / محمد صالح]

الشكر لله

خالص دعواتي بالتوفيق