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