اضافة كود الوقت والتاريخ عند ادخال بيانات فى خلية

[هشام جمال الدين]

الرجاء اضافة كود

عند ادخال بيانات فى عمود كود الحضور يتم اضافة الوقت فى عمود موعد الحضور 

وكذلك الانصراف

وكود لكتابة التاريخ تلقائى فى عمود التاريخ ايضا بمجرد كتابة كود الحضور 

وشكرا جزيلا

كود تفعيل الوقت والتاريخ.xlsx

[هشام جمال الدين]

اذا امكن تفعيل هذا الكود

Private Sub Worksheet_change (ByVal Target As Range)
On Error GoTo zz
If Target.Column = 2 And Target.Value <> "" Then
Application. EnableEvents = False
Target.offset (0, -1) = Format (Now (), "dd-mm-yyyy hh:mm:ss")
 Application.EnableEvents = True
End If
zz:
End Sub