محتاج عند الكتابة في في العمد A إعطاء التاريخ اتوماتيك في العمود السادس وإعطاء الوقت في العمود السابع
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect (Target, Range ("A4:A3000")) Is Nothing Then
With Target (1, 6)
.Value = Format (Date, "YYYY/MM/DD")
‐---------‐-----------------------------------------
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect (Target, Range ("A4:A3000")) Is Nothing Then With Target (1, 7)
.Value = Format (time, "hh: mm")
End With
End If
On Error GoTo 0