Değişken veriyi (Tarih) aramak

[necro82]

Merhaba Arkadaşlar,

Aşağıdaki kod bir değişkeni (bu örnek için "deger") aramaya yarıyor ancak sorun şu; eğer değişken tarih (ör: 25.02.2011) ise aşağıdaki kod esnasında "Run Time Error 91" hatası veriyor. Ancak ben deger i variant ya da date olarak zaten tanımladım! Acaba bu problemi nasıl aşabilirim? Yardımcı olabilir misiniz? (not: forumda bu konu hakkında net bir çözüme ulaşamadım!)

Teşekkürler, iyi haftasonları...


Cells.Find(What:="" & deger & "", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

 

[Zeki Gürsoy]

Merhaba,

Kod içindeki çift tırnakları kaldırın.

Aşağıdaki iki kullanım, bir tarih arayabilmenize yarar.

Sub test1()
Dim deger As Date

deger = "25.02.2011"

Cells.Find(What:=deger, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

Sub test2()
Dim deger

deger = CDate("25.02.2011")

Cells.Find(What:=deger, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

 

[necro82]

Çok teşekkür ederim, yardımınız çook işime yaradı. İyi hafta sonlar...