تغيير لون خلية بشرط موجود في خلية أخرى

[احمد محمود عبد الفتاح]

السلام عليكم

المطلوب تغيير لون خلية بشرط موجود في خلية أخرى

مرفق ملف يشرح المطلوب

شكراً مقدماً

تلوين خلية بشرط.rar

[سليم حاصبيا]

جرب هذا الماكرو

Sub Talween()
  Lr = Sheets("sheet1").Cells(Rows.Count, 3).End(3).Row
  If Lr < 2 Then Lr = 2
  Sheets("sheet1").Range("b2:b" & Lr).Interior.ColorIndex = 0
  m = 2
For i = 2 To Lr
 If IsNumeric(Range("c" & i)) Then
 x = (Abs(Range("c" & i).Value) + 1) Mod 56 + 1
 Range("b" & i).Interior.ColorIndex = x + m
 End If
Next
End Sub

 

تم تعديل مارس 18, 2017 بواسطه سليم حاصبيا