كود بحث VBA

[Mohamedsherif]

السلام عليكم 

لو سمحت كنت عايز كود للبحث بس بطريقة معينة اولا اختيار نوع البحث من ComboBox1 ثم ادخال جزء من الاسم او ادخال تاريخ الميلاد او الرقم القومي في الTextBox1 ثم الضغط علي Commandbutton1 لبدء عملية البحث في ListBox1

شكرا ............... لقد تم اضافة البيانات بالملف 

project.xlsm

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

كيف لي أن ابحث في جدول فارغ تماماً من البيانات 

حتى رؤوس الأعمدة غير موحودة

[الرائد77]

تفضل

Private Sub CommandButton6_Click()
Select Case ComboBox1.Value
Case "بحث في الاسماء"

ListBox1.Clear

    For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i

    If TextBox1 = "" Then Exit Sub
    Sheets("Sheet1").Activate

    ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
     j = 0
     
     
For Each C In Range("a2:a" & ss)
    If C Like TextBox1.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = Cells(C.Row, 1).Value
        ListBox1.List(j, 1) = Cells(C.Row, 2).Value
     ListBox1.List(j, 2) = Cells(C.Row, 3).Value

        j = j + 1
    End If
Next C
Case "بحث في الرقم القومي"
ListBox1.Clear

    For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i

    If TextBox1 = "" Then Exit Sub
    Sheets("Sheet1").Activate

    ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
     j = 0
     
     
For Each C In Range("c2:c" & ss)
    If C Like TextBox1.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = Cells(C.Row, 1).Value
        ListBox1.List(j, 1) = Cells(C.Row, 3).Value
        j = j + 1
    End If
Next C

Case "بحث في تاريخ الميلاد"
ListBox1.Clear

    For i = 1 To 12
            Controls("textbox" & i + 1).Value = ""
            On Error Resume Next
    Next i

    If TextBox1 = "" Then Exit Sub
    Sheets("Sheet1").Activate

    ss = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
     j = 0
     
     
For Each C In Range("b2:b" & ss)
    If C Like TextBox1.Value & "*" Then
        ListBox1.AddItem
        ListBox1.List(j, 0) = Cells(C.Row, 1).Value
        ListBox1.List(j, 1) = Cells(C.Row, 2).Value
        j = j + 1
    End If
Next C
End Select
End Sub

1-

2-

3-

project.xlsm

[abouelhassan]

رائع جدا استاذنا الفاضل بارك الله فيك

[Mohamedsherif]

شكرا جزيلا استاذنا علي الكود مجهود رائع واتمني رد مساعدتك قريبا ان شاء الله 💗

[أحمد يوسف]

  

Mohamedsherif

فين انت من هذا الكود الممتاز ؟!!!

أين الضغط على الإعجاب لهذه الإجابة الرائعة ؟!!💙