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