VBA to assign Tick-mark to a cell & if cell value changes, Tick-mark changes to red

[rtehlan]

Hi,

I am looking for update on the below VBA code so that it also adds up a small green tick-mark in the cell & it changes color to red if the value of the cell changes.

Thank you for any help on this.

I am an accountant & tracking changes which have been already finalized is a big nightmare, by this i can easily see if any amounts have changed since i signed off last time.

The previous code is pasted below, This adds up a comment to the cell with the cell value, Username & date.

Sub AddPreparationComment()

Dim vCellValue As Variant
Dim sText As String

vCellValue = ActiveCell.Value
If IsNumeric(vCellValue) Then
vCellValue = CDbl(vCellValue)
End If

sText = Application.UserName & ":" & vbCrLf & vbCrLf
sText = sText & "Value at Prep: " & Format(vCellValue, "#,##0") & "" & vbCrLf
sText = sText & "Date: " & Format(Date, "m/dd/yyyy")

With ActiveCell
.ClearComments
With .AddComment
.Text sText
With .Shape
.TextFrame.Characters(1, InStr(sText, ":")).Font.Bold = msoTrue
.Width = 120
.Height = 50
End With
End With
End With

End Sub

 

[rtehlan]

Anyone ? Please

 

[rtehlan]

Hi,

Any little help would be appreciated on this.