Bugün doğum günü olanlar diğer sayfada listelensin

[Researcher]

Merhabalar,

Ekteki dosyanın ilk sayfasında çalışan listesi ve doğum günleri bulunmaktadır.
=bugün() formülüne göre o gün doğum günü olanların diğer sayfada listelenmesini istiyorum.

Yardımlarınız ricadır.

Teşekküler.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Not 1: Sayfa adı "ÇALIŞAN LİSESİ" olduğu için bende kodlarda onu kullandım, sanırım yanlış yazdınız.
Not 2: "ÇALIŞAN LİSESİ" Sayfasında Yaşı aşağıdaki gibi hesaplarsanız daha garanti olur. Nitekim F ve İ kişilerin yaşını yanlış hesaplıyorsunuz.

D4:

=ETARİHLİ(B4;$B$1;"Y")

Modüldeki kodlar :

Sub DogumGunuListele()

    Dim ShÇ As Worksheet, _
        ShB As Worksheet, _
        i   As Long, _
        j   As Integer, _
        BGün As Integer, _
        BAy As Integer
    
    Set ShÇ = Sheets("ÇALIŞAN LİSESİ")
    Set ShB = Sheets("Bugün doğum günü")
    
    BGün = Day(ShÇ.Range("B1"))
    BAy = Month(ShÇ.Range("B1"))
    
    ShB.Range("A5:C" & Rows.Count).ClearContents
    j = 4
    
    For i = 4 To ShÇ.Cells(Rows.Count, "A").End(3).Row
        If Day(ShÇ.Cells(i, "B")) = BGün And Month(ShÇ.Cells(i, "B")) = BAy Then
            j = j + 1
            ShB.Cells(j, "A") = ShÇ.Cells(i, "A")
            ShB.Cells(j, "B") = ShÇ.Cells(i, "B")
            ShB.Cells(j, "C") = ShÇ.Cells(i, "C")
        End If
    Next i
    
End Sub

 

[Researcher]

Teşekkürler Sn. Necdet