تلوين خلايا

[كله على الله]

ارجو المساعده فى شيت اكسيل

هام.rar

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدم الكود التالى

Sub Cold_Cells()
i = 2
Do While i <= 30
For Each c In Range("F2:F8")
If Cells(i, 9) = c.Value Then
Cells(i, 9).Interior.ColorIndex = 6
End If
Next
i = i + 1
Loop
End Sub

 

[أبوعيد]

وهذا حل يالتنسيق الشرطى

 

هام.xlsx

[كله على الله]

شكرا جزيلا لحضرتك .. العمل ده هيوفر شغل كتير معايا جدا