Macro to Automate Shading by Taking RGB Values from Adjacent Cells

[bkanne]

Hey there,

I am trying to automate the shading of a few cells by extracting the RGB color values from adjacent cells. The sample spreadsheet should make it pretty clear.

It would be helpful if the code could be run via a command button, but I can add this later if it is too much trouble.

Thanks for any help!

 

[Hui]

Bkanne

Try this code:

Sub Color_Cells()
Dim c As Range

For Each c In Range("I15:I29")
  If c.Offset(0, -4) > 0 Then
  c.Interior.Color = RGB(c.Offset(0, -4), c.Offset(0, -3), c.Offset(0, -2))
  End If
Next c

End Sub

 

[bkanne]

This is perfect! Thank you so much Hui!