كود البحث لا يعمل

[waledms]

عند التعديل على كود الكمبوبكس لكى يبحث بالأرقام لا يعمل ...... أرجو الإفاده للأهميه.... جزاكم الله خيراً

سجل 0.xls

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

الكود الصحيح

Private Sub TextBox1_Change()
Application.EnableEvents = False

If ActiveSheet.FilterMode Then _
ActiveSheet.Range("A3").AutoFilter

If ActiveSheet.TextBox1.Text <> "" Then
  Range("$A$3").AutoFilter field:=2, _
  Criteria1:="=" & ActiveSheet.TextBox1.Text

End If
Application.EnableEvents = True
End Sub

 

[waledms]

جزاك الله خيراً أستاذنا سليم حاصبيا