Get cell background color where it has a 2 color fill

[arkk]

Hi,

How can I try and get a cell color where it has a 2 color fill. Eg: in the attached file I have 2 colors fill green and red. How can I get the colorindex or color value? I am able to get the colorindex by

MsgBox ActiveCell.Interior.ColorIndex
for the yellow cell.
Any pointers/help even to get color 1 and color 2 separately will be appreciated.

Many Thanks.

 

[PCosta87]

Hi,

EDIT:
You can use:

Range("C2").Interior.Gradient.ColorStops(1).Color
Range("C2").Interior.Gradient.ColorStops(2).Color

This will give you 255 (RED) and 3506772 (GREEN)

As follows:

Sub GetGradientColors()

    Range("C3").Value = Range("C2").Interior.Gradient.ColorStops(1).Color
    Range("C4").Value = Range("C2").Interior.Gradient.ColorStops(2).Color
    Range("C3").Interior.Color = Range("C2").Interior.Gradient.ColorStops(1).Color
    Range("C4").Interior.Color = Range("C2").Interior.Gradient.ColorStops(2).Color

End Sub

 

[arkk]

Vow!!! Many Thanks PCosta !!! This is what exactly I was looking for

 

[PCosta87]

Vow!!! Many Thanks PCosta !!! This is what exactly I was looking for

Good to know
You are welcome