اخي
اليك مرفق من اعمال اساتذة المنتدى ، ومن مقتنياتي لأعمالهم الذهبية
.. احاول رفع المرفق ،، ولكن يوجد عطل يعيق الرفع
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo t_time
If Target.Column = 1 Then Cells(Target.Row, 3) = Now
t_time:
Application.EnableEvents = True
Application.ScreenUpdating = False
End Sub
تعذر ارفاق الملف .. فأرسلتلك الكود عسى ان يفيدك
.. دعواتك .. ربنا يهدي الحال
auto date.rar
auto date.rar