مشكلة في تغيير لون الخلية بالكود عندما تكون قيمة الخلية تساوي صفر

[alaamun]

السلام عليكم

ارجو من الاخوان المساعدة ... في الملف المرفق يوجد كود لتلوين الخلايا في عمود رقم 9 باللون الاحمر عندما تكون نتيجة الخليه تساوي صفر حيث ان ناتج الخليه هوة ناتج عمليه طرح

فعندما يكون ناتج الطرح مساوي لصفر يجب ان تتلون الخليه باللون الاحمر و لكن المشكله ان الكود يعمل في خليه و لا يعمل في اخرى و لا اعرف حل لهذه المشكلة .... و شكرا

alaa.rar

[عادل حنفي]

السلام عليك

اخي

هذا هو ملفك

تحياتي

alaa.rar

[alaamun]

شكرا اخي العزيز لكن المشكله لا تزال قائمة اضافة انه نتيجة الخليه تاتي نتيجة عملية طرح خلية من اخرى و عندما تكون النتيجة صفر بختلف اللون الى الاحمر فانا لا اريد ان اكتب في

لبعمود رقم تسعة ابدا لكن اريد النتائج عمليه الطرح تظهر فيه و عندما تكون صفر تظهر بلون احمر و شكرا

[ابو اسامة العينبوسي]

السلام عليكم

ان تقول للكود اذا لم اكن في العمود تسعه انهى العمليه لذلك طبعا لن يعمل

Private Sub Worksheet_Change(ByVal Target As Range)

'If Target.Column <> 9 Then Exit Sub

If Range("I" & Target.Row).Value = 0 Then
 Range("I" & Target.Row).Interior.ColorIndex = 3
Else
 Range("I" & Target.Row).Interior.ColorIndex = 0
End If

End Sub

[alaamun]

شكرا جزيلا لكم لكن لا اجد فرق بالحلول المقدمه من قبلكم ..........ممنون

[عادل حنفي]

السلام عليكم

اخي لم نفهم ماقلته في البداية

عموما مرفق ملف به ملفان رقم 1 التعديل الذي قمت به ليكون التغير وفقا للناتج

و علي فكره انا جرب ايضا كود الاخ الفاضل ابو اسامه و هو يعمل ايضا

مرفق ملف رقم 2 بكود الاخ ابو اسامه

تحياتي

alaa_color.rar