محرك بحث داخل الخلية

[أبو شرف]

السلام عليكم اخواني اعضاء المنتدى الكرام 

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

يعني مثل قائمة منسدلة ولكن تحتوي على محرك بحث 

اخواني الأعزاء وجدت ملف كنت استعملة لامور متنوعة وهو من ابداعات هذا المنتدى العظيم 

وانا قد شرحت به لبعض التعديلات وانا متاكد انه سوف بعود بفائدة عظيمة لاعضاء المنتدى نتمنى المشاركة والتعديلات البسيطة من الأعضاء الكرام 

وتبقبلوا تقديري

وتقبلوا فائق التقدير 

 

 

محرك بحث.xlsm

[الـعيدروس]

السلام عليكم

هل هكذا ماتريد

غير نطاق البحث عبر كود حدث الاوراق

محرك 1بحث.rar

[أبو شرف]

السلام عليكم 

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

كذلك يتم ادراج الحساب من محرك البحث بالنقر على الحساب المطلوب 

مع التقدير 

[الـعيدروس]

جرب المرفق

محرك 2بحث.rar

[أبو شرف]

عاششششششششششششت ايدك استاذ 

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

run - time error 

[الـعيدروس]

في  حدثي كود 

Private Sub CM_ListFind_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

وهذا

Private Sub Button1_Click()

استبدل رقم العمود بـ 0 بدلا عن 1

.List(.ListIndex, 0)'

 

محرك 3بحث.rar

تم تعديل سبتمبر 27, 2019 بواسطه الـعيدروس

[أبو شرف]

ششششششششششششششششششكرا جزيلا استاذي الغالية وتحيتي لجميع اعضاء المنتدى الكرام 

 

[أبو شرف]

السلام عليكم 

عفوا استاذ الآن جرب الاكواد وهي ممتازة تعمل بصورة جيدة 

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

اتمنى استاذ ان تحل لي هذه المشكلة بحيث اذا كتبنا شيء غير موجود يكون يكون خالي من اي اسم 

وانا تعبتك معي ... بارك الله بك وحقيق كود ممتاز وعمل اكثر من روعة 

اخوكم 

ابو شرف

[أبو شرف]

ممكن المساعدة العاجلة 

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

[الـعيدروس]

السلام عليكم

ضيف هذا السطر اول كود Private Sub Find_T

On Error Resume Next

ليصبح كالتالي

Private Sub Find_T()
Dim Ar()
Dim cel As Range
Dim i As Long
Me.CM_ListFind.Clear
On Error Resume Next ' <<<
i = 1
For Each cel In MRng
    If InStr(1, cel, CStr(Me.CM_TextFind), vbTextCompare) Then
        ReDim Preserve Ar(i)
        Ar(i) = cel.Value
        i = i + 1
    End If
Next
If i Then Me.CM_ListFind.List = Ar
Erase Ar
End Sub

وهذا هو الملف

 

محرك 3بحث.xlsm

[أبو شرف]

اشششششكرك يا غالي