كتابة التاريخ تلقائيا دون ان يتغير

[أبو عبد الملك السوفي]

السلام عليكم اساتذتنا الكرام

لو سمحتم اساتذتنا الكرام اود في الملف المرفق عند كتابة المبلغ في الخلية d  يكتب التاريخ و الساعة الحالية في الخليتان b c

بشرط انه لو عدت وغيرت المبلغ في تاريخ لاحق لا يتغير التاريخ السايق

مثلا لو اردت تغيير المبلغ في الصف الاول فلا يتغير التاريخ والوقت

ملف.rar

[Ali Mohamed Ali]

تفضل لك ما طلبت

 

معادلة لتثبيت التاريخ والوقت.xlsx

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

جرب هذا الكود

Option Explicit

Private Sub Worksheet_change(ByVal Target As Range)

If Target.Column = 4 And IsEmpty(Cells(Target.Row, 3)) _
    And IsEmpty(Cells(Target.Row, 2)) And Target.Row > 1 Then
    Application.EnableEvents = False
   With Target
        .Offset(, -1) = Date
        .Offset(, -2) = Time
        .Offset(, -3) = Target.Row - 1
    End With
End If
    Application.EnableEvents = True
End Sub

الملف مرفق

Auto_date.xlsm

[أبو عبد الملك السوفي]

السلام عليكم

جزاك الله خيرا استاذ علي فكرة جميلة لم تخطر ببالي ...جزاك الله كل خير

استاذ سليم هذا هو المطلوب لكن اريد عند الرجوع للخلية d  ومسحها يختفي التاريخ ...اي شرط ظهور التاريخ ان تكون الخانة d مملوءه فاذا كانت فارغة لا يظهر التاريخ

 

تم تعديل سبتمبر 12, 2018 بواسطه أبو عبد الملك السوفي