Doğum Günü Olan Personeller

iplikci_80

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
Arkadaşlar örnek'te gönderdiğim personel listesinde C sütunu personellerin doğum tarihlerinin olduğu sütundur. Yaplmak istediğim şey her belgeyi açtığımda doğum günü gelen personellerin isimlerini bana hatırlatsın ve bunları yazdıra bilmeliyem.Bu konuda yardımlarınız bekliyorum. Herkese teşekkürler.
 

Ekli dosyalar

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,496
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhaba,

Farklı yöntem uygulanabilir.

Aşağıdaki kodu ThisWorkbook'un kod bölümüne kopyalayınız.

Kod:
Private Sub Workbook_Open()
 
    DogumGunuOlanlar
 
End Sub
Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.


Kod:
Sub DogumGunuOlanlar()
 
    Dim i   As Long, _
        j   As Long, _
        sp  As Worksheet, _
        sb  As Worksheet, _
        Tar As String
    
    Set sp = Sheets("Personel Bilgileri")
    Set sb = Sheets("BugünDoğanlar")
    sb.Select
    Tar = Format([C1], "mmdd")
    
    j = Cells(Rows.Count, "A").End(3).Row
    If j > 2 Then Range("A3:C" & j).ClearContents
        
    j = 2
    
    For i = 3 To sp.Cells(Rows.Count, "B").End(3).Row
        If Format(sp.Cells(i, "C"), "mmdd") = Tar Then
            j = j + 1
            Cells(j, "A") = j - 2
            Cells(j, "B") = sp.Cells(i, "B")
            Cells(j, "C") = sp.Cells(i, "C")
        End If
    Next i
    
End Sub
 

Ekli dosyalar

iplikci_80

Altın Üye
Katılım
29 Kasım 2007
Mesajlar
1,110
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
07-03-2026
Merhabalar öncelikle ilginize çok teşekkür ederim. Fakat hata veriyor.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,496
Excel Vers. ve Dili
Ofis 365 Türkçe
Merhabalar öncelikle ilginize çok teşekkür ederim. Fakat hata veriyor.

Ben kontrol ederek dosyayı ekledim.

Hata veriyor demekle olmaz hatanın ne olduğunu da söyleyin ki sizden mi kaynaklanıyor yoksa benden mi kaynaklanıyor bulalım.
 
Üst