شكرا اخى الفاضل
الكود جميل ولكن لا يعمل معى بالشكل الصحيح
وكنت اريد فورم بشكل معين بحيث يتم البحث عن طريق فلترة الارقام فى نفس الصفوف والاعمدة
انا لدى كود من اعداد احد الاخوه الافاضل
ولكن لا يعمل مع الارقام والجميل فى الكود انى اقدر اى جزء من الحروف
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim lastrow As Long
lastrow = Range("C65535").End(xlUp).Row
If TextBox1.Text <> "" Then
ActiveSheet.Range("$A$2:$G$" & lastrow).AutoFilter Field:=3, Criteria1:= _
"=" & "*" & TextBox1.Text & "*", Operator:=xlOr
Else
ActiveSheet.Range("$A$7:$G$" & lastrow).AutoFilter Field:=3, Criteria1:= _
"=" & "*" & TextBox1.Text & "*", Operator:=xlOr
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
سارفق لك مثلا لما اريد اخى الكريم
مرفق مثلا على ما اقول ملف من اعداد الاستاذ الفاضل على لكن لا تنفع مع الارقام لا اعلم السبب
اريد مثال مثل المرفق لكن يعمل مع الارقام
دليل الهاتف2.xlsm