استفسار بخصوص التاريخ فى الاكسيل

[abohana]

لو سمحتم 

انا عامل ملف اكسيل  انا  عامل ملف اضافة اسماء   بضيف كذا اسم  على ايام متفرقة  وفى خانة جنب كل اسم بكتب فيها  تاريخ اليوم اللى بضيف فيه كل اسم 

ينفع اعمل خانة التاريخ دى كل ما اكتب اسم يظهر التاريخ اتوماتيك ؟

مش عاوز ملف انا عاوز الطريقة عشان اعملها فى الملف بتاعى

وشكرا

تم الوصول للكود شكرا 

=IF(Z5<>"";TODAY();"")

هوا دا 

[حسين مامون]

Private Sub Worksheet_Change(ByVal Target As Range)
'
'
On Error Resume Next
If Not Intersect(Target, Range("a2:a10000")) Is Nothing Then
Target.Offset(, 1) = Format(Date, "dd-mm-yyyy")
End If
End Sub

ضع الكود في حدث الشيت 

ادخال البيانات في العمود 1 ويظهر التاريخ في العمود2