Hi,

I'm a bit unsure of this. The ranges you are setting in you code seem to
bear no relation to the ranges of your data. In any case I wouldn't use a
worksheet function in Vb to do this. Try this instead

Note because I don't know eher you get opstk and partno from for this code I
read them from the worksheet.

Sub standard()
Dim opstk As Date
opstk = Range("D1").Value
partno = Range("D2").Value
LastRow = Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row
Set rnga = Range("A2:A" & LastRow)
For Each c In rnga
If IsDate(c) And c.Value = opstk And c.Offset(, 1).Value = partno Then
s = s + c.Offset(, 2).Value
End If
Next
MsgBox s
End Sub

Mike

"Vikram Dhemare" wrote:

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