Timestamp Sub failing

[webba0264]

Hello all,

Attached is an .xlsm with Sheet 1 (Accrual!) displaying a table that updates based on Sheet 2 (Catalog!). I pulled these 2 sheets from a larger Workbook to simplify the problem I've having.

If you view code for Accrual!, you can see the Sub I've written (with help from members here at MSOffice Forums). The timestamps no longer update when the table in Accrual! updates, and when I run the debugger this is what I see:

"Compile error.
Variable cannot be defined."

--------------------------------------------------------------------------------------

TotalEnrolled = Range("A17")
End Function


Public Function TotalComplete() As Long
TotalComplete = Range("L17")
End Function

=> Public Sub CheckForChanges()

Application.EnableEvents = False

If Range("A17") <> LastValue.Range("TotalEnrolledLast") Then
Application.EnableEvents = False
Range("A18") = Date + Time
LastValue.Range("TotalEnrolledLast") = Range("A17")
End If

If Range("L17") <> LastValue.Range("TotalCompleteLast") Then
Range("L18") = Date + Time
LastValue.Range("TotalCompleteLast") = Range("L17")
End If

Application.EnableEvents = True
---------------------------------------------------------------------------------

Any help understanding the problem here would be greatly appreciated. Thanks in advance!

-AW

[macropod]

The reason you're getting such errors is that you have 'Option Explicit' set (good) but you haven't declared the variables before using them (bad) - which 'Option Explicit' requires. If you check the debugger, you'll see that 'LastValue' causes the error. Nowhere have you declared LastValue and neither have you given it a value. At a guess, I'd say it should be a worksheet reference. Similarly, the same line refers to a range named 'TotalEnrolledLast' but that range doesn't exist in the workbook - and neither does 'TotalCompleteLast'.

[webba0264]

Originally Posted by macropod

The reason you're getting such errors is that you have 'Option Explicit' set (good) but you haven't declared the variables before using them (bad) - which 'Option Explicit' requires. If you check the debugger, you'll see that 'LastValue' causes the error. Nowhere have you declared LastValue and neither have you given it a value. At a guess, I'd say it should be a worksheet reference. Similarly, the same line refers to a range named 'TotalEnrolledLast' but that range doesn't exist in the workbook - and neither does 'TotalCompleteLast'.

Okay, that makes sense macropod. Now for the stupid question...

...how does one declare a value? Ex. "LastValue"

Someone helped me write this code, I am going to try and learn how to fix it.

Thank you MP

[macropod]

Originally Posted by webba0264

...how does one declare a value? Ex. "LastValue"

Assuming LastValue is a worksheet reference, you'd do that with code like:
Dim LastValue As Worksheet
then you need to tell VBA which worksheet LastValue refers to, using code like:
Set LastValue = Sheets("SomeWorksheetName")