VBA Help Need to remove the orange color

[sksanjeev786]

Hi Team,

I have almost 20+ Sheet and i would like to remove the orange color where ever we have in the cell

RGB: 255,150,0 need to remove from the cell and then the font should be grey after removing the orange color

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S
1	TV (2H Categories - 6/1 Through End of Campaign) - Dayparts: 6AM to 10AM			TV (2H Categories - 6/1 Through End of Campaign) - Dayparts: 10AM to 4PM			TV (2H Categories - 6/1 Through End of Campaign) - Dayparts: 4PM to 8PM			TV (2H Categories - 6/1 Through End of Campaign) - Dayparts: 8PM to 11PM			TV (2H Categories - 6/1 Through End of Campaign) - Dayparts: 11PM to 2AM			TV (2H Categories - 6/1 Through End of Campaign) - Dayparts: 2AM to 6AM
2	Control	Exposed	Delta	Control	Exposed	Delta	Control	Exposed	Delta	Control	Exposed	Delta	Control	Exposed	Delta	Control	Exposed	Delta
3	25.1%	46.3%	21.2%	25.1%	37.6%	12.5%	25.1%	30.3%	5.2%	25.1%	29.0%	3.9%	25.1%	31.4%	6.3%	25.1%	47.9%	22.9%
4	52.0%	64.2%	12.2%	52.0%	66.7%	14.7%	52.0%	73.4%	21.5%	52.0%	64.3%	12.4%	52.0%	65.7%	13.7%	52.0%	70.8%	18.9%
5	61.3%	65.7%	4.4%	61.3%	70.2%	8.9%	61.3%	71.4%	10.1%	61.3%	65.6%	4.3%	61.3%	61.3%	0.0%	61.3%	68.8%	7.5%
6
7
8
9
10								Need to remove where ever orane we have
11							RGB	255	150	0
Sheet1

 

[DanteAmor]

Try this:

Sub ChangeColor()
  Dim sh As Worksheet
  Dim f As Range
  
  Application.FindFormat.Clear
  Application.FindFormat.Interior.Color = 38655   'RGB   255 150 0

  For Each sh In Sheets
    Do
      Set f = sh.Cells.Find("*", , xlFormulas, xlWhole, , , False, , True)
      If Not f Is Nothing Then
        f.Interior.ColorIndex = xlNone
        f.Font.Color = -9342607                   'grey
      End If
    Loop While Not f Is Nothing
  Next

  Application.FindFormat.Clear
End Sub

 

[sksanjeev786]

Try this:

Sub ChangeColor()
  Dim sh As Worksheet
  Dim f As Range
 
  Application.FindFormat.Clear
  Application.FindFormat.Interior.Color = 38655   'RGB   255 150 0

  For Each sh In Sheets
    Do
      Set f = sh.Cells.Find("*", , xlFormulas, xlWhole, , , False, , True)
      If Not f Is Nothing Then
        f.Interior.ColorIndex = xlNone
        f.Font.Color = -9342607                   'grey
      End If
    Loop While Not f Is Nothing
  Next

  Application.FindFormat.Clear
End Sub

Wow!!!

Thank you so much DanteAmor

Really Appreciate your help on this

 

[sksanjeev786]

Try this:

Sub ChangeColor()
  Dim sh As Worksheet
  Dim f As Range
 
  Application.FindFormat.Clear
  Application.FindFormat.Interior.Color = 38655   'RGB   255 150 0

  For Each sh In Sheets
    Do
      Set f = sh.Cells.Find("*", , xlFormulas, xlWhole, , , False, , True)
      If Not f Is Nothing Then
        f.Interior.ColorIndex = xlNone
        f.Font.Color = -9342607                   'grey
      End If
    Loop While Not f Is Nothing
  Next

  Application.FindFormat.Clear
End Sub

Hi Sir,

Can we have Grey background and White font?

Regards
Sanjeev

 

[DanteAmor]

Can we have Grey background and White font?

Of course:

Sub ChangeColor()
  Dim sh As Worksheet
  Dim f As Range
  
  Application.FindFormat.Clear
  Application.FindFormat.Interior.Color = 38655   'RGB   255 150 0

  For Each sh In Sheets
    Do
      Set f = sh.Cells.Find("*", , xlFormulas, xlWhole, , , False, , True)
      If Not f Is Nothing Then
        f.Interior.Color = -9342607                   'grey
        f.Font.Color = vbWhite
      End If
    Loop While Not f Is Nothing
  Next

  Application.FindFormat.Clear
End Sub

 

[sksanjeev786]

Of course:

Sub ChangeColor()
  Dim sh As Worksheet
  Dim f As Range
 
  Application.FindFormat.Clear
  Application.FindFormat.Interior.Color = 38655   'RGB   255 150 0

  For Each sh In Sheets
    Do
      Set f = sh.Cells.Find("*", , xlFormulas, xlWhole, , , False, , True)
      If Not f Is Nothing Then
        f.Interior.Color = -9342607                   'grey
        f.Font.Color = vbWhite
      End If
    Loop While Not f Is Nothing
  Next

  Application.FindFormat.Clear
End Sub

Thank you so much for your help on this...!!!