I am trying to evaluate sumproduct function with multiple conditions wherein
the system not satisfying the date condition. Can anybody help.
The columns I have is

A B C
Date & Time Partno Qty
27/09/08 18:52 FMGM0631 100.00
27/09/08 18:52 B1010059 200.00
30/09/08 18:52 FMGM0631 200.00

I am trying the follwign Code
Dim opstk As Date
With sheets("Recpt")
LastRow = .Cells(Rows.Count, 1) _
.End(xlUp).Offset(0, 0).Row
Set rngE = .Range("F2:F" & LastRow)
Set rngB = .Range("B2:B" & LastRow)
Set rngJ = .Range("G2:G" & LastRow)
On Error GoTo 0
s = "Sumproduct((" & r & rngE.Address & "=""" & partno & """)*" & _
"(" & r & rngB.Address & "=" & CDbl(opstk) & ")," & _
"(" & r & rngJ.Address & "))"
MsgBox s
m = Evaluate(s)
But the date condition is not satisfying in this case.
The variable is defined as date. Is I am going wrong. Help needed.

--
Thanks,
Vikram P. Dhemare