جمع الخلايا ذات اللون الواحد مع التحديث والترتيب التلقائى

[hamdi.ahmed]

السلام عليكم ورحمة الله وبركاته ..اخوانى الاعزاء ..الملف المرفق يوضح مدة مديونية عميل ما 

اتمنى من حضراتك عمل تجميع فى الصف # 1003 من العمود ( K )  ..كل خلية على حسب لونها مع التحديث وشرح كيفية عمل ذلك

ايضا اريد عمل ترتيب تلقائى بحيث انه اذا دفع العميل ومسحت انا بعض الفواتير تقوم باقى الفواتير للصعود الى اعلى بشكل تلقائى او يتم ترتيبها من الاقدم الى الاحدث بشكل تلقائى مع شرح الفكرة ايضا ..ولكم جزيل الشكر ،،،

انتبه من فضلك ..فقد تم اعادة رفع الملف بإمتداد Xlsm ,, وذلك لأن طلبك لا يمكن تنفيذه الا بالأكواد

AGGING FILE.xlsm

[hamdi.ahmed]

انا استخدمت الكود التالى 

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

لكن الكود يعمل بشكل جيد على الالوان اليدوية ..ولا يعمل على الوان التنسيق الشرطى ...ارجو المساعدة