Combine Subtotal with CountIfs

[Av8tordude]

I have this vba code below that I'm using to count, but I would like to use subtotal to count the number of visible filtered data. Can someone assist?

Thank you kindly.

CCP.Caption = WorksheetFunction.CountIfs(Range("D15:D" & LRow), ">=" & "01/01/" & cbYr, Range("D15:D" & LRow), "<=" & "12/31/" & cbYr)

 

[Eric W]

Try:

CCP.Caption = Evaluate("SUMPRODUCT(--(YEAR(D15:D" & LRow & ")=" & cbYr & "),SUBTOTAL(103,OFFSET(D15,ROW(D15:D" & LRow & ")-ROW(D15),0)))")

Note that I used YEAR() = cbYr instead of the >= <= construction, since it seems equivalent, but you can easily change it back if desired.