كتابة التاريخ تلقائيا

[على حسن]

اريد كتابة التاريخ تلقائيا عند كتابة اى رقم فى العمود a

كتابة التاريخ تلقائيا.xlsx

[Ali Mohamed Ali]

تفضل

 

كتابة التاريخ تلقائيا.xlsx

[سليم حاصبيا]

جرب هذا الماكرو (اذا كانت  B الخلية فارغة سوف يدرج التاريخ  والا لا يتم ادراجه)

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Column = 1 And IsEmpty(Cells(Target.Row, 2)) _
                And Target.Row > 1 Then

    Application.EnableEvents = False
    Cells(Target.Row, 2).Value = Date
    Cells(Target.Row, 3).Value = Time

End If
Range("B:C").EntireColumn.AutoFit
    Application.EnableEvents = True
End Sub

الملف مرفق

التاريخ تلقائيا.xlsm

[أبوســـارة1973]

تفضلوا المطلوب بطريقة أخرى ( vba)

mustafa_auto_date_code.xlsm

[أحمد يوسف]

اخى ابو سارة بالتأكيد ملف حضرتك مازال يحتاج تعديل

لأنه يقوم بتغيير وتعديل حتى التواريخ القديمة عند اى ادخالات جديدة وهذا بالطبع غير مطلوب

[على حسن]

استاذ ابو ساره شكرا للمساعده 

لكن بعد اذنك تعديل الكود والشرح لنستفيد جمعنا 

وجزاك الله خيرا