bu ay doğanları listbox'ta görüntüleme

[peleryn]

Aşağıda linkini yolladığım örnek dosya Evren Bey'in listbox'ta listeleme sorunuma yardım için düzenlemiş olduğu örnek dosyadır.listelemenin mantığını anlamış olmakla beraber doğum tarihi sütunundaki doğum tarihlerine bakıp bugünle karşılaştırıp içinde bulunduğumuz ay doğmuş olanları listbox ta listeleyecek ve textbox ta bunların kaç tane olduğunu rakamla yazacak makroyu yazamıyorum.Yardımcı olursanız sevinirim.

 

[Orion1]

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim i As Long, a As Long
liste.ColumnCount = 4
liste.ColumnWidths = "100;100"
ReDim myarr(1 To 4, 1 To 1)
Sheets("GİRİŞ İŞLEMLERİ").Select
liste.Clear
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Month(Cells(i, "D").Value) = Month(Date) Then
    a = a + 1
        ReDim Preserve myarr(1 To 4, 1 To a)
        myarr(1, a) = Cells(i, "A").Value
        myarr(2, a) = Cells(i, "B").Value
        myarr(3, a) = Cells(i, "C").Value
        myarr(4, a) = Format(Cells(i, "D").Value, "dd.mm.yyyy")
    End If
Next i
If a > 0 Then
    liste.Column = myarr
    dogansayı.Text = Format(a, "#,##0")
End If
End Sub

 

[peleryn]

Evren Bey ;
Ne kadar teşekkür etsem az..Yanımda olsanız ancak bu kadar hızlı olurdu.Verdiğiniz kodları 2 kolona indirip label click olayına atadım ve tam istediğim işi gördü.Tekrar çok teşekkürler.İyi çalışmalar dilerim.

 

[Orion1]

Evren Bey ;
Ne kadar teşekkür etsem az..Yanımda olsanız ancak bu kadar hızlı olurdu.Verdiğiniz kodları 2 kolona indirip label click olayına atadım ve tam istediğim işi gördü.Tekrar çok teşekkürler.İyi çalışmalar dilerim.

Rica ederim.
İyi çalışmalar.