السلام عليكم
جزاك الله الف خير استاذ احمد زمان
بعد اذن الاستاذ احمد زمان
بالنسبة للخطاء يمشي حاله مع تمرير الخطاء
Sub Tanseiq()
on error resume next
Range("A7:I999").FormatConditions.Delete
Range("A7:I999").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=COUNTIF($E$6:$E$9999;$E7)>1"
Selection.FormatConditions(1).Interior.ColorIndex = 3
End Sub
انشاء الله يتنفذ الكود
والسلام عليكم