Tarih Kontrolü Yapan VBA

[enegen]

Sayın Ustalarım
Excel dosyasını açtığımda DA Sütununu kontrol edip.
Bugünkü tarihli olan hücreleri bana bildiren bir kod yazmak istiyorum.
Yapmaya çalıştım fakat beceremedim. Yardımcı olabilirmisiniz.
Teşekkürler.

 

[Necdet]

Merhaba,

Aşağıdaki kodların ThisWorkbook bölümünde olması gerek. Kırmızı ile belirtilen sayfa adını uygulamanıza göre düzeltiniz.

Private Sub Workbook_Open()
Dim i As Long
Dim Mesaj As String
Sheets("[B][COLOR=red]Sayfa1[/COLOR][/B]").Select
For i = 1 To [DA65536].End(3).Row
    If Cells(i, "DA") = Date Then Mesaj = Mesaj & Chr(10) & Cells(i, "DA").Address
Next i
MsgBox Mesaj
End Sub

 

[hamitcan]

Sub bugun_olan_tarihleri_bul()
[da1].Select
Do While Not ActiveCell = Empty
    If ActiveCell = Date Then MsgBox ActiveCell.Address
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

 

[enegen]

teşekkür ederim