Background colour value of cell in RGB-scale

[FloFlo]

Hi everyone,

As I am still pretty new to this VBA-coding, I'm still strugling with simple pieces of codes.

My input on a given sheet is a matrix of different values on RGB-scale.
I would like to run a macro to colour the background of the cell according to its value (starting at A2). As I was unable to colour the background, I coloured the text instead.
As the matrix is larger than this, and contains other colour codes, I would like to adjust the cell values. This is a simplified version of my matrix

(Simple) input:

Blue	Green	Yellow
135, 195, 231	207, 223, 153	254, 243, 157
0, 140, 208	151, 191, 13	255, 237, 0
0, 56, 113	103, 135, 19	180, 164, 0

<tbody>
</tbody>

Desired output

Blue	Green	Yellow
135, 195, 231	207, 223, 153	254, 243, 157
0, 140, 208	151, 191, 13	255, 237, 0
0, 56, 113	103, 135, 19	180, 164, 0

<tbody>
</tbody>

Thanks,
Floris

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG26Jun37
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, dn [COLOR="Navy"]As[/COLOR] Range, sp [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Set[/COLOR] Rng = ActiveSheet.Cells(1).CurrentRegion
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] dn [COLOR="Navy"]In[/COLOR] Rng
    sp = Split(dn.Value, ",")
        [COLOR="Navy"]If[/COLOR] Not dn.Row = 1 [COLOR="Navy"]Then[/COLOR]
            dn.Interior.Color = RGB(sp(0), sp(1), sp(2))
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]Next[/COLOR] dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[FloFlo]

Thanks again Mick

 

[MickG]

You're welcome