Yaş Hesaplama

[metin_0606]

Değerli üstatlar çalışma sayfamın A sütununda gün ay yıl şeklinde doğum tarihleri var. Benim yapmak istediğim B sütununa yaşları yazdırmak. Tabiki hesaplama yaparken gün ve ayıda hesabın içine katsın istiyorum. Yardımlarınız için şimdiden teşekkürler

 

[çıtır]

B2 Hücresine kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER($A2<>"";ETARİHLİ($A2;BUGÜN();"y");"")

 

[metin_0606]

B2 Hücresine kopyalayınız.Aşağı doğru çoğaltınız.

=EĞER($A2<>"";ETARİHLİ($A2;BUGÜN();"y");"")

Teşekkürler sayın çıtır hocam bunu makro ile de yapmak mümkün mü acaba çünkü listem sürekli artmakta

 

[çıtır]

Bu şekilde olabilir.

Sub yashesapla()
Dim s1 As Worksheet: Dim i As Integer
Dim son As Long
Set s1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
son = s1.Cells(63555, "A").End(3).Row
s1.Range("B2:B" & son).ClearContents
For i = 2 To son
If Range("A" & i) <> "" Then
 s1.Range("B" & i).Formula = "=DATEDIF(A" & i & ",TODAY(),""Y"")"
 s1.Range("B" & i).Value = s1.Range("B" & i).Value
 End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub

 

[Necdet]

Merhaba,
Alternatif olsun.

Sub Makro1()

    Dim i As Long
   
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Not Cells(i, "A") = "" Then _
        Range("B" & i).FormulaR1C1 = _
            "=DATEDIF(RC[-1],TODAY(),""Y"") & "" YIL "" & DATEDIF(RC[-1],TODAY(),""YM"") & "" AY "" & DATEDIF(RC[-1],TODAY(),""MD"") & "" GÜN"""
    Next i
   
End Sub

 

[metin_0606]

Bu şekilde olabilir.

Sub yashesapla()
Dim s1 As Worksheet: Dim i As Integer
Dim son As Long
Set s1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
son = s1.Cells(63555, "A").End(3).Row
s1.Range("B2:B" & son).ClearContents
For i = 2 To son
If Range("A" & i) <> "" Then
s1.Range("B" & i).Formula = "=DATEDIF(A" & i & ",TODAY(),""Y"")"
s1.Range("B" & i).Value = s1.Range("B" & i).Value
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub

Teşekkürler sayın çıtır tam istediğim gibi çok teşekkür ederim

 

[metin_0606]

Merhaba,
Alternatif olsun.

Sub Makro1()

    Dim i As Long
  
    For i = 2 To Cells(Rows.Count, "A").End(3).Row
        If Not Cells(i, "A") = "" Then _
        Range("B" & i).FormulaR1C1 = _
            "=DATEDIF(RC[-1],TODAY(),""Y"") & "" YIL "" & DATEDIF(RC[-1],TODAY(),""YM"") & "" AY "" & DATEDIF(RC[-1],TODAY(),""MD"") & "" GÜN"""
    Next i
  
End Sub

Teşekkürler necdet bey bu makroyuda arşivime aldım

 

[çıtır]

Teşekkürler sayın çıtır tam istediğim gibi çok teşekkür ederim

Rica ederim.Dönüş yaptığınız için teşekkür ederim.