مطلوب تحويل معادلة تاريخ الى كود

[nash60]

                                                        بسم الله الرحمن الرحيم

 

السلام عليكم ورحمة الله وبركاته :

 

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

 

بالملف توضيح اكثر للمطلوب

 

                     مع جزيل الشكر

من صيغة تاريخ الى نص.rar

[nash60]

السلام عليكم ورحمة الله وبركاته :

 

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

 

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

 

والشكر للجميع

من صيغة تاريخ الى نص .........2.rar

[الـعيدروس]

او هكذا في حدث التغير

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [A2:A1000]) Is Nothing Then

If IsDate(Target) Then Target.Offset(0, 1).Value = Format(Target, "yyyymmdd")

End If

End Sub

[nash60]

شكرا لمرورك اخي عباد وافادتك لنا

وجزاك الله عنا الف خير