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

[فريدة العصر]

بحث بمعيار الأسم ثم معيار التاريخ-1.xlsbالسلام عليكم ورحمة الله وبركاته 

صباح الخير والسعادة على أساتذة المنتدى الكرام 

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

بحث بمعيار الأسم ثم معيار التاريخ-1.xlsb

[حسين مامون]

اخي الكريم

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

هكذا كمثال

[فريدة العصر]

أستاذنا الفاضل / حسين مأمون 

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

 

 

[حسين مامون]

تفضل

اختر من الكومبوبوكس اي اسم

ثم اختر من الليست 

عدل ما تشاء 

واضغط زر تعديل

بحث بمعيار الأسم ثم معيار التاريخ-1.xlsb

[فريدة العصر]

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

 استاذ حسين مأمون

تمام التمام هذا هو المطلوب ربنا يبارك لك فى علمك وعملك

[حسين مامون]

جزيت خيرا اخي الكريم

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

كود لجلب الاسماء اوتوماتيكياُ الى ComboBox  دون تكرار

اختر الاسم والتاريخ واضغط بحث

Option Explicit
Private Sub CommandButton2_Click()
Unload Me
End Sub
'+++++++++++++++++++++++++++++++++

Private Sub Cmd_Search_Click()
Dim x, K As Long, bol As Boolean
Dim My_date As Date, Ctr As Control

x = Sheets("Main").Cells(Rows.Count, 2).End(3).Row
 Txt_B = "": Txt_C = "": Txt_D = "": Txt_E = "": Txt_F = ""
If Comb_Name = "" Or T_date = "" Then
 MsgBox "Please Type Name  and Date": Exit Sub
Else
 My_date = CDate(T_date)
 
 For I = 2 To x
  With Sheets("Main").Cells(I, 2)
      If .Value = Comb_Name And _
       .Offset(, 3) = My_date Then
        bol = True
        Txt_B = .Value: Txt_C = .Offset(, 1)
        Txt_D = .Offset(, 2): Txt_E = .Offset(, 3)
        Txt_F = .Offset(, 4): Exit Sub
      End If
    End With
  Next
  End If
  If Not bol Then
   MsgBox "No data"
  End If
End Sub
'++++++++++++++++++++++++++++++++++++++++++++

Private Sub UserForm_Initialize()

    Dim a%, I%

    a = Sheets("Main").Cells(Rows.Count, 2).End(3).Row

    With CreateObject("Scripting.Dictionary")
        For I = 2 To a
            .Item(Sheets("Main").Cells(I, 2).Value) = Empty
        Next I
        Comb_Name.List = .Keys
    End With
End Sub

Fathi_combo.xlsm

[abouelhassan]

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

استاذ سليم حفظك الله الكود اعطانى خطأ

Private Sub Cmd_Search_Click()

 

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

عليك ادراج نفس اسم الزر في الكود   كما هو في قائمة (Properties)

لاحظ الصورة

[فريدة العصر]

استاذ سليم حاصبيا وأستاذ ابوالحسن شرف كبير مروركم الكريم 

ودائما الفائدة والاستفادة من حضراتكم لا تثمن ولا يكفيها الشكر 

بارك الله فى حضراتكم وربنا يجزيكم خيرا

[abouelhassan]

بارك الله فيكم جميعا جزاكم الله خيرا يا رب