السلام عليكم
الاخ الحبيب / ابو حبيبة وحنين
بارك الله فيك
علي حسب علمي انه في هذه الحاله استخدام الكود يكون افضل بكثير من المعادلة
لضمان النتيجة المرجوه من الكود
واضافة لحل الاساتذة الكبار ... ولاثراء الموضوع شاهد المرفق التالي
ان شاء الله يفي بطلبك
جزاك الله خيرا
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("a3:a23")) Is Nothing Then
VBA.Calendar = vbCalGreg
If IsEmpty(Target) Then
Target(1, 2).ClearContents
Else
With Target(1, 2)
.Value = Date
.EntireColumn.AutoFit
End With
End If
End If
End Sub
ملفات مرفقة 2003
كود تاريخ لا يتغير بتغير تاريخ الجهاز.rar