Filtreleme Sorunu

[turanb]

Merhaba,

Aşağıdaki kod ile metin olan sütunları filtreliyebiliyorum. Ancak sayısal olan sütunları filtrelemiyor. Nasıl düzeltebilirim.

Teşekkürler.

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

 

[Korhan Ayhan]

Sayısal alanları içerir mantığı ile süzemezsiniz. Ya ilgili alanı metin biçimine dönüştürmelisiniz. Ya da arama yaparken tam veri girişi yapmalısınız.

 

[Ömer BARAN]

Merhaba.
Biliyorsunuzdur;
-- TextBox, adı üstünde METİN KUTUSU ve dolayısıyla da içeriği METİN,
-- Sayı sütunlarında içerir, başlar, içermez, biter gibi METİNSEL filtre ugulanamıyor.

Bunu aşmak için aşağıdaki gibi bir kod ile filtre kullanılabilir, ancak bu da EŞİTTİR mantığı ile çalışacaktır.

Kod'da filtrenin 10'uncu satıra uygulandığı (ilk on satırın, başlık vs. için ayrıldığı), filtrelenen sütunun da 12'nci sütun yani L sütunu olduğu varsayılmıştır.

Private Sub TextBox1_Change()
If TextBox1 <> "" Then
Range("A10").AutoFilter Field:=12, Criteria1:=Format(CDbl(TextBox1), "##,##0.00")
Else
Range("A10").AutoFilter Field:=12, Criteria1:="<>"
End If
End Sub