Textbox ile yıl süz

[herak_lion]

Arkadaşlar merhaba,

Forumdan esinlenerek ve alıntı yaparak oluşturduğum ekli listede textbox ile yılı (rakamsal ifadeleri) süzemiyorum.

Dosyayı incelerseniz sevinirim.

 

[Orion1]

Tarihler nesnelerin Change Olayına yazılmaz.
Dosyanız ekte.

Private Sub TextBox6_LostFocus()
On Error Resume Next
Selection.AutoFilter Field:=1, Criteria1:=CDate(TextBox6.Value)
End Sub

 

[herak_lion]

Sayın Evren Üstadım,

Cevabınız için teşekkür ederim.

İlgili Textboxa yıl yazıldığına, mesela 2004 yazıldığında tarihi 2004 olanlar gelsin istiyorum ama verdiğiniz kodla tam olarak olmuyor.

Müsaitseniz ilgilenirseniz çok memnun olurum.

 

[Orion1]

B sütununa orada yadığım formülü aşağı kadar kopyalayın.
İsterseniz sonra B sütununu gizleyin.
Dosya ektedir.

Private Sub TextBox6_Change()
On Error Resume Next
Selection.AutoFilter Field:=2, Criteria1:="*" & TextBox6.Value & "*"

End Sub

 

[herak_lion]

Teşekkürler

 

[Orion1]

Teşekkürler

Rica ederim.