Listviewde bugün doğanlar ve işe girenler

[mekuka]

Ekteki dosya her açıldığında bugün işe girenler ve bugün doğanları ayrı listelerde vermesini istiyorum.

Teşekkürler.

 

[mekuka]

Lütfen Yardım

 

[umitumit]

FONKSİYONLAR bölümünde sıralama fonksiyonları diye arama yaparsanız size yardımcı olabilecek dosyaları bulabilirsiniz.
illaki macro ile olsun derseniz konu beni aşar...

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i As Long, dsat As Long, sat As Long
ListeyeAdVer
ListView1.View = lvwReport
ListView2.View = lvwReport
dsat = 1: isat = 1
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "C").Value = Date Then
        ListView1.ListItems.Add , , Cells(i, "A").Value
        ListView1.ListItems(isat).SubItems(1) = Cells(i, "B").Value
        isat = isat + 1
    End If
        If Cells(i, "D").Value = Date Then
        ListView2.ListItems.Add , , Cells(i, "A").Value
        ListView2.ListItems(dsat).SubItems(1) = Cells(i, "B").Value
        dsat = dsat + 1
    End If
Next i
End Sub

 

[mekuka]

sayın evren gizlen;

can't find project or library hatasını veriyordu onu hallettim fakat bu rapor bire bir güne eşit olursa veriyor. Bir insanın doğum tarihi ve işe giriş tarihinin aynı yıl olması biraz mantık dışı . Gün ve ayı bugünkü gün ve ayla eşitleyip yıldönümlerinde uyarı vermesini istiyorum.

Şimdiden yardımlarınıza teşekkürler