حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي

[Ahmed_J]

السلام عليكم

لدي ملف لاحد الاخوة  بالموقع حول حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي وهو يعمل بشكل صحيح 

لكن عند عمل تنسيق شرطي للتاريخ يظهر خطا بالنتيجة , ارجو تصحيح الخطا وبيان سبب المشكلة  ... وشكرا لكم

حساب عدد الخلايا باللون الاحمر حسب تنسيق شرطي.xlsm

[سليم حاصبيا]

جرب هذا الملف

Option Explicit
Sub Salim_color(rg As Range, _
      k As Byte, n As Byte, _
      Optional m As Long)
Dim i
If IsMissing(m) Then m = xlNone
If Val(k) <= 0 Or k > 12 Then k = 12
k = Abs(k)
  If IsDate(rg) Then
    i = IIf(Month(rg) = k, n, m)
    rg.Interior.ColorIndex = i
   Else
   rg.Interior.ColorIndex = xlNone
  End If

End Sub
'+++++++++++++++++++++++++++++++++++
Sub CKect_Up()
Dim x%, y%
With Sheets("Sheet1")
x = .Cells(Rows.Count, "C").End(3).Row
For y = 1 To x
 Call Salim_color(.Cells(y, "C") _
    , .Range("H2"), .Range("G2") _
    , .Range("F2"))
Next
 End With
End Sub

Ahmmed.xlsm

[Ahmed_J]

السلام عليكم استاذي الرائع @سليم حاصبيا

تسلم ايدك يا استاذي الكبير

فقط اريد ان اوضح طلبي في الملف الاصلي

انا عامل تنسيق لوني للتاريخ لمجموعة من الخلايا  عند وصول التاريخ لتاريخ معين يتغير لونه للاحمر

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

مع كل التقدير والاحترام 

[سليم حاصبيا]

تم التعديل كما تريد

Option Explicit
Dim cnt%
Sub Salim_color(rg As Range, _
      k As Byte, n As Byte, _
      Optional m As Long)
Dim i
If IsMissing(m) Then m = xlNone
If Val(k) <= 0 Or k > 12 Then k = 12
k = Abs(k)
  If IsDate(rg) Then
    i = IIf(Month(rg) = k, n, m)
    If i = n Then cnt = cnt + 1
    rg.Interior.ColorIndex = i
   Else
   rg.Interior.ColorIndex = xlNone
  End If

End Sub
'+++++++++++++++++++++++++++++++++++
Sub CKect_Up()
Dim x%, y%
cnt = 0
With Sheets("Sheet1")

x = .Cells(Rows.Count, "C").End(3).Row
For y = 1 To x
 Call Salim_color(.Cells(y, "C") _
    , .Range("H2"), .Range("G2") _
    , .Range("F2"))
Next
.Range("B2") = IIf(cnt = 0, "", cnt)
 End With
End Sub

Ahmmed_1.xlsm

[Ahmed_J]

شكرا لك استاذي العزيز @سليم حاصبيا

تسلم ايدك الملف ممتاز جدا 

اذا لم يكن فيا احراج  انا تعبتك معي كثير

هل ممكن 1- تثبيت خلفية الخلية باللون الاحمر  ولون الخط الامامي ابيض غامق في الوحدة النمطية  ولا احتاج الخلية (G3)

                2- تثبيت الشهر الحالي (شباط)  او رقمه (2) في الوحدة النمطية  ولا احتاج الخلية (H2)

                3- يعمل الكود اثناء فتح الملف ولا احتاج الى زر لعمل ذلك

                4- الغاء عمل الخلية (F2) لاني لااحتاجها

الله يبارك فيك استاذي العزيز

وشكرا لك

Ahmmed_1 (1).xlsm

[سليم حاصبيا]

تم العمل كما تريد

New_Ahmmed.xlsm

[Ahmed_J]

شكرا لك استاذي العزيز @سليم حاصبيا

بارك الله فيك