Change cell color on cell value change

[delta_negative]

Is there a way to monitor a range of cells and change the cell color of the currently changing cell only to create a blinking effect and then returning cell color to original cell color?

Appreciate any help.

 

[Scott Huish]

How is the data changing? By entering data directly in the cell or by formula?

 

[delta_negative]

How is the data changing? By entering data directly in the cell or by formula?

formula

 

[par60056]

Here is a simple change event routine. I hard coded the range to look in so it only effects cells in the range B2:H7.

Not sure I would want to use a sheet that had this behavior. But I'm not writing for a user.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldColor As Long
Dim flashcount As Integer
Dim delayStart As Single


If (Not Intersect(Target, Range("B2:H7")) Is Nothing) Then
    oldColor = Target.Interior.Color
    For flashcount = 1 To 3
        delayStart = Timer
        Target.Interior.Color = RGB(255, 0, 0)
        Do While Timer < delayStart + 1
            'DoEvents
        Loop
        delayStart = Timer
        Target.Interior.Color = oldColor
        Do While Timer < delayStart + 1
            'DoEvents
        Loop
    Next
End If
End Sub

 

[Scott Huish]

What range of cells are being updated to change the results of the formulas?

 

[delta_negative]

What range of cells are being updated to change the results of the formulas?

Cell C15 is the update cell and cells H17:H76 are the calculated cells that the cell color change need to operate on.