أكاديمية الصقر للتدريب

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


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





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

دي 5 ارواق عمل كالتالي ترتيبها عمود a اسم العميل الاول و عامود b اسم العميل الثاني و عامود c كنية العميل و عامود d رق ..



20-12-2021 12:33 مساء
alaa mohammad
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-12-2021
رقم العضوية : 23401
المشاركات : 1
الجنس : ذكر
تاريخ الميلاد : 21-9-1988
يتابعهم : 5
يتابعونه : 0
قوة السمعة : 10
 offline 

دي 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

للاسف حاولت ان ارفق الملف لم صلح لان حجمة  29 ميجا ارجو المساعدة
 
   

 Sheets(1).Activate
    
 If TextBox3.Value = "" Then ListBox1.Clear: Exit Sub
 ListBox1.Clear
 
ListBox1.ColumnCount = 11

    k = 0

    For Each ws In ThisWorkbook.Worksheets
        ss = ws.Cells(Rows.Count, 1).End(xlUp).Row

        For Each c In ws.Range("a2:B" & ss)
            b = InStr(c, TextBox8)
            If b > 0 Then
                ListBox1.AddItem
                ListBox1.List(k, 0) = ws.Cells(c.Row, 1).Value
                ListBox1.List(k, 1) = ws.Cells(c.Row, 2).Value
                ListBox1.List(k, 2) = ws.Cells(c.Row, 3).Value
                ListBox1.List(k, 3) = ws.Cells(c.Row, 4).Value
                ListBox1.List(k, 4) = ws.Cells(c.Row, 5).Value
                ListBox1.List(k, 5) = ws.Cells(c.Row, 6).Value
                ListBox1.List(k, 6) = ws.Cells(c.Row, 7).Value
                ListBox1.List(k, 7) = ws.Cells(c.Row, 8).Value
                ListBox1.List(k, 😎 = ws.Cells(c.Row, 9).Value
                ListBox1.List(k, 9) = ws.Cells(c.Row, 10).Value
                
                
                
                k = k + 1
            End If
        Next c
    Next ws
 
 
 
 
End Sub

 


20-12-2021 02:01 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif ارجو المساعدة في كود البحث من الاخوة الخبراء
السلام عليكم أخي الكريم
أهلاً بك في المنتدى ونورت بين إخوانك

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




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


 










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

الساعة الآن 07:10 مساء