Conditional cell staining VBA

[sofas]

Welcome. I would like to obtain a code that enables me to format the cells in the table provided that the same value is present in column (C). That is, when the same value is checked, the .
background of the cells is colored with the adjacent color in column (B), and when there is no value, nothing is done


Change the background color of cells conditionally VBA

 

[Legacy 143009]

Hi,

This should work:

Sub test()
  Dim myRange As Range, cell As Range
  Set myRange = Range("F3:Q14")
  With Application
  .ScreenUpdating = False
  For Each cell In myRange
    If Not IsError(.Match(cell.Value, Columns("C"), 0)) Then
      cell.Interior.Color = Cells(.Match(cell.Value, Columns("C"), 0), "B").Interior.Color
    End If
  Next
  .ScreenUpdating = True
  End With
End Sub

 

[sofas]

Hi,

This should work:

Sub test()
  Dim myRange As Range, cell As Range
  Set myRange = Range("F3:Q14")
  With Application
  .ScreenUpdating = False
  For Each cell In myRange
    If Not IsError(.Match(cell.Value, Columns("C"), 0)) Then
      cell.Interior.Color = Cells(.Match(cell.Value, Columns("C"), 0), "B").Interior.Color
    End If
  Next
  .ScreenUpdating = True
  End With
End Sub

Thank you, this is what is needed

 

[Legacy 143009]

You are welcome