sumbycolor problem

[Mahmoudhamed]

 

 

السلام عليكم 

عندي مشكلة في معادلة sumbycolor

بعض الأحيان حينما أغلق الملف وأعيد فتحه أجد المعادلة لا تعمل بشكل صحيح كما في الصورة




 

Function SumByColor(CellColor As Range, SumRange As Range)
Application.Volatile
Dim ICol As Integer
Dim TCell As Range
ICol = CellColor.Interior.ColorIndex
For Each TCell In SumRange
If ICol = TCell.Interior.ColorIndex Then
SumByColor = SumByColor + TCell.Value
End If
Next TCell
End Function

هل هناك أحد يمكنه مساعدتى !!!

[حسونة حسين]

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

تأكد ان الحساب اوتوماتيكي وليس يدوى من اعدادات الحساب 

ان لم يكن المطلوب يرجي رفع ملف