Yaş Güncelleme

[1Al2Ver]

Merhaba,

Tüm veriler, "KAYITLAR isimli sayfaya, diğer bir sayfadan, makro ile alınmaktadır.

Aylar/Yıllar geçtikçe, doğum tarihine göre yaşın ("F" sütunu) artacağı düşünüldüğünde, bir düğme ile sütunu yenileyip, kişinin güncel yaşına ulaşmak istiyorum.

Bu işlem için 1500 satırlık bir kod rica ediyorum.

Teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Yas_Hesapla()
    With Sheets("KAYIT")
        With .Range("F2:F" & .Cells(.Rows.Count, 2).End(3).Row)
            .Formula = "=DATEDIF(H2,TODAY(),""y"")"
            .Value = .Value
        End With
    End With
End Sub

 

[1Al2Ver]

Sayın Korhan AYHAN, merhaba,

Çözüm ve ilginiz için çok teşekkür ederim, sağ olun,

Saygılarımla.