Textbox ile sayı aratmak

[nadirornek]

Private Sub TextBox1_Change()
On Error Resume Next
Sonuc = TextBox1.Value
If CheckBox1.Value = False Then
Set FC2 = Range("A6:A500").Find(What:=Sonuc)
Application.Goto Reference:=Range(FC2.Address), Scroll:=False
ElseIf CheckBox1.Value = True Then
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
End If
End Sub
Private Sub Checkbox1_Click()
If CheckBox1.Value = False And AutoFilterMode = True Then
Selection.AutoFilter
ElseIf CheckBox1.Value = True Then
Range("B1").Select
Selection.AutoFilter
End If
End Sub

Bu kodlar A sutununda isimleri aratıyor ben parça numarası aratmak istiyorum
A sutunundaki sayıları textbox ile nasıl arata biliriz

 

[Orion1]

Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"

Yukarıdaki satırı aşağıdaki satır ile değiştirip denermisiniz.

Selection.AutoFilter Field:=1, Criteria1:="*" & cdbl(TextBox1.Value) & "*"

 

[nadirornek]

sayı olan satırları gizliyor aramadı

 

[Orion1]

Aşağıdaki şekilde deneyebilirsiniz.

Selection.AutoFilter Field:=1, Criteria1:=cdbl(TextBox1.Value)

 

[nadirornek]

Şimdi oldu teşekkürler iyiki varsınız macrocular

 

[Orion1]

Şimdi oldu teşekkürler iyiki varsınız macrocular

Rica ederim.
İyi çalışmalar.