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 من فضلك انتبه ممنوع تكرار نفس المشاركة ... تـــم حذف المشاركة الأخرى

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

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

شكرا الك استاذ محمد

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