I'm getting a runtime error '13':
Type Mismatch

The code is:

Function UsageLog_1()

' Stores who and when on Sheet1, column C
Sheets("UsageLog").Select

If Range("C5600").End(xlUp).Row = 1 And Range("C5600").End(xlUp).Value =
"" Then <===== This is the line which is highlighted for the error
Range("C5600").End(xlUp).Value = "Last opened by " &
Environ("username") & " at " & Now
Exit Function
End If

Range("C5600").End(xlUp).Offset(1, 0).Value = "Last opened by " &
Environ("username") & " at " & Now

ThisWorkbook.Sheets("COVER").Activate
End Function

Thanks in advance

What's in cell C1? I also get a type mismatch if I've got #N/A in C1, for
instance. If it's blank or alphanumeric, this seems okay.

"CurtH" wrote:

I'm getting a runtime error '13':
Type Mismatch

The code is:

Function UsageLog_1()

' Stores who and when on Sheet1, column C
Sheets("UsageLog").Select

If Range("C5600").End(xlUp).Row = 1 And Range("C5600").End(xlUp).Value =
"" Then <===== This is the line which is highlighted for the error
Range("C5600").End(xlUp).Value = "Last opened by " &
Environ("username") & " at " & Now
Exit Function
End If

Range("C5600").End(xlUp).Offset(1, 0).Value = "Last opened by " &
Environ("username") & " at " & Now

ThisWorkbook.Sheets("COVER").Activate
End Function

Thanks in advance

C1 is filled with: Last opened by chasan at 12/27/2005 3:43:08 PM

The log is suppose to annotate who accesses the files upon exiting the file.
So, the log move to the next blank line and enters the data.

"CurtH" wrote:

I'm getting a runtime error '13':
Type Mismatch

The code is:

Function UsageLog_1()

' Stores who and when on Sheet1, column C
Sheets("UsageLog").Select

If Range("C5600").End(xlUp).Row = 1 And Range("C5600").End(xlUp).Value =
"" Then <===== This is the line which is highlighted for the error
Range("C5600").End(xlUp).Value = "Last opened by " &
Environ("username") & " at " & Now
Exit Function
End If

Range("C5600").End(xlUp).Offset(1, 0).Value = "Last opened by " &
Environ("username") & " at " & Now

ThisWorkbook.Sheets("COVER").Activate
End Function

Thanks in advance

When the error occurs, what row has been selected by the end(xlUp)? In the
immediate window, what is the result of print range("c5600").End(xlUp).Row?
And what is in column C of that row? Even if the first condition of the AND
fails, Excel likes to evaluate the second condition, so an error in that cell
would also cause problems.


"CurtH" wrote:

I'm getting a runtime error '13':
Type Mismatch

The code is:

Function UsageLog_1()

' Stores who and when on Sheet1, column C
Sheets("UsageLog").Select

If Range("C5600").End(xlUp).Row = 1 And Range("C5600").End(xlUp).Value =
"" Then <===== This is the line which is highlighted for the error
Range("C5600").End(xlUp).Value = "Last opened by " &
Environ("username") & " at " & Now
Exit Function
End If

Range("C5600").End(xlUp).Offset(1, 0).Value = "Last opened by " &
Environ("username") & " at " & Now

ThisWorkbook.Sheets("COVER").Activate
End Function

Thanks in advance

Thanks! You got me to think and figured it out.

"bpeltzer" wrote:

When the error occurs, what row has been selected by the end(xlUp)? In the
immediate window, what is the result of print range("c5600").End(xlUp).Row?
And what is in column C of that row? Even if the first condition of the AND
fails, Excel likes to evaluate the second condition, so an error in that cell
would also cause problems.


"CurtH" wrote:

I'm getting a runtime error '13':
Type Mismatch

The code is:

Function UsageLog_1()

' Stores who and when on Sheet1, column C
Sheets("UsageLog").Select

If Range("C5600").End(xlUp).Row = 1 And Range("C5600").End(xlUp).Value =
"" Then <===== This is the line which is highlighted for the error
Range("C5600").End(xlUp).Value = "Last opened by " &
Environ("username") & " at " & Now
Exit Function
End If

Range("C5600").End(xlUp).Offset(1, 0).Value = "Last opened by " &
Environ("username") & " at " & Now

ThisWorkbook.Sheets("COVER").Activate
End Function

Thanks in advance