Doğum Günü Olan Personeller

[iplikci_80]

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.

 

[Necdet]

Merhaba,

Farklı yöntem uygulanabilir.

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

Private Sub Workbook_Open()
 
    DogumGunuOlanlar
 
End Sub

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

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

 

[iplikci_80]

Merhabalar öncelikle ilginize çok teşekkür ederim. Fakat hata veriyor.

 

[eskişehirli1]

Doğumgünü

Dosyanız ektedir incelermisiniz.

Ekli dosyayı görüntüle d.günü.xls

 

[Necdet]

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.