Post
Ask Question

Track Previous Value in Spreadsheet using Excel Macro

  1. Public newv As Variant  
  2. Public Sub Worksheet_Change(ByVal Target As Range)  
  3. If Target.Count > 1 Then Exit Sub  
  4. Target.ClearComments  
  5. Target.AddComment.Text Text: = "Hi Previous value is" & newv  
  6. End Sub  
  7. Public Sub Worksheet_SelectionChange(ByVal Target As Range)  
  8. If Target.Count > 1 Then Exit Sub  
  9. If Target = ""  
  10. Then  
  11. newv = "No previous value"  
  12. Else: newv = Target.Value  
  13. End If  
  14. End Sub  
Demos

 
 
 
 

I hope this code snippet useful for Excel macro beginners.