ـ 1 ) تفتح ملف الاكسل
ـ 2 ) تضغط على المفتاحين Alt + F11
تظهر لك نافذة المحرر
ـ 3 ) تضغط مرتين على اسم الورقة الموجود في اليسار و التي سميتها انت : العمالة
تقوم بنسخ الكود التالي :
Private Sub Worksheet_Change(ByVal Target As Range)
Lr = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To Lr
If Target.Column = 9 Then
If Cells(i, 9) <> "" Then
Cells(i, 10) = DateDiff("d", Cells(i, 9), Now)
Range("A2:J" & Lr).Sort Key1:=Cells(i, 10)
End If
End If
Next
End Sub
بدون عنوان.rar