Excel Sayfasındaki Textbox'a Tarih Formatı Ekleme Kod Yardımı

[Believing]

Sayın Uzman arkadaşlar,

Excel çalışma kitabının "VERİTABANI" isimli sayfasına eklediğim textbox'lar ile süzme işlemi yapıyorum. "B" sütunu tarih formatında oluştuğundan, textbox'a tarihe ait rakamları girerek filtreleme yapmak istiyorum. Bu neden ile aşağıdaki mevcut kodu ne şekilde revize etmeliyim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

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

 

[Believing]

Hayırlı Sabahlar,

Konu güncel olup, yardımlarınızı rica ediyorum.

Saygılarımla,