Color of a cell changes automatically when the color of another cell changes

[Jherjher001]

Good day experts,

I would like to ask for some help on color of a cell changes automatically when the color of a cell from another sheet changes:

Example:


Sheet1!D3 to change color automatically whenever the color in Sheet2!B2 changes.

Sheet1!B5 to change color automatically whenever the color in Sheet2!B3 changes.

Sheet1!B7 to change color automatically whenever the color in Sheet2!B4 changes.

Sheet1!C4 to change color automatically whenever thecolor in Sheet2!B5 changes.

 

[Jaafar Tribak]

Good day experts,

I would like to ask for some help on color of a cell changes automatically when the color of a cell from another sheet changes:

Example:


Sheet1!D3 to change color automatically whenever the color in Sheet2!B2 changes.

Sheet1!B5 to change color automatically whenever the color in Sheet2!B3 changes.

Sheet1!B7 to change color automatically whenever the color in Sheet2!B4 changes.

Sheet1!C4 to change color automatically whenever thecolor in Sheet2!B5 changes.

Hi and welcome to the forum.

Excel doesn't provide an event when a cell color changes but I can think of a workaround.

You didn't say to which color the cells will change .. Will the cells in Sheet1 aquire the same color of their respective cells in sheet2 ?

 

[Jaafar Tribak]

Add the following code to the ThisWorkbook Module :

Option Explicit

Private WithEvents cmbrs As CommandBars

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Set cmbrs = Application.CommandBars
    Call cmbrs_OnUpdate
End Sub

Private Sub cmbrs_OnUpdate()
    Application.CommandBars.FindControl(ID:=2040).Enabled = Not Application.CommandBars.FindControl(ID:=2040).Enabled
    With Sheet2
        Sheet1.Range("D3").Interior.Color = .Range("b2").Interior.Color
        Sheet1.Range("B5").Interior.Color = .Range("b3").Interior.Color
        Sheet1.Range("B7").Interior.Color = .Range("b4").Interior.Color
        Sheet1.Range("C4").Interior.Color = .Range("b5").Interior.Color
    End With
End Sub

 

[Jherjher001]

Thank you very much.