استفسار بخصوص طريقة اظهار النتائج في ListBox

[ماجد القثمي]

السلام عليكم

لدي ملف يقوم بعمليه بحث وتعديل عن طريق ListBox قام به احد الاساتذه الافاضل في هذا المنتدى

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

تظهر النتائج كالتالي

اول سطر في البوكس هي ثاني نتيجه بحث (اي ثاني اسم متكرر موجود فالشيت)

وثاني سطر تعطي ثالث نتيجه  (اي ثالث اسم متكرر قي الشيت)

وهكذا حتى اخر الليستبوكس

واخر سطر فالبوكس يقوم باظهار اول نتيجه (اول اسم متكرر في الشيت)

لماذا لا يتم عرض النتائج في الليست بوكس بالترتيب كما هي موجوده في الشيت من الاول الى الاخير

لماذا يتم عرضها من النتيجه 2 الى الاخير ومن ثم وضع النتيجه الاولى اخر الليست

الملف مرفق وبه الاستفسار واضح في حاله البحث عن اسم (محمد طاهر) ك مثال

وشكرا 

بحث في قائمه باكثر من متغير.rar

[ياسر خليل أبو البراء]

أخي الكريم أعتقد أن الموضوع مكرر .. يرجى عدم طرح الموضوع أكثر من مرة !!

الموضوع الآخر أعتقد بنفس عنوان الملف المرفق "بحث في قائمة بأكثر من متغير"

كلف نفسك وتصفح أول أربعة صفحات في المنتدى لتجد بغيتك

[ماجد القثمي]

نعم

تم رفع الموضوع الاول بالغلط وكانت الصفحه معلقه

رفع الموضوع بعنوان خطأ لا يتناسب مع الاستفسار

حاولت حذف الموضوع ولكن لم استط فغيرت عنوانه الى الرجاء حذف الموضوع بسبب التكرار

ولكن تم حذف جميع المواضيع

مما اضطرني الى كتابة موضوع جديد

[ياسر خليل أبو البراء]

نعتذر إليك أخي الكريم ماجد عن الخطأ الغير مقصود .. ولكن أتذكر أنني قمت بتغيير وتعديل عنوان موضوع واحد والإبقاء عليه وحذفت المكرر فقط

إن شاء الله خير .. ننتظر الأخوة الأعضاء لتقديم المساعدة

تقبل تحياتي

[الصـقر]

اخى الفاضل

قم بتحديد التكست بوكس واحد ( الخاص بالبحث من خلال الاسم ) واضغط دبل كليك ستيدخلك محرر الاكود الخاص بحدث التغيير

هتلاقى السطر ده

Set Q = .Range("A2:A" & LastRow).Find(M)

كل ما عليك فعله تغيير A2  بــ A1  كالتالى

Set Q = .Range("A1:A" & LastRow).Find(M)

تقبل تحياتى