ارجو المساعده فى الليست بوكس

[إبراهيم ابوليله]

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

الاخوه الافاضل

كل عام وانتم بخير

.................................

اريد عند البحث فى التيكست بوكس

يتم اظهار بيانات الارقام الاكبر من اوتساوى الرقم الموجود فى التيكست بوكس

تقبلوا تحياتى

Book1.rar

[الصـقر]

الاخ الحبيب استاذ / ابراهيم

تفضل المرفق هل هو ما تريد

تقبل تحياتى

فلترة اليست بوكس.zip

[إبراهيم ابوليله]

اخى واستاذى الصقر

بالفعل الكود المرفق من حضرتك يعمل بنجاح

كود كميل وفكره جميله بارك الله فيك

ولكن بصراحه

انا وقفت امام استخدام الكود الموجود فى المشاركه الاولى

ومعرفتش اوظف الكود ليقوم بهذه الوظيفه

وانا كنت عايز اعرف ازاى يمكن البحث فى الليست بوكس مباشره

كما فى الكود الذى قمت بارفاقه

على العموم محاوله ناحجه احييك عليها

وفى انتظار محاولات اخرى

تقبل تحياتى

[إبراهيم ابوليله]

للرفع

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

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

أستاذنا القدير ابراهيم أبو ليله .. في محاولة لأستاذنا الفاضل " الصّقر " ..جزاه الله خيرًا و زادها بميزان حسناته.. جرّبت مثلاً  كتابة  العدد 1800 .. ولم يظهر هذا العدد على الليست بوكس مع أنّك ذكرتَ عبارة  ( تساوي أو أكبر من .. ) .. ولمْ تُشرْ أنتَ لذلك  في ردّك على محاولته .. هل ما تم انجازه هو المطلوب أم ماذا بالضبط لو سمحت سيّدي الكريم ..

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

 

 

 

 

[الصـقر]

اخى الحبيب عبدالعزيز

الاخ ابراهيم لا يريد الكود بتاعى انما هو يبحث عن الكود المرفق لماذا لا ياتى بالنتائج ( انا اعتقد ان الكود منقول ولكن ينقصه شئ بمعنى انه تم نقله بالخطا منقوص منه اسطر )

لكن الكود بتاعى انا انت لفت انتباهى لوجود خطأ فى النتائج لو لاحظت فى الصوره عاليه ستجد وجود 1700 علما انها اقل من 1800 فأنا عرفت اين الخطأ بالكود وتم تصليحه ممكن ارفع الملف بعد التعديل  ولكن سيكون بدون فائده لان الاخ ابراهيم يريد شرح للكود الموجود بالملف عند رفعه 

تقبل تحياتى

تم تعديل سبتمبر 29, 2015 بواسطه الصـقـر

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

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

ألف شكر أستاذي القدير " الصّقر " على الشّرح و التّوضيح ..بارك الله فيك .. جزاك الله خيرا و زادها بميزان حسناتك .. الكود المرفق في ملف أستاذنا  ابراهيم أبو ليله لا يشرحه إلاّ طويل العمر .. وهو من أعمال العلامة القدير عبد الله باقشير .. أنا شخصيا وجدته بأعماله .. أين بالضبط .. لا أتذكّر

                                                                                                        وافر احتراماتي

[إبراهيم ابوليله]

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

ألف شكر أستاذي القدير " الصّقر " على الشّرح و التّوضيح ..بارك الله فيك .. جزاك الله خيرا و زادها بميزان حسناتك .. الكود المرفق في ملف أستاذنا  ابراهيم أبو ليله لا يشرحه إلاّ طويل العمر .. وهو من أعمال العلامة القدير عبد الله باقشير .. أنا شخصيا وجدته بأعماله .. أين بالضبط .. لا أتذكّر

                                                                                                        وافر احتراماتي

بالفعل

اخى عبدالعزيز

بالفعل الكود للعلامه القدير عبد الله باقشير

اطال الله عمره

تقبلو تحياتى

 

[إبراهيم ابوليله]

اخى الحبيب عبدالعزيز

الاخ ابراهيم لا يريد الكود بتاعى انما هو يبحث عن الكود المرفق لماذا لا ياتى بالنتائج ( انا اعتقد ان الكود منقول ولكن ينقصه شئ بمعنى انه تم نقله بالخطا منقوص منه اسطر )

لكن الكود بتاعى انا انت لفت انتباهى لوجود خطأ فى النتائج لو لاحظت فى الصوره عاليه ستجد وجود 1700 علما انها اقل من 1800 فأنا عرفت اين الخطأ بالكود وتم تصليحه ممكن ارفع الملف بعد التعديل  ولكن سيكون بدون فائده لان الاخ ابراهيم يريد شرح للكود الموجود بالملف عند رفعه 

تقبل تحياتى

اخى الصقر

بالفعل انا مازلت فى انتظار

ردود اى من الاخوه الافاضل

والاساتذه الكبار

فى كيفية الاستفاده من الكود المرفق فى المشاركه

الاولى فى عمل المطلوب

ولكن فى حالة عدم وجود رد وعدم القدره على الاستفاده من هذا الكود

سوف ابحث عن طرق بديله للحصول على المطلوب

وبالتاكيد الكود الخاص بحضرتك سوف يكون ضمن البدائل

لذلك يرجى التفضل بالتعديل

وذلك من اجل ان تعم الفائده على الجميع

تقبل تحياتى

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

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

أستاذي الفاضل ابراهيم أبو ليله .. أرجو أن تضيف لو سمحت هذا الملف ضمن البدائل الخاصّة .. ربّما به تقريب للفكرة ..

                                                                                                فائق احتراماتي

 

ابراهيم أبو ليله.rar

[إبراهيم ابوليله]

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

أستاذي الفاضل ابراهيم أبو ليله .. أرجو أن تضيف لو سمحت هذا الملف ضمن البدائل الخاصّة .. ربّما به تقريب للفكرة ..

                                                                                                فائق احتراماتي

 

ابراهيم أبو ليله.rar

اخى عبد العزيز

بدائل ايه بس الى بتتكلم عليها

ده شكله كده هيكون ليه الاولوليه

...................................................

بصراحه الكود اكثر من رائع

ولكن كحتاج وقفه كبيره معاه

علشان افهمه كويس

...........................................

من الاخر

الكود ده ممكن يغير مجرى التعامل

مع البحث فى الليست بوكس

...............................................

على العموم

مشكورا على الهديه الرائعه

بارك الله فيك

تقبل تحياتى

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

أستاذي الفاضل ابراهيم أبو ليله

لا شكر على واجب .. فأفضالك عل المنتدى بصفة عامّة وعلينا بصفة خاصّة .. لا تنتهي .. ولا تُحصى و لا تُعد

                                        جزاك الله خيرًا و زادك من علمه و فضله

                                                                                                        احتراماتي

[محمد حسن المحمد]

السلام عليكم أخوتي الكرام

بصراحة أستاذ إبراهيم أبو ليلة كود أستاذنا عبد العزيز البسكري أكثر من رائع ويستحق الإعجاب... مع فائق الشكر والتقدير لكم.

المهم الحمد لله أن وصلت إلى نهاية سعيدة لليست بوكس ...

تقبلوا تحياتي.

[إبراهيم ابوليله]

السلام عليكم

الاخوه الافاضل

بصراحه

التنوع الجميل ده

اكبر دليل على ان عالم VBA

اكبر مما نتخيل

وزى ما بيقولو فى الامثال الى يعيش ياما يشوف

فى انتظار المزيد من الحلول

تقبلوا تحياتى

[الصـقر]

الاخ الكريم

عبدالعزيز ما اروع ما قدمت جزاكم الله خيرا

مرفق ملفى الذى تقدمت به من قبل ولكن بعد التعديل وتدراك الخطأ

تقبلوا تحياتى

 

Book1 - Copy.zip

[محمد حسن المحمد]

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

أخي الصقر ما شاء الله بارك الله تم الوصول للنتيجة المطلوبة

ولكن أتساءل هل يمكن أن يتم البحث بعد انتهاء الكتابة في الليست بوكس تماماً...أم أنه يبحث عن كل رقم أثناء الكتابة

تقبل تحياتي..

[الصـقر]

استاذى الحبيب 

حضرتك تقصد الكتابه فى التكست بوكس فأذا كنت تقصد ذالك

نعم فقط قم بنسخ الكود وضعه فى حدث Exit  للتكست بوكس

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'انسخ الكود هنا
End Sub

أو حدث AfterUpdate للتكست بوكس

Private Sub TextBox1_AfterUpdate()

'انسخ الكود هنا

End Sub

كلاهما يؤدى نفس الغرض  وجرب بنفسك وستجد ما يسرك

تقبل تحياتى

تم تعديل سبتمبر 30, 2015 بواسطه الصـقـر