Struggling with COUNTIFS function returning 0 when value expected

Hi guys

Sorry if this has been covered before, I trawled through as many threads as possible to try and resolve before posting.

I have a sub trying to populate metrics from a worksheet of raw data and inherited it with various excel formulae embedded in subsequent sheets. My solution so far works ok to a point, but for some reason when I start the next phase of the code, I'm not getting the results I expect. I've copied the sub initial dim lines and the first lines of the code that work ok. In the second extract i've copied in the line i'm having trouble with. Grateful for any help with possible solutions.

Sub MetricsPop()

Dim cumugp1flow As Long, numofgp1 As Integer, numoftasks As Integer, avallocflow As Double, avalloctouch As Double, nrow As Integer
Dim avgp1touch As Double, startweek As Date, endweek As Date, inwkallocflowtotal As Double, wkavalloctouch As Double, prevwkavalloctouch As Double
Dim wknumoftasks As Integer

'Find the number of rows
nrow = Worksheets("RawData").Cells(3, 1).End(xlDown).Row

'Update details with the number of tasks received
numoftasks = Application.WorksheetFunction.CountIf(ActiveWorkbook.Worksheets("RawData").Range("B3:B" & nrow), "<>")
Worksheets("Sheet1").Shapes("Rounded Rectangle 390").TextFrame.Characters.Text = numoftasks

'Now get weekly stats - start by establishing the start and end date of the current week
startweek = Date - ((Weekday(Date, vbMonday) - 1))
endweek = Date - Weekday(Date, vbMonday) + 5

'Update with the number of tasks received that week
wknumoftasks = Application.WorksheetFunction.CountIfs(ActiveWorkbook.Worksheets("RawData").Range("B3:B" & nrow), "<>", ActiveWorkbook.Worksheets("RawData").Range("S3:S" & nrow), ">" & startweek)
Worksheets("Sheet1").Shapes("Rounded Rectangle 65").TextFrame.Characters.Text = wknumoftasks

p.s. first post, so apologies if I've posted this wrong!

Hi Andy

Yes, the formula works fine when entered directly into a cell in one of the worksheets. What data extract would help?

Thanks
Dave

Unfortunately I'm limited as to what I can upload from work PC, are there any good workarounds for posting something useful that you are aware of? If not I'll email home and upload overnight.

Thanks for your interest and assistance.

Thanks Andy, will do.

I'm not sure if this attachment will work, but giving it a try.

Metrics.xlsm

Sorry guys, shameless thread-bump. Wondered it the attempted attachment worked ok and whether it had provided any further clarity on the problem.

Thanks

sorry about the last upload, try this one...Metrics.xlsm

Sorry Andy, got carried away sanitising the information. Yes, there would normally be data in column A and I thought I had changed it to include the first letter of the column B index, but obviously forgot that, i'll re-upload in a sec

Thanks Andy, that seems to do it!! Can't believe it was that simple in the end! (Presumably CInt would also work for dates without times?)

So how come it works in a worksheet comparing a date with a date but not in vba?

The line causing the problem is the line highlighted below:

'Update the Allocation Cell details with the number of tasks received that week
wknumoftasks = Application.WorksheetFunction.CountIfs(ActiveWorkbook.Worksheets("RawData").Range("B3:B" & nrow), "<>", ActiveWorkbook.Worksheets("RawData").Range("S3:S" & nrow), ">" & startweek)
Worksheets("Sheet1").Range("H34").Value = wknumoftasks