وعليكم السلام ورحمة الله تعالى وبركاته
يمكنك ذالك بتعديل كود إفراغ البيانات السابقة بهذا الشكل فقط ليتجاهل إفراغ عمود M
With Union(sh.Range("K6:L64"), sh.Range("P6:Q64"))
.FormatConditions.Delete
.ClearContents
End With
لتضمينها داخل الكود
With sh
.Range("M3").Formula = "=COUNTIF(M6:M37, ""حضور"") + COUNTIF(R6:R37, ""حضور"")"
.Range("N3").Formula = "=COUNTIF(M6:M37, ""غياب"") + COUNTIF(R6:R37, ""غياب"")"
.Range("P3").Formula = "=COUNTIF(M6:M37, ""اجازة"") + COUNTIF(R6:R37, ""اجازة"")"
.Range("Q3").Formula = "=IF(SUM(N6:N37, S6:S37) = 0, """", SUM(N6:N37, S6:S37))"
End With
COUNTIF.xlsm