نعم استاذي ابوالبراء
هذا هو الكود ومكانه في حدث الورقة (تصفية)sheet3 حيث d2 هي خلية البحث . مع ملاحظة العمود A حيث هو مكان الفلترة والتصفية
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Application.ScreenUpdating = False
If Target.Row <> 1 And Target.Column <> 4 Then Exit Sub
ActiveSheet.Unprotect
ActiveSheet.ShowAllData
Range("A7:A33333").AutoFilter Field:=1, Criteria1:="=" & [A2], Operator:=xlOr, Criteria2:="="
If [d1] = "" Then ActiveSheet.ShowAllData
Range("D1").Select
Application.CommandBars("Web").Visible = False
End Sub
واقصد بشمولية البحث انه يمكن البحث عن اي كلمة او جزء من كلمة او عن رقم وذلك ضمن المجال B7:M33333
وهذا الملف المرفق مع تعديل بسيط
وطبعاً هنا التصفية لبينات الورقة نفسها
وهناط طريقة اخرى لتصفية بيانات ورقة (عام)
بيان بحركة السائقين3.rar