Hi,

I want to set formula.I am trying like this

For i = intFrom To intTo

If ActiveSheet.Range(strModule & i).Text < "" Then

ActiveSheet.Range(strFrom & i).Formula =
"=SUM(IF(C17:C2000 = """ & ActiveSheet.Range(strModule & i).Text &
""",IF(J17:J2000 = "Fail" ,1,0)))"

Else

ActiveSheet.Range(strFrom & i).Value = 0

End If

Next i

I am getting error while I am using IF(J17:J2000 = "Fail",1,0) .What
would be the exact syntax.

And the other thing in this way I want get the sum of Fail where date
is like
{=SUM(IF(M17:M2000 = "12/2/2006",IF(J17:J2000 = "Fail",1,0),0))}
It also does not give the perfect result.

Plz.. help me in this matter

Regards,
Nil