ارجو المساعدة بتعديل الكود بحث في الاكسل

[alaّa mohammad]

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

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

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

و عند البحث عن هاتف العميل عند البحث من رقم هات 1 او 2 او 3 يظهر كافة المعلومات في الليست بوكس يقوم باحضارها من جميع اوراق العمل 

وكذلك كنية العميل و رقم العميل  

ارجو المساعدة من الاخوة الخبراء واكون لكم من الشاكرين 

عند رفع الملف يعطيني الحج كبير  كيف يمكنني رفع المرفق للمساعدة 

[magodey]

 

ملف بحث بفورم ممتاز.xls

[magodey]

الملف السايق من إعداد العلامة خبور

[alaّa mohammad]

منذ ساعه, magodey said:

 

ملف بحث بفورم ممتاز.xls 85.5 kB · 1 download

شكرا لك اخي الكريم على المساعدة 

[alaّa mohammad]

لدي 5 ارواق عمل كالتالي ترتيبها 

عمود a اسم العميل الاول و عامود b اسم العميل الثاني و عامود c   كنية العميل و عامود d رقم هاتف العميل 1  وعامود eرقم هاتف العميل 2 و عامود f هاتف العميل 3 و عامود  g اسم الفرع الموجود فيه العميل و عامود h رمز الفرع الموجود فيه العميل مع العلم كل  صفحة منفصله عن الاخرى بعملائها و كل صفحة تحتوي على بيانات سأعطي مثال عليها و عامود ال i  الانطباع العام عن العميل و عامود ال ملاحظات 

مثال 

البيانات تبدء من الصف الثالث 

اسم العميل 1 -  اسم ثاني للعميل - كنية العميل  رقم هاتف العميل1 - رقم هاتف ثاني للعميل 2- رقم هاتف ثالث للعميل - اسم الفرع - رمز الفرع - رقم العميل -  الانطباع العام عن العميل - ملاحظات  

الاعمدة السابقة a-b-c-d-e-f-g-h-i-k موجوده في 5 ورقات عمل  

محمد       -      علاء - ابو محمد -  0790000- 0790000-0790000 - الفيوم - c- رقم العميل رقم - متوسط الشراء - لا يوجد

اريد عمل بحث بالاسم  عند وضع جزء من  الاسم يبحث في جميع الورقات  في الاعمدة a , b و احضار كافة المعلومات المعبئه في الاعمدة السابقة و اظهارها باليست بوكس 

و عمل تيكست بوكس للبحث بالكنية  يحضر كافة معلومات  العميل و اظهارها باليست بوكس 

و عمل بحث برقم العميل يظهر كل المعلومات الموجوده بالشيتات 

ريد عمل بحث برقم الهاتف عند وضع جزء من  رقم الهتاف  يبحث في جميع الورقات  في الاعمدة d , e,f و احضار كافة المعلومات المعبئه في الاعمدة السابقة و اظهارها باليست بوكس 

عملت حلقة تكراكرية لكن لم تفلح معي 

رقم التكست بوك للبحث بالاسم 3

رقم التكست بوكس للبحث بالكنية 8

رقم التكست بوكس للبحث برقم الهاتف 4

رقم التكست بوكس للبحث برقم العميل 9

Dim ws As Worksheet
 If TextBox3.Value = "" Then ListBox1.Clear: Exit Sub
   ListBox1.Clear
    k = 0
    For Each ws In ThisWorkbook.Worksheets
        ss = ws.Cells(Rows.Count, 2).End(xlUp).Row
        For Each c In ws.Range("A3:b" & ss)
            b = InStr(c, TextBox3)
            If b > 0 Then
                ListBox1.AddItem
                ListBox1.List(k, 0) = ws.Cells(c.Row, 1).Value
                               k = k + 1
            End If
        Next c
    Next ws
end sub

من فضلك انتبه ممنوع تكرار نفس المشاركة ... تـــم حذف المشاركة الأخرى

 

 

[magodey]

رائعة أخرى من روائع العلامة خبور. تفضل الملف لعل فيه طلبك

فورم ادخال و تعديل مرن.xlsm