Add Text to cell if another cell is a colour

[SuziBaz]

I'm trying to create a spreadsheet to control account reconciliations in my team.
We have a list of suppliers that the team work through and they highlight the suppliers accounts when reconciled.

I'd like to add today's date to another cell when the supplier name cell is highlighted, so that I can keep an eye on how many reconciliations are completed each day.
I've looked at conditional formatting and kind of need a reverse of this. Otherwise I'm thinking it may have to be VBA.

Could anyone assist with this please

 

[Special-K99]

Formulas cant read the colours of other cells (unless they are set via conditional formatting, in which case just use the same conditions ), only VBA can read cell colours.

 

[DanteAmor]

If you want it with VBA, then put the following in the events of your sheet. Right click on the tab of your sheet with conditional format. On the white panel paste the code.

Note: change the values ​​in red for your data:

Private Sub Worksheet_Calculate()
    Dim rng As Range, wCell As Range, wRow As Range
    
    Set rng = Range("[B][COLOR=#ff0000]C1:C1000[/COLOR][/B]") 'column to be evaluated
    
    For Each wCell In rng
        If wCell.DisplayFormat.Interior.Color <> xlNone Then
            Cells(wCell.Row, "[B][COLOR=#ff0000]D[/COLOR][/B]").Value = Date
        End If
    Next
End Sub

Try and tell me