اريد كود لطرح التواريخ

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طيبه وبعد

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

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

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

DATE.rar

[أبو حنــــين]

انسخ هذا الكود في ورقة العمل

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 4 Then
If Not IsEmpty(Target) Then
Target.Offset(0, 1) = DateDiff("d", Target.Offset(0, -1), Target) & " -NTS"
Target.Offset(0, 2) = Format(Target.Offset(0, -1), "dddd")
End If
End If
End Sub

[إبراهيم ابوليله]

الاخ ابو حنين

مشكورا على الرد

وكن ما معنى

DateDiff("d"

وهل يمكن تحديد نطاق بدى من العمود بالكامل

بمعنى تحديد نطاق استخراج البيانات من d5:D100

على سبيل المثال

[ميدو63]

ممكن أضافة على شيت اكسيل

[إبراهيم ابوليله]

تفضل يأ خى

 

DATE.rar