تعديل على كود ليعمل على الاسم والرقم معاً

[ابو عبدالرحمن البغدادي]

السلام عليكم

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

جزيتم خيرا ، مع العلم بان زر البحث موجود في خانة (D)

Private Sub TextBox3_Change()
Dim LastRow As Long
LastRow = Range("a65535").End(xlUp).Row
    If ActiveSheet.TextBox3.Text <> "" Then
        Selection.AutoFilter
        Range("$a$6:$e$" & LastRow).AutoFilter Field:=3, Criteria1:= _
            "=" & ActiveSheet.TextBox3.Text & "*", Operator:=xlOr
    Else
    
        Range("$a$4:$e$" & LastRow).AutoFilter Field:=3
    End If
End Sub

 

 

تم تعديل أكتوبر 17, 2015 بواسطه ابو عبدالرحمن البغدادي

[ياسر العربى]

تفضل اخي

 

 لماذا موضوع منفصل كنت ترفق طلبك بنفس الموضوع السابق

دليل.rar

[ابو عبدالرحمن البغدادي]

السلام عليكم

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

وطلب أخر : اريد ان يكون محرك البحث فوق كل راس جدول لمتطلبات العمل مع امكانية ان يكون البحث بالاسم والرقم في كل محرك بحث

شكراً - حفظكم الله

[ياسر العربى]

 

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

؟؟؟؟؟؟؟؟؟؟

[ابو عبدالرحمن البغدادي]

نعم 

الله يرضى عليك

 

[ياسر العربى]

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

 لو الاخوة هنا عندهم فكرة نختصر بها الكود يبقي افضل

 

دليل.rar

[ابو عبدالرحمن البغدادي]

ممتاز - احسنت - تمام

اشكرك