Rhodie72
Well-known Member
- Joined
- Apr 18, 2016
- Messages
- 573
I'm stuck here. Can anyone please show me how to use the rgb name in a cell to make the cell adjacent to it change color?
Here's what I've got so far:
Below is the list of names used but the colours are oddly named and what the heck does Bisque look like in a hurry???? vbBlue and vbYellow are easily understood but the rest, well... an
Maybe it needs to be processed via a custom function call?
<colgroup><col></colgroup><tbody>
</tbody>
Here's what I've got so far:
Code:
Sub SetColour()
Dim Colour As String, rgbColour() As XlRgbColor, n As Long
For n = 1 To Range("A1").CurrentRegion.Cells.Count
Colour = "rgb" + ActiveCell.Value
ActiveCell.Offset(n, 1).Interior.Color = rgbColour(Colour)
Next n
End Sub
Code:
InteriorDecorator.woz.here
<colgroup><col></colgroup><tbody> </tbody> | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
<colgroup><col></colgroup><tbody>
</tbody>