Find Komutu İle Tarih Arama

[Ergün Güler]

Arkadaşlar,
Find komutu ile arama yapıyorum. Ancak, "01.05.2013" gibi tarih formatındaki değerleri arama yaparken sıkıntı oluyor.
Ekte örnek dosyam mevcuttur. TextBox'a yazdığım değeri B sütununda bulamıyor. Mesela "06", "01.05" , "01.05.2013", "1.0" gibi.
Bunun B sütunundaki değerlerin Tarih formatında olmasından kaynaklandığnı biliyorum. Ancak, Excel sayfasında iken Ctrl+F tuşu ile aradığım zaman buluyorum.
Kodları neden Ctrl+F tuşu gibi çalıştıramıyorum.
B sütunun formatını değiştirmek istemiyorum. Bu problemi nasıl çözebilirim. Yardımcı olabilir misiniz?

 

[Necdet]

Merhaba,

Aşağıdaki gibi kullanınız.

Textbox'a tarihi uzun uzun girmeniz gerekmez, 1-3-13 şeklinde de girebilirsiniz.

    Set bulunan = Sheets("veriler").Range("B:B").Find(CDate(aranan), LookIn:=xlFormulas)

 

[Ergün Güler]

Merhaba,

Necdet Bey,

Kodu aşağıdaki gibi değiştirdim.

Set bulunan = .Find(CDate(aranan), LookIn:=xlFormulas)

Fakat,
1.sorun; bu sefer diğer aramaları bulmuyor.
2.sorun; illa tarih içinde değer aramak için, Textbox'a illa tarih formatında bir değer girmek gerekiyor. Mesela 2013 yazdığım zaman bulamıyor. Mesela TextBox'a 1.0 girdiğim zaman B sütunda 1.0 metnini içerenleri de bulmalı. Neden Ctrl+F gibi çalıştıramıyorum?
Yardımcı olur musunuz?