I get 435984, but you may want to amend the code to
[vba]
Cells(j + 1, 13) = ActiveSheet.Evaluate("SUMPRODUCT((A3:A300>=""" & _
Format(StartDate, "yyyy-mm-dd") & """),--(B3:B300=""" & _
tCatName(j) & """),C3:C300)")
[/vba]
I get 435984, but you may want to amend the code to
[vba]
Cells(j + 1, 13) = ActiveSheet.Evaluate("SUMPRODUCT((A3:A300>=""" & _
Format(StartDate, "yyyy-mm-dd") & """),--(B3:B300=""" & _
tCatName(j) & """),C3:C300)")
[/vba]
Posting Permissions
Reply With Quote