Private Sub Worksheet_Calculate() [closed]

Answer 1

It looks like you want to build something similar to a trading platform to highlight cells linked with RTD formulas. If it is true (or even if you make changes manually), you can achieve your goal by using worksheet_change.

The below procedure looks at cells in columns 12 to 15 (the real-time values that change) and it compares the values in the FmlaRng (which I assume is a fixed range) before the calculate occurs and after. It is important you set your sheet as xlCalculateManual otherwise Excel will calculate the new values before you can record the old ones.

Also, I am not sure if you need to keep the Application.EnableEvents, but I left it there.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim endrow As Long, startrow As Long, i As Long, j As Long
Dim PreValue As Variant
Dim FmlaRng As Range

Application.EnableEvents = False
Application.Calculation = xlCalculationManual
If Target.Column >= 12 And Target.Column <= 15 Then 'This is where the cell initally changes (the lookupvalue cells)
    On Error GoTo 0
    startrow = 1
    endrow = 1000
    With Workbooks("Workbook2").sheets("Sheet1") 'You need to change these names
    Set FmlaRng = .Range(.Cells(startrow, 94), .Cells(endrow, 100)) 'FmlaRng is where the lookups should be
    FmlaRng.Cells.Interior.ColorIndex = 0
    PreValue = FmlaRng
    Calculate 'This is when vlookups update
    For i = LBound(PreValue, 1) To UBound(PreValue, 1)
        For j = LBound(PreValue, 2) To UBound(PreValue, 2)
            If FmlaRng.Cells(i, j) = PreValue(i, j) Then
            Else
                FmlaRng.Cells(i, j).Interior.ColorIndex = 36
            End If
        Next j
    Next i
    End with
End If
Application.EnableEvents = True
End Sub