جزاك الله كل خير
جهود مشكورة
انا في عني كود بعمل الجمع على حسب لون الخلية بس المشكلة اذا كتبت رقم على خلية بيضاء ثم لونتها اللون المخصص للجمع ما بحسبها الا اذا اضفت رقم جديد على نفس الصف او العامود او تنسخ التنسيق لخلية مثلها بنفس اللون " ما بعرف كيف بدي اوصلك الفكرة بتاعتي"
هذا الكود
Function musa(cellcolor As range, sumrange As range)
Dim crit As Integer
Dim range As range
crit = cellcolor.Interior.ColorIndex
For Each range In sumrange
If crit = range.Interior.ColorIndex Then
musa = musa + range.Value
End If
Next range
End Function
اريد بختصار الكود يتفعل كل مرة مجرد ما كتبت في الخلية وغادرتها " مجرد ما تغادر اي خلية يعمل الكود رن جديد لنفسة"