بارك الله فيك أخي الحبيب حسام خطاب وجعل ما تقدمه في ميزان حسناتك يوم القيامة
دالة رائعة ومفيدة ومطلوبة للغاية

وفقك الله ويجعل ماتقدمة في ميزان حسناتك

جزاك الله كل خير
جهود مشكورة
انا في عني كود بعمل الجمع على حسب لون الخلية بس المشكلة اذا كتبت رقم على خلية بيضاء ثم لونتها اللون المخصص للجمع ما بحسبها الا اذا اضفت رقم جديد على نفس الصف او العامود او تنسخ التنسيق لخلية مثلها بنفس اللون " ما بعرف كيف بدي اوصلك الفكرة بتاعتي"
هذا الكود
​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
اريد بختصار الكود يتفعل كل مرة مجرد ما كتبت في الخلية وغادرتها " مجرد ما تغادر اي خلية يعمل الكود رن جديد لنفسة"

أخي الكريم موسى
أهلاً بك في المنتدى ونورت بين إخوانك
الأفضل إرفاق ملف مع توضيح المشكلة بالضبط حيث لم أفهم مقصدك
إذا كانت المشكلة في النتائج يمكنك الضغط على Ctrl + Alt + F9 لتحديث النتائج أو يمكنك تسجيل ماكرو بهذا الاختصار ووضعه في حدث تحديد خلايا ورقة العمل

وهذا رابط لموضوع آخر مشابه لربط الموضوعات ببعضها البعض
من هنا

ماشاء الله وفقك الله فى الدارين

جزاك الله خيرا استاذى الحبيب حسام
دائما فى قمة الابداع

السلام عليكم ورحمة الله وبركاته
ما شاء الله بارك الله ...بالتوفيق إن شاء الله

بارك الله فيك وجزاك اله الخير كله

رائعه جدا جدا أ/ حسام