TextBox Arama Sorunu

[memo85]

Arkadaşlar merhaba. Bir Textboxa tarih girip arama yapmak istiyorum. Fakat Textboxa yazdığım tarihi tarih olarak almıyor VBA ve arama hata veriyor. Acaba Textboxın text özelliğini tarih olarak algılatabilirdim. Şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
Dim sat As Long
 For sat = 2 To Cells(65536, "a").End(xlUp).Row
    If Cells(sat, "a") Like "*" & TextBox1 & "*" Then
        Cells(sat, "a").Activate
    End If
 Next
End Sub

 

[memo85]

Teşekkür ederim. bi deneyeyim..