Textboxta Hızlı Arama (Sayılara Göre Arama)

[tatasoy]

Aşagıdaki kodlama sayesinde textboxt ile hızlı arama ve süzme işlemi yapmaktayım.
Fakat mevcut kodlama sadece sayılardan oluşan hücrelerde arama ve süzme yapmamaktadır.
Sadece sayılardan oluşan hücreler için kodlama nasıl olmalıdır.
Yardımlarınızı bekliyorum. İlgilenen arkadaşlara teşekkürler...


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

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/f133/metin-kutusu-textbox-ile-baz-veri-turlerini-suzme-t16264.html

Buradaki dosyayı inceleyin.

.

 

[tatasoy]

Gönderdigim örnek dosyadaki A sutünu rakamlardan oluşmaktadır. Kopyala yapıştır ile sütun oluşturlmuştur ve satır sayısı 5000 civarıdır.
A sütunundaki rakamları extbox ile süzme yapamamaktayım.
Bu durumu nasıl düzeltebilirim....

 

[Merhum İdris SERDAR]

Gönderdigim örnek dosyadaki A sutünu rakamlardan oluşmaktadır. Kopyala yapıştır ile sütun oluşturlmuştur ve satır sayısı 5000 civarıdır.
A sütunundaki rakamları extbox ile süzme yapamamaktayım.
Bu durumu nasıl düzeltebilirim....

Dosyanız ekte.

.