Sayı filtresi

[waytooraider]

Private Sub TextBox1_Change()
On Error Resume Next
METİN2 = TextBox1.Value
Set FC2 = Range("A1:A65000").Find(What:=METİN2)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox1.Value & "*"
If METİN2 = "" Then
Selection.AutoFilter Field:=1
End If
End Sub

Yukarıdaki kodda sayıyıda filtrelemesi için ne yapabilirim.Yada hem sayı hem text içinde olabilir

Saygılarımla

 

[hamitcan]

Sayıları karakter karakter süzmek için metin formatına çevirmelisiniz. Sayı olarak süzmek isterseniz kullanacağınız kriterler farklı olacaktır.