View previous cell value programmically

[strataguru]

Thanks for the reply.

I'm curious - how does Excel 'undo' cell values then?

Thanks

 

[Guest]

hi again,
ctrl+x is all i know. i never had a reason to do it
programaticly so i never looked into it. interesting
thought though.

 

[Tom Ogilvy]

Like this

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim v as Variant
Dim vOld as Variant
if target.count > 1 then exit sub
if Target.Column = 6 then
v = Target.Value
On Error goto ErrHandler
Application.EnableEvents = False
application.Undo
vOld = Target.Value
Target.Value = v
msgbox "New: " & v & vbNewline & _
"Old: " & vOld
End If
ErrHandler:
Application.EnableEvents = True
End Sub