تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة ادخال التاريخ تلقائيا فى خليه
تم ارفاق كود الحل من الفاضل ا / أبوعبد الله
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 15).Value = Date
End If
End Sub
مرفق الملف و الشرح
_____________.rar
و لا تنسونا من صالح الدعاء
تحياتى