Undo VBA Action

[jlynch]

Currently, when a cell in columns A, B, C, E, or F is updated, the cell in column D of that row will return the date/time of the last update.

However, I am unable to "undo" any changes made within the range. Is this possible?

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myTableRange As Range
Dim myUpdatedRange As Range

'Your data table range
Set myTableRange = Range("A:C,E:F")

'Check if the changed cell is in the data tabe or not.
If Intersect(Target, myTableRange) Is Nothing Then Exit Sub

'Stop events from running
Application.EnableEvents = False

'Column for last updated date/time
Set myUpdatedRange = Range("D" & Target.Row)

'Update the updated date/time value
myUpdatedRange.Value = Now

'Turn events back on
Application.EnableEvents = True
End Sub

 

[rollis13]

What exactly do you mean with I am unable to "undo", are you trying to use Ctrl+Z ? or do you mean that when you delete data within the range column D doesn't go blank ?

 

[jlynch]

What exactly do you mean with I am unable to "undo", are you trying to use Ctrl+Z ? or do you mean that when you delete data within the range column D doesn't go blank ?

Hi Rollis13,

I can’t perform Control + Z.

If I edit any cell in columns A to F, I am unable to go back to the previous version before the macro action.

 

[johnnyL]

Normally, you can't undo something that was performed by a macro unless you save the previous state of the sheet prior to running the macro.

In your case, you may be able to do an application.undo.