Tarihlere Göre Yaş Grubu Olarak Hesaplama

[KONYA42]

Mrb,Ekte sunduğum çalışma sayfamda doğum tarihleri ve kayıt tarihleri var.2 tarihi birbirinden çıkarıp yaş grubu hesaplanmış olacak.Ama 00.00.1945 gibi eski doğum tarihlileri 00.00. yazdığım için hesaplamıyor.
Ayrıca Makro koduna yıl olarak değilde gün olarak şartı yazdım.Ama yıl olarak şart koyamaz mıyız?
Örnek Çalışma kitabımı incelerseniz ne demek istediğimi anlayacaksınız.İlgilenecek arkadaşlara şimdiden teşekür ederim.

 

[Necdet]

Merhaba,

00.00.1999 yerine 01.01.1999 yazarsanız makroda sorun olmaz.

 

[KONYA42]

Teşekür ederim üstadım.Yalnız 1 isteğim daha olacak. Kodlarda gün olarak değilde yıl olarak şart koyamaz mıyım?

 

[Necdet]

Merhaba,

Aşağıdaki kodlar c sütununa Yılı yazdırır. Kodları inceleyip kendinize uyarlayınız.

Sub Yas_Hesapla()
    
    Dim i   As Integer
    Dim Yas As Integer
    
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        Cells(i, "C") = Evaluate("DateDif(" & CDbl(Cells(i, "A")) & "," & CDbl(Cells(i, "B")) & ", ""y"")")
    Next i
    
End Sub

 

[KONYA42]

Hocam Teşekür ederim.