TimeDiff Type Mismatch

[csand]

If ((DateDiff((Cells(nRow, 7).Value), Date, "d") > 1) & ((DateDiff(Date, (Cells(nRow, 8).Value), "d")) > 1)) Then
            Sheets("Sheet").Cells(nRow, 33) = "Active"
End If

When my macro runs through the above code, I get a type mismatch error. All of the cells are formatted at Date only.

Any ideas?

Thank you.

 

[phxsportz]

Then the only thing left is "NROW" must be integer

 

[Norie]

If you want to check for a date use IsDate.

Also make sure you are referring to the correct worksheet when you use Cells(nRow, 7).Value etc

Without a worksheet reference then that's going to refer to what VBA considers as the active sheet.

Another thing to check for is errors, if these 'dates' are the results of formulas that could be possible.

 

[wsjackman]

Sheets("CopyPaste").Select
If ((DateDiff("d", (Cells(nRow, 7).Value), Date) > 1) [COLOR=red][B]&[/B][/COLOR] ((DateDiff("d", Date,(Cells(nRow, 8).Value))) > 1)) Then
            Sheets("Sheet").Cells(nRow, 33) = "Active"
End If

I change the code and still have the same error.

I think you have an "&" where there should be a "+"

 

[phxsportz]

Also... just noted your operator is wrong in the formula..

Should be one of the following<>= AND OR not & this is a concatenator operand

 

[Norie]

Actually I think the & might want to be an And.

That is if you are trying some sort of logical operation.

 

[csand]

The & was in fact the problem. As soon as I changed to And it worked.

Thanks all!