وعليكم السلام أخي المتميز زيزو العجوز
بارك الله فيك وجزاك الله خيراً على هذه الهدايا القيمة
تقبل وافر تقديري واحترامي

موضوع رائع من شخص رائع جزاك الله خيرا
استاذنا زيزو ممكن انشاء فورم لعمل نفس الشيء ثم ترحيل الى صفحة العمل

السلام عليكم ورحمة الله
الف الف شكر استاذنا زيزو
المرفق فيه فورم ك ما اريد ويمكنكم التعديل عليه حسب المطلوب
حساب السن.rar

وعليكم السلام أخي الكريم حسين
رجاءً لا طلبات في المشاركات الفرعية
قم بطرح طلبك في موضوع مستقل حفاظاً على نظام المنتدى .. سيتم حذف المشاركة الأخيرة بعد طرحك للموضوع إن شاء الله

Sub CalcDate()
Dim i As Long, LR As Long
LR = Range("A" & Rows.Count).End(xlUp).row
Sheets("DatedIff").Range("B3:D" & LR + 2).ClearContents
For i = 3 To LR
If Range("A" & i) <> "" Then
Cells(i, 2) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """ , ""md"")"
Cells(i, 2).Value = Cells(i, 2).Value
Cells(i, 3) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """, ""ym"")"
Cells(i, 3).Value = Cells(i, 3).Value
Cells(i, 4) = "=DATEDIF(""" & Range("A" & i) & """,""" & Range("H1") & """, ""y"")"
Cells(i, 4).Value = Cells(i, 4).Value
End If
Next
End Sub

برجاء من الاستاذ المحترم زيزو العجوز .. ان يشرح الاسطر حتى نتمكن من تطويع الكود في الملفات المختلفه ... وجزاك الله خيرا
او تضع المتغيرات التي يجب تغييرها في اول الكود
جزاك الله خيرا وبارك فيك

ماكرو جميل و مختصر بارك الله فيك

رائع اخونا الكريم زيزو... بارك الله فيك.

الاستاذ المحترم زيزو العجوز شكراً جزيلا علي هذا الملف

جزاك الله خيراً

ممتاز اخي ابرهيم
لكن عندي ملاحظتين بالنسبة للكود
1- حاول استعمال الخاصية With.....End With بهذه الحالة الكود يكون اسرع بكثير
​2 - لا لزوم لاستعمال دالة .Value=.Value عند كل قيمة للمتغير 3 مرات ( أقصد المتغير i)
يكفي استعمالها مرة واحد في نهاية الكود (.Range("A2:D" & LR).Value =.Range("A2:D" & LR).Value)
فيصبح الكود بهذا الشكل

Option Explicit
Sub CalcDate()
Dim i As Long, LR As Long
With Sheets("DatedIff")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
         .Range("B2:D" & LR + 1).ClearContents
   For i = 2 To LR
     With .Range("A" & i)
        If .Value <> vbNullString Then
           .Offset(, 1) = _
          "=DATEDIF(""" & .Value & """,""" & Range("H1") & """ , ""md"")"
           .Offset(, 2) = _
          "=DATEDIF(""" & .Value & """,""" & Range("H1") & """, ""ym"")"
          .Offset(, 3) = _
          "=DATEDIF(""" & .Value & """,""" & Range("H1") & """, ""y"")"
        End If
     End With
   Next
    .Range("A2:D" & LR).Value = _
    .Range("A2:D" & LR).Value
End With
End Sub