How to insert 2 colors in a single cell.

[archit013]

Hi,

I have attached a Excel file which contains two colors in a single cell.

Assist me in writing a macro for this.

Thankyou
Archit
__________________________________________________________________

Mod edit : thread moved to appropriate forum !​

 

[Villalobos]

Hi,

Something like this?

Sub Test()
  With Selection.Interior
  .Pattern = xlPatternLinearGradient
  .Gradient.Degree = 90
  .Gradient.ColorStops.Clear
  End With
  With Selection.Interior.Gradient.ColorStops.Add(0)
  .Color = 255
  .TintAndShade = 0
  End With
  With Selection.Interior.Gradient.ColorStops.Add(1)
  .ThemeColor = xlThemeColorAccent1
  .TintAndShade = 0
  End With
End Sub