flashing cell

[Watchdawg]

My boss has a workbook that I've set up with a quantity in cell U6 and U12. If U12 does NOT match U6, I need the cell to flash until it does match. I need the flashing to not be something that will interfere with re-entering data on the spreadsheet while making corrections, and when it's complete stop the flashing.
I've seen a few things out there that will make the cell flash, but they tend to interrupt the user making corrections.

 

[Jaafar Tribak]

A simple Do-Loop with DoEvents statement could be used :

The following should give you an idea:
In the worksheet module:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [U6].Address Or Target.Address = [U12].Address Then
        Call FlashCell([A1]) '<< change flashing cell as required
    End If
End Sub

Private Sub FlashCell(ByVal Cell As Range)

    Dim t As Single, lInitColor As Long
   
    On Error GoTo Xit
    t = Timer
    With Cell
        lInitColor = .Interior.ColorIndex
        Do While [U6] <> [U12]
            If Int(Timer) Mod 2 Then
                .Interior.Color = vbRed
            Else
                .Interior.Color = vbGreen
            End If
            DoEvents
        Loop
Xit:
        .Interior.ColorIndex = lInitColor
    End With

End Sub

The above assumes the values of cells U6 and U12 are changed by data entry in them not by formulae calculation.

 

[Watchdawg]

A simple Do-Loop with DoEvents statement could be used :

The following should give you an idea:
In the worksheet module:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [U6].Address Or Target.Address = [U12].Address Then
        Call FlashCell([A1]) '<< change flashing cell as required
    End If
End Sub

Private Sub FlashCell(ByVal Cell As Range)

    Dim t As Single, lInitColor As Long
  
    On Error GoTo Xit
    t = Timer
    With Cell
        lInitColor = .Interior.ColorIndex
        Do While [U6] <> [U12]
            If Int(Timer) Mod 2 Then
                .Interior.Color = vbRed
            Else
                .Interior.Color = vbGreen
            End If
            DoEvents
        Loop
Xit:
        .Interior.ColorIndex = lInitColor
    End With

End Sub

The above assumes the values of cells U6 and U12 are changed by data entry in them not by formulae calculation.

Works like a charm when typing in the quantity, unfortunately both cells are populated by formulas, is there a way to prevent the formulas from interfering with the code?