doğum günü olanları yukarı taşıma

[NRE21]

arkadaşlar meraba;
a sütünunda isim, b sütununda doğum tarihleri olan uzun bir listem var.
o gün doğum günü olanların üst satırlarda ve yanında doğum günü ibaresinin belirmesini istiyorum. bu konuda yardımlarınızı bekliyorum.
şimdiden teşekkürler

 

[Necdet]

Merhaba,

1. satırın başlık olduğu varsayılarak

C2

=EĞER(METNEÇEVİR(B2;"aagg")=METNEÇEVİR(BUGÜN();"aagg")=YANLIŞ;"";"Doğum Günü")

Formülü diğer satırlara kopyalayın.

Sonra tüm belgeyi C sütununu Z-A ya göre sıralayın.

Makrosuz oldu ama idare edin, bence makroya gerek yok. Çok istenirse yazılır.

 

[dEdE]

Merhaba,
Makrolu çözüm.
1. satırın başlık olduğu varsayılarak yazıldı.
Kodu ThisWorkbook (BuÇalışmaKitabı)altına kopyalayınız. Dosyayı her açtığınızda otomatik olarak çalışacaktır.

Private Sub Workbook_Open()
Sheets("Sayfa1").Select 'Sayfa adını kendinize göre değiştirmelisiniz
ss = Cells(Rows.Count, 1).End(3).Row
Range("C2:C" & ss) = ""
For i = 2 To ss
    If DatePart("d", Cells(i, 2)) & DatePart("m", Cells(i, 2)) = _
        DatePart("d", Date) & DatePart("m", Date) Then Cells(i, 3) = "Doğum Günü"
Next
    Range("A2:C" & ss).Sort Key1:=[C1], Order1:=1
End Sub