doğum günü olan personeli listeleme

[son_savasci]

Arkadaşlar benim 200 civarında arkadaşım var ve hangisinin doğum günü olduğunu tek tek bakmak zaman alıyor ve bazen gözden de kaçıyor ricam kısaca doğum günü olan kişinin adı ve doğum tarihini gösterir bir formül yapmanızdır Tşk ederim ilginiz için... örnek ektedir

 

[ReBiwAr]

Ekteki gibi çözüm ürettim. Umarım olmuştur.

İyi Çalışmalar.

NOT: Konu başlığı değişmeli..

 

[son_savasci]

ilginiz için tşk ederim ama bunda da yine ben tek tek bakmak zorunda kalacağım... benim ricam doğum günü olan personelin arasından seçip bana vermesi ama yinede teşekkür ederim

 

[son_savasci]

Ayrıca sizin yaptığınız formülde sadece bugün doğanlar için olumlu yanıtını veriyor yani gün ay ve yıla bakıyor... Sadece güne ve aya bakması lazım...

 

[Murat OSMA]

Selamlar,

Office2003 kullandığım için dosyanızı açamadım ama şöyle bir kod işinizi görür mü ?

Private Sub Workbook_Open()
    tarih = Format(Now, "dd.mm")
    For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
    If tarih = Format(Cells(i, 1), "dd.mm") Then
    mesaj = "Doğum günü olanlar : " & vbCr
    msj = msj & Cells(i, 1) & " - " & Cells(i, 2) & vbCr
    End If
    Next i
    MsgBox mesaj & vbCr & msj
End Sub

Bir de örnek dosya ekliyorum...

 

[ReBiwAr]

Bravo Murat bey bende makroyla yapmaya başlamıştım formülle istenmeyince.
Elinize sağlık..

 

[Murat OSMA]

Rica ederim de... Bravo derken ?

 

[harziyan]

İyi geceler,
Bu da alternatif olsun.

 

[KETUM]

Değerli arkadaşlar benimde excelde yazılı öğrencilerin doğum günleri var.ama gün gün doğum günlerini tek tek bakmadan bilmek istiyorum.yukarıda açıklananlara aşama aşama anlatırsanız daha çok faydalanabiliriz.teşekkürler..

 

[ReBiwAr]

Rica ederim de... Bravo derken ?

Harikasınız veya Alkış manasında söylemek istemiştim.. Eğer rahatsız edici ise özür dilerim. Niyetim kesinlikle kötü değildir..

İyi Çalışmalar.

 

[son_savasci]

aRKADAŞLAR ELİNİZE SAĞLIK... HARZİYAN BEY AYRICA TŞK EDERİM... BEN ŞÖYLE BİR FORMÜL DÜŞÜNDÜM YANLIŞ OLAN NEDİR ACABA BAKAR MISINIZ?

=DÜŞEYARA(SOLDAN(BUGÜN();4);B3:B9;1;YANLIŞ)

 

[son_savasci]

=düşeyara(soldan(bugün();4);b3:b9;1;yanlış)

tşk ederim arkadaşlar ben böyle bir formülle yapmak istedim de hata nereden kaynaklandığının bulamadım... Dosya ektedir

 

[son_savasci]

=EĞER(VE(GÜN(B4)=GÜN(BUGÜN());AY(B4)=AY(BUGÜN()));"Bugün "&A4&" "&(YUVARLA(((BUGÜN()-B4))/365;0))&" "&"Yaşında";"")

 

[teknadir]

Selamlar,

Office2003 kullandığım için dosyanızı açamadım ama şöyle bir kod işinizi görür mü ?

Private Sub Workbook_Open()
    tarih = Format(Now, "dd.mm")
    For i = 1 To Sheets("Sayfa1").Range("a65536").End(3).Row
    If tarih = Format(Cells(i, 1), "dd.mm") Then
    mesaj = "Doğum günü olanlar : " & vbCr
    msj = msj & Cells(i, 1) & " - " & Cells(i, 2) & vbCr
    End If
    Next i
    MsgBox mesaj & vbCr & msj
End Sub

Bir de örnek dosya ekliyorum...

Bu kodu bu hafta doğanlar yada bu aya doğanlar olarak nasıl düzenleyebiliriz?