كود فيجواال بيسك للتاريخ والساعة

[koko1512]

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

Book1.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim x%
If (Target.Column >= 3 Or Target.Column <= 6) _
    And Target.Count = 1 Then
    If IsEmpty(Cells(Target.Row, 1)) Or IsEmpty(Cells(Target.Row, 2)) Then
        x = Application.CountA(Range(Cells(Target.Row, 3), Cells(Target.Row, 6)))
           If x = 4 Then
               Cells(Target.Row, 1) = Date + Time
               Cells(Target.Row, 2) = Application.UserName
           End If
      End If
End If
Application.EnableEvents = True
End Sub