tarih eşleştirme

[selcuk_c]

Merhaba,

a sütununda tarih değerleri

07.11.2009
11.10.2009
08.11.2009

şeklinde bu tarihleri makro ile bugünün tarihi ile eşleştirmek istiyorum. fakat date konutundan dönen tarih formatı 11/8/2009 olarak dönüyor. nasıl eşleştirebilirim.

For i = 3 To 1000
If Cells(i, 1) = Date Then
msgbox "aynı"
End If
Next

 

[Ömer]

Merhaba,

Sub Bul()
Dim c As Range
Set c = Range("A:A").Find(Date, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not c Is Nothing Then
MsgBox "A" & c.Row
Else
MsgBox "Bulamadım"
End If
End Sub

.

 

[selcuk_c]

tarih 08.11.2009 şeklinde ise bulamadım diyor.ancak 8/11/2009 şeklinde yazılınca buluyor.
benim listemde tarihler 08.11.2009 seklinde olduğu için bulamadım uyarısı vermekte.

sanırım 08.11.2009 bu yazımı hücrenin formatı tarih olmasına rağmen, tarih olarak algılamıyor.

 

[Ömer]

Dosyanızdaki verilerin tarih olup olmadığını kontrol ediniz. Eğer verilerinizi farklı bir dosyadan kopyaladıysanız metin formatında kalmış olabilirler. Çünkü verdiğim kodda biçimin bir önemi yok.