حل مشكلة البحث برقم الهاتف

[رشاد احمد]

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

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

العملاء 2019.rar

[Ali Mohamed Ali]

تفضل

 

العملاء 2019.xlsm

[رشاد احمد]

اولا اشكركم قبل التجربه لانكم نعم الاخلاق  ده حقكم

 

لم تحل المشكله يجوز العيب عندى اكرر شكرى واسف جدا واقدر انشغالكم وفق الله القائمين على المنتدى وجميع اعضاؤه

 

[وجيه شرف الدين]

8 دقائق مضت, رشاد احمد said:

اولا اشكركم قبل التجربه لانكم نعم الاخلاق  ده حقكم

 

لم تحل المشكله يجوز العيب عندى اكرر شكرى واسف جدا واقدر انشغالكم وفق الله القائمين على المنتدى وجميع اعضاؤه

 

بعد اذن استاذنا واخونا الحبيب الاستاذ على واثراء للموضوع هذا حل اخر بالاكواد ان كان هذا هو المطلوب نكمل لك الباقى

نسخة من العملاء 2019.xlsm

تم تعديل أبريل 24, 2019 بواسطه mostafa sharaf

[رشاد احمد]

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

 

تم تعديل أبريل 24, 2019 بواسطه رشاد احمد

[رشاد احمد]

اللهمَّ إنكَ أعطيتني خير الإخوان في الدنيا، فلا تحرمني صحبتهم في الاخرة، اللهمَّ أسعدهم، وفرج همهُم، وحقق آمالهم، واجعل الجنة دارهم وقرارهم، واشفهم من كلِ مرضٍ يارب، واجمعني بهم في جناتِ النعيم.

 

[سليم حاصبيا]

بعد اذن اخي مصطفى

لا ضرورة لنبحث في  العامود صفاً بعد صف عن رقم معين من خلال استعمال الحلقات التكرارية المرهقة للبرنامح (خاصة اذا كان هناك المئات او الالوف من الصفوف)

يوجد طريقة اخرى من خلال الدالة المميزة Find التي تنبش المعلومة اينما كانت (وتضع بدها على الجرح مباشرة ---كما يقول المثل) وتملك خاصية ( النبش)  مئات المرات دون كلل او ملل

الكود

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$G$3" And Target.Count = 1 Then
Get_Data
End If
Application.EnableEvents = True
End Sub
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Get_Data()
Dim ws As Worksheet: Set ws = Sheets("البيانات")
Dim sh As Worksheet: Set sh = Sheets("البحث")
sh.Range("a6").CurrentRegion.Offset(2).ClearContents
Dim My_Number: My_Number = sh.Range("g3")
Dim But_Rg As Range: Set But_Rg = ws.Range("a2").CurrentRegion.Columns(2)
Dim ro%, fixed_ro%
Dim m%: m = 7
Dim Search_Rg As Range
Set Search_Rg = But_Rg.Find(My_Number)
 If Not Search_Rg Is Nothing Then
  ro = Search_Rg.Row: fixed_ro = ro
   Do
    sh.Cells(m, 1).Resize(, 10).Value = ws.Cells(ro, 1).Resize(, 10).Value
     m = m + 1
     Set Search_Rg = But_Rg.FindNext(Search_Rg)
     ro = Search_Rg.Row
     If ro = fixed_ro Then Exit Do
   Loop
  Else
  MsgBox "No Data"
  End If
End Sub

 

Search_by Find.xlsm

[وجيه شرف الدين]

الله عليك استاذ سليم والله مبدع جزاكم الله خير الجزاء

[رشاد احمد]

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