الأخوة الأعزاء
تحية طيبة ،،،،،
بالملف المرفق يوجد كود كالتالى :-
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRange As Range
Set myRange = [D5:P141]
If Intersect(Target, myRange) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.Calculat...