احتاج التاريخ تلقائي بس يثبت مايتغير

[فارس1987]

السلام عليكم 

تحيه طيبه للجميع واتشرف اني انضممت معاكم 

احتاج مساعدتكم يالخبراء في الاكسل 

عندي جدول في الاكسل لما ادخل الاسم في خانة العميل يطلع لي التاريخ في الخانه اللي قبلها 

بس المشكله مثلا يطلع لي تاريخ اليوم اسوي حفظ اليوم الثاني ابضيف اسم عميل جديد العميل اضفته البارح التاريخ يتغير 

انا ابغى كل ادخل يبقى تاريخه زي ماهوا مايتغير يعني تاريخ اليوم خلاص يكون ثابت ولما ادخل الادخال ثاني يوم يكون بتاريخ الجديد وكذا 

اتمنى تكونو فهمتوني لاني ما اعرف اشرح كويس ههههههههه

وشكرا لكم مقدما  

 

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

ارفع نموذج للعمل عليه

[نبيل عبد الهادي]

المفترض ان تقوم  بأرفاق ملف ..

عموما وحسب فهمي لطلبك ضع الكود التالي في حدث الورقة وعلى افتراض ان العمود A يمثل التأريخ والعمود B يمثل اسم العميل علما ان التأريخ هنا تلقائي ولكنه ليس متغير 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("B2:B100")) Is Nothing Then
        VBA.Calendar = vbCalGreg

        If Len(Target.Cells(1).Value2) <> 0 Then
            Cells(Target.Row, 1).Resize(Target.Rows.Count).Value = Date
        Else
            Cells(Target.Row, 1).Resize(Target.Rows.Count).Value = vbNullString
        End If
    End If
End Sub

 

[ناصرالمصرى]

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