Aynı Tarih İse Listbox'a Listeleme

[ahmed_ummu]

Merhaba arkadaşlar.

Eklediğim örnek dosyanın Sayfa1 "A" sütununda tarihler, "B" sütununda ise açıklamalar var. Yapmak istediğim ise form açıldığında "A" sütunundaki tarihleri son dolu satıra kadar tarayıp, günün tarihi ile aynı tarih var ise listbox'a "B" sütunundaki açıklamaları listelesin istiyorum. Yapmaya çalıştım herhangi bir hata vermiyor ama listbox'a listelemiyor da. Yardımcı olursanız sevinirim.

 

[dEdE]

Dener misiniz?

Private Sub UserForm_Initialize()
Dim Son As Long
Set s1 = Sheets("sayfa1")
Son = s1.Cells(Rows.Count, "A").End(3).Row
    For i = 1 To Son
        If CDate(s1.Cells(i, "a").Value) = Format(Date, "dd.mm.yyyy") Then ListBox1.AddItem s1.Cells(i, "b").Value
    Next i
End Sub

 

[ahmed_ummu]

Dener misiniz?

Private Sub UserForm_Initialize()
Dim Son As Long
Set s1 = Sheets("sayfa1")
Son = s1.Cells(Rows.Count, "A").End(3).Row
    For i = 1 To Son
        If CDate(s1.Cells(i, "a").Value) = Format(Date, "dd.mm.yyyy") Then ListBox1.AddItem s1.Cells(i, "b").Value
    Next i
End Sub

Çok teşekkürler sayın dEdE.