sayısal süzgeç oluşturma

[brkztrk01]

merhaba,
foruma ilk mesajım bu yaptığım bi hata varsa şimdiden özür dilerim.

benim yapmaya çalıştığım bir süzgeç var ama tam olarak çalışmasını sağlıyamıyorum

metin ararken istediğimi yapabiliyorum ama sayısal bir değer ararken sıkıntı yaşıyorum

Private Sub TextBoxADRES_Change()
On Error Resume Next
METİNJ = TextBoxADRES.Value
Set FC2 = Range("J1:J2").Find(What:=METİNJ)
Application.Goto Reference:=Range(FC2.Address), _
   Scroll:=False
Selection.AutoFilter Field:=10, Criteria1:="*" & TextBoxADRES.Value & "*"
If METİNJ = "" Then
Selection.AutoFilter Field:=10
End If
End Sub

kullandığım kodla j sütunundaki verilerden TextBoxADRES e yazdığım yazıyı filtreleme yapmak istiyorum
metin aratırken bi sıkıntı yaşamıyorum fakat aynı kodu gerekli alanları değiştirerek dosya no ları aramak için denediğimde hatalı arama sonuçlarıyla karşılaşıyorum

dosya no
1907035
1903196
1908066-1
1907530-1
1908365
1290070
1297014
1297013
1297010

mesela 1 yazdığımda 1 ile başlayan dosya nolarını değil de sonunda -1 şeklinde olan dosyaları gösteriyor sadece.

bunu nasıl düzeltebilirim?

bir sorum daha olacak her sütun için ayrı textbox kullanmak yerine tek birtane textbox kullanarak tüm sutunlarda arama yapmam mümkün mü?

şimdiden yardımcı olmak isteyen arkadaşlara teşekkür ederim.

 

[brkztrk01]

kod bilgim pek yok ama int32 ye çevirerek bilgiyi almaya çalıştım yine aynı sorunu yaşadım

 

[sensizsoldum]

Merhaba,
Örnek bir dosya eklerseniz daha net yardımcı olabiliriz.

 

[sensizsoldum]

Merhaba,

Aşağıdaki kodu ben J sütuna göre uyarladım. Veri süzmeyi içeren rakamlara göre ya da net rakamı yazdığınızda bilgileri getirecektir, eğer tam istediğiniz rakamları getirmesini istiyorsanız (& "*") kodlardan bu alanı siliniz.

Private Sub TextBox1_Change()
On Error Resume Next
Son = Cells(Rows.Count, 1).End(3).Row
metin = TextBox1.Value
If metin = "" Then
Range("j" & 2 & ":j" & Son).AutoFilter
Exit Sub
End If
Set BUL = Range("j" & 2 & ":j" & Son).Find(What:=metin)
Application.GoTo Reference:=Range(BUL.Address), Scroll:=False
Range("j" & 2 & ":j" & Son).AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
End Sub

 

[brkztrk01]

yardımcı olduğunuz için teşekkür ederim. yolladığınız kodu inceledim fakat yine aynı şekilde içinde sadece - işareti olan dosyaları süzüyor bu kod

Range("j" & 2 & ":j" & Son).AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"

sondaki & "*" kodu kaldırdığımda ise arama yapmaz hale geliyor.

ayrıca sizin yolladığınız kodda j ye göre ayarlanmış. kod içindeki bütün j leri c yaptım ama c satırında arama yapmasını sağlayamadım.

dosyayı ekte paylaştım elimdeki dosya nolar bunlar yardımlarınız için şimdiden teşekkürler

 

[dEdE]

Merhaba,
"dosyayı ekte paylaştım " diyorsunuz ama bu dosya boş olabilir mi? Bana hiç veri içermeyen bir dosya gibi geldi de

 

[brkztrk01]

özür diliyorum haklısınız teşekkürler uyarınız için dosyayı şimdi ekledim

 

[Levent Menteşoğlu]

Textboxtaki kodu sadece aşağıdaki gibi düzenlemeniz yeterlidir.

Private Sub TextBox1_Change()
Son = Cells(Rows.Count, 1).End(3).Row
metin = TextBox1.Value
If metin = "" Then
Range("j" & 2 & ":j" & Son).AutoFilter
Exit Sub
End If
Range("j" & 2 & ":j" & Son).AutoFilter Field:=1, Criteria1:=TextBox1.Value
End Sub