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]

Your interval is backwards..

DateDiff((Cells(nRow, 7).Value), Date, "d")

Should be

DateDiff("d",(Cells(nRow, 7).Value), Date)

 

[wsjackman]

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.

you have the datediff order wrong

datediff("d",...
the interval goes first in 2007 at least
the worksheet fuctiopn datedif has the "d" at the end

 

[csand]

Sheets("CopyPaste").Select
If ((DateDiff("d", (Cells(nRow, 7).Value), Date) > 1) & ((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.

 

[phxsportz]

When it bugs out.. hit DEBUG

Then in the immediate window type
? typename(Cells(nRow, 7).Value)
and ensure that it's a date

do the same for Cells(nRow, 8).Value

 

[csand]

phx, thanks for the help.

I just tried your command in the debugger, and both cells give me the first cell's value (the second cell has a different value).

 

[phxsportz]

if

? typename(Cells(nRow, 7).Value)

returns anything other then DATE then your formula won't work

 

[csand]

When I type that in it replaces the text with "7/1/2008" in red font.

Is that a valid value?

 

[phxsportz]

Where are you typing this into ? Not the procedure window.. should be in the IMMEDIATE window.

If you don't see this window.. hit CONTROL+G

 

[csand]

Okay, i'm sorry for the confusion. I typed in the immediate window and both returned as Date on the next line when I pressed enter.