I am trying to do such Application Countifs like that
Code: Select all
Application.WorksheetFunction.CountIfs(sh.Range("C2:C" & lr), sGrade, sh.Range("D2:D" & lr), sClass, rngDateCol, Chr(34) & sAbsent & Chr(34))
Code: Select all
Set rngDateCol = sh.Range(sh.Cells(3, x), sh.Cells(lr, x))