Need only color format on cell with out condition format

[sksanjeev786]

Hi Team,

I have applied the condition format and after that I need that color on each cells even I remove the condition format.

223413583_EA_Games_APEX_CXL_IT_Q1_2022_WITH_DELTA_TOC.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
9	Base: Total
10
11
12			Base	Facebook Control	Facebook Ad A	Delta (B-A)	YouTube Control	YouTube Ad A	Delta (D-C)	Xbox Control	Xbox Ad A	Delta (F-E)	Facebook+YouTube Combo	Delta (G-A)	Delta (G-C)
13		Unweighted Base	723	125	51	-74	132	155	23	136	124	-12	206	81	74
14
15		Base	723	125	51	-74	132	155	23	136	124	-12	206	81	74
16
17		Effective Base	643	125	22	-103	132	146	14	136	113	-23	149	24	17
18
19		Unaided Brand Awareness	32.5	25.6	12.1	-13.5	39.4	38.7	-0.7	30.9	34.6	3.7	32.1	6.5	-7.3
20
21		Aided Awareness	42.8	34.4	45.5	11.1	44.7	40.1	-4.6	44.9	49.1	4.2	41.4	7.0	-3.3
22
23		Brand Favorability	23.6	16.8	28.0	11.2	22.7	22.0	-0.8	25.0	30.3	5.3	23.5	6.7	0.7
24
25		Purchase Intent	24.4	20.8	28.0	7.2	20.5	21.5	1.1	30.1	28.0	-2.1	23.1	2.3	2.7
26
27		Online Ad Awareness	19.7	16.8	35.3	18.5	14.4	17.9	3.5	19.9	24.1	4.3	22.2	5.4	7.8
28
29		Message Association	15.1	12.0	15.3	3.3	9.1	15.7	6.6	15.4	23.2	7.7	15.6	3.6	6.5
30
31		Affinity	10.7	11.2	13.7	2.5	6.8	7.2	0.4	13.2	14.8	1.6	8.8	-2.4	2.0
32
T63

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
L31	Expression	=FIND('T62'!E$13,'T62'!F43)	text	NO
L31	Expression	=FIND('T62'!E$13,'T62'!F43)	text	NO
L29	Expression	=FIND('T62'!E$13,'T62'!F40)	text	NO
L29	Expression	=FIND('T62'!F$13,'T62'!E40)	text	NO
L27	Expression	=FIND('T62'!F$13,'T62'!E37)	text	NO
L27	Expression	=FIND('T62'!E$13,'T62'!F37)	text	NO
L25	Expression	=FIND('T62'!F$13,'T62'!E34)	text	NO
L25	Expression	=FIND('T62'!E$13,'T62'!F34)	text	NO
L23	Expression	=FIND('T62'!F$13,'T62'!E31)	text	NO
L23	Expression	=FIND('T62'!E$13,'T62'!F31)	text	NO
L21	Expression	=FIND('T62'!F$13,'T62'!E28)	text	NO
L21	Expression	=FIND('T62'!E$13,'T62'!F28)	text	NO
L19	Expression	=FIND('T62'!F$13,'T62'!E25)	text	NO
L19	Expression	=FIND('T62'!E$13,'T62'!F25)	text	NO
I31	Expression	=FIND('T62'!G$13,'T62'!F43)	text	NO
I31	Expression	=FIND('T62'!F$13,'T62'!G43)	text	NO
I29	Expression	=FIND('T62'!G$13,'T62'!F40)	text	NO
I29	Expression	=FIND('T62'!F$13,'T62'!G40)	text	NO
I27	Expression	=FIND('T62'!G$13,'T62'!F37)	text	NO
I27	Expression	=FIND('T62'!F$13,'T62'!G37)	text	NO
I25	Expression	=FIND('T62'!G$13,'T62'!F34)	text	NO
I25	Expression	=FIND('T62'!F$13,'T62'!G34)	text	NO
I23	Expression	=FIND('T62'!G$13,'T62'!F31)	text	NO
I23	Expression	=FIND('T62'!F$13,'T62'!G31)	text	NO
I21	Expression	=FIND('T62'!G$13,'T62'!F28)	text	NO
I21	Expression	=FIND('T62'!F$13,'T62'!G28)	text	NO
I19	Expression	=FIND('T62'!G$13,'T62'!F25)	text	NO
I19	Expression	=FIND('T62'!F$13,'T62'!G25)	text	NO
F31	Expression	=FIND('T62'!E$13,'T62'!D43)	text	NO
F31	Expression	=FIND('T62'!D$13,'T62'!E43)	text	NO
F29	Expression	=FIND('T62'!E$13,'T62'!D40)	text	NO
F29	Expression	=FIND('T62'!D$13,'T62'!E40)	text	NO
F27	Expression	=FIND('T62'!E$13,'T62'!D37)	text	NO
F27	Expression	=FIND('T62'!D$13,'T62'!E37)	text	NO
F25	Expression	=FIND('T62'!E$13,'T62'!D34)	text	NO
F25	Expression	=FIND('T62'!D$13,'T62'!E34)	text	NO
F23	Expression	=FIND('T62'!E$13,'T62'!D31)	text	NO
F23	Expression	=FIND('T62'!D$13,'T62'!E31)	text	NO
F21	Expression	=FIND('T62'!E$13,'T62'!D28)	text	NO
F21	Expression	=FIND('T62'!D$13,'T62'!E28)	text	NO
F19	Expression	=FIND('T62'!E$13,'T62'!D25)	text	NO
F19	Expression	=FIND('T62'!D$13,'T62'!E25)	text	NO

 

[Peter_SSs]

You have some unusual conditional format conditions in some of those cells (eg two identical expressions in cell L31) however, see if this does what you want.
Test with a copy of your workbook.

Sub Fix_Color_Format()
  Dim c As Range
  
  For Each c In Range("C13", Range("O" & Rows.Count).End(xlUp))
    c.Interior.Color = c.DisplayFormat.Interior.Color
  Next c
End Sub

 

[sksanjeev786]

You have some unusual conditional format conditions in some of those cells (eg two identical expressions in cell L31) however, see if this does what you want.
Test with a copy of your workbook.

Sub Fix_Color_Format()
  Dim c As Range
 
  For Each c In Range("C13", Range("O" & Rows.Count).End(xlUp))
    c.Interior.Color = c.DisplayFormat.Interior.Color
  Next c
End Sub

thank you so much, Peter
Work perfectly...

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.