السلام عليكم
بعد إذن العمالقة إليك هذا الكود موجود ضمن ملف قام أحد الأعضاء بإرفاقه لي
مع الأخذ في الاعتبار بأن التاريخ هنا يظهر في العمود a بناءا على مدخلات في العمود b يمكنك تغييره ليتناسب مع طلبك
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
On Error Resume Next
If Not Intersect(Target, Range("b1:b60000")) Is Nothing Then
VBA.Calendar = vbCalGreg
If IsEmpty(Target) Then
Target(1, 2).Offset(0, -2).ClearContents
Else
With Target(1, 2).Offset(0, -2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End If
End Sub