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

[الـعيدروس]

السلام عليكم

اذا الكان الشرط للتنسيق الشرطي للمدى المحدد هو "Holiday"

فهذا التعديل للداله بيزبط معك ان شاء الله

Public Function Ali_Cond(ByVal My_r As Range, Cond As String, Nu_Colr As Long) As Long

Dim R As Range

Dim Ali_c As FormatConditions

Dim A_Dou As Double

Application.Volatile

A_Dou = 0

For Each R In My_r

Set Ali_c = R.FormatConditions

Select Case Ali_c(1).Interior.ColorIndex

		   Case Is = Nu_Colr And IIf(Cond = "", R.Offset(0, 1) = "Holiday" Or R.Offset(0, 2) = "Holiday", R.Text > "")

		   A_Dou = A_Dou + 1

End Select

Next

Ali_Cond = A_Dou

End Function

[zarouki2000]

الاخ عباد بارك الله فيك وزادك من علمك و اعطاك الصحة

و نفعنا الله بما علمك

شكرا لك اخى الكريم انت و كل من شارك و جعله الله فى ميزان حسناتكم