Textbox ile süzme

[1903emre34@gmail.com]

Merhaba arkadaşlar

texbox süzmede A sütününde 890, 891 ve C sütünde tarih yazdığım zaman, süzme oluyor ama istenilen değerler gelmiyor Kodlarda nasıl değişiklik yaparız

 

[Orion1]

Sayısal değerler ve tarihler için ile başlar yada içerir * karakterini kullanamazsınız.Birisi için örnek;

Private Sub TextBox1_Change()
If TextBox1 <> Empty Then
    Selection.AutoFilter Field:=1, Criteria1:=[B][COLOR="Red"]cdbl(TextBox1.value)[/COLOR][/B]
Else
    Selection.AutoFilter Field:=1
End If
End Sub

 

[1903emre34@gmail.com]

ilginiz için teşekkürler sayısal için kodu çalıştırdığı zaman oluyor tarih bölümünde olmadı aşağıdaki kodu ben nerede hata yaptım?

Private Sub TextBox3_Change()
If TextBox3 <> Empty Then
Selection.AutoFilter Field:=3, Criteria1:=CDbl(TextBox3.Value)
Else
Selection.AutoFilter Field:=3
End If
End Sub

 

[Orion1]

ilginiz için teşekkürler sayısal için kodu çalıştırdığı zaman oluyor tarih bölümünde olmadı aşağıdaki kodu ben nerede hata yaptım?

Private Sub TextBox3_Change()
If TextBox3 <> Empty Then
Selection.AutoFilter Field:=3, Criteria1:=CDbl(TextBox3.Value)
Else
Selection.AutoFilter Field:=3
End If
End Sub

Buyurun.

Private Sub TextBox3_Change()
On Error Resume Next
If TextBox3 <> Empty Then
    Selection.AutoFilter Field:=3, Criteria1:=Format(CDate(TextBox3.Value), "dd.mm.yyyy")
Else
    Selection.AutoFilter Field:=3
End If
End Sub

 

[1903emre34@gmail.com]

tamam oldu

 

[1903emre34@gmail.com]

Textbox

Merhaba arkadaşlar
A1 hücresinde ki, (textbox) 895000001 yazılınca süzme oluyor, ayrıca geliyor benim istediğim ilk üç rakam yazılınca (895) 895000001 ve 89500002 gelmesidir.
kodlarda nasıl değişiklik yaparız.

 

[Orion1]

sayısal alanı içerir ve ile başlar şeklinde otofilter yapamazsınız.
arananın tamamını yazmanız lazım.

 

[1903emre34@gmail.com]

tekrar merhaba,

kodlarda aşağıdaki gibi değişiklik yapılınca kısmen çözüldü;

şöyle bir sıkıntı var, örneğin A1:A10 hücresine rakamları (kopyala-yapıştır aracılığıyla) olunca aranan rakamlar gelmiyor, ama aynı hücrelere manuel rakam yazınca geliyor.

Private Sub TextBox1_Change()
If TextBox1 <> Empty Then
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
Else
Selection.AutoFilter Field:=1
End If
End Sub

http://s3.dosya.tc/server9/t5afuw/TEXTBOX.rar.html

 

[Orion1]

Dediğim gibi,yaptığınız kodlamada alanda sayı görünümde metin varsa süzer,sayı varsa süzmez.