VBA support true and false color

[sksanjeev786]

Hi Team

I need help checking the color of cells from F to J and O to S column inlduing Bold data as welll

FS.xlsm
	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z
6	Brand Consideration	37%	+15.9		46%	+15.5					37%	15.9		46%	15.5			TRUE	TRUE	TRUE	TRUE	TRUE
7																		TRUE	TRUE	TRUE	TRUE	TRUE
8	Brand Favorability	34%	+16.7		42%	+15.4					34%	16.7		42%	15.4			TRUE	TRUE	TRUE	TRUE	TRUE
9	Brand Revelance	40%	+24.5		48%	+19.0					40%	24.5		48%	19			TRUE	TRUE	TRUE	TRUE	TRUE
10																		TRUE	TRUE	TRUE	TRUE	TRUE
11	Aided Brand Awareness	91%	+5.2		89%	+3.6					91%	5.2		89%	3.6			TRUE	TRUE	TRUE	TRUE	TRUE
12	Brand Association	31%	+16.0		41%	+10.5					31%	16		41%	10.5			TRUE	TRUE	TRUE	TRUE	TRUE
13	Ad Recall	7%	+12.5		15%	+14.8					7%	12.5		15%	14.8			TRUE	TRUE	TRUE	TRUE	TRUE
14	Brand Value	37%	+21.5		48%	+10.9					37%	21.5		48%	10.9			TRUE	TRUE	TRUE	TRUE	TRUE
15		63/352			105/467						63/352			105/467				TRUE	TRUE	TRUE	TRUE	TRUE
Sheet1

Cell Formulas
Range	Formula
F6,I11:I14,F11:F14,I8:I9,F8:F9,I6	F6	=INDEX(INDIRECT("'"&$A6&$B6&"'!A"&$C6&":IV"&$D6&""),MATCH($E6,INDIRECT("'"&$A6&$B6&"'!A"&$C6&":A"&$D6&""),0),F$2)
G6,J11:J14,G11:G14,J8:J9,G8:G9,J6	G6	=INDEX(INDIRECT("'"&$A6&$B6&"'!A"&$C6&":IV"&$D6&""),MATCH($E6,INDIRECT("'"&$A6&$B6&"'!A"&$C6&":A"&$D6&""),0),G$2)*100
V6:V14,X6:Y14	V6	=ROUND(F6,2)=O6
W6:W15,Z6:Z15	W6	=ROUND(G6,1)=P6
V15,X15:Y15	V15	=F15=O15
F15,I15	F15	=F17&"/"&G17

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
V6:Z15	Cell Value	contains "f"	text	NO
G6,J6	Expression	=G24=$AB$1	text	NO
G6,J6	Expression	=G24=$AB$2	text	NO
G6,J6	Expression	=G24=$AB$3	text	NO
E6:E14	Cell Value	duplicates	text	NO
G11:G14,J11:J14	Expression	=G27=$AB$1	text	NO
G11:G14,J11:J14	Expression	=G27=$AB$2	text	NO
G11:G14,J11:J14	Expression	=G27=$AB$3	text	NO
H6:H14	Expression	=I6="p"	text	NO
H6:H14	Expression	=I6="q"	text	NO
H6:H14	Expression	=I6="r"	text	NO
G8:G9,J8:J9	Expression	=G25=$AB$1	text	NO
G8:G9,J8:J9	Expression	=G25=$AB$2	text	NO
G8:G9,J8:J9	Expression	=G25=$AB$3	text	NO

 

[Micron]

You can get current cell colour with
Sheets("Sheet10").range("D12").displayformat.interior.color

You can test for bold: Sheets("Sheet10").range("D12").displayformat.font.bold and get True or False.
I don't know if you can actually return font properties as values.

 

[Micron]

UPDATE
the syntax needed to return bold/italic etc. seems to be
Sheets("Sheets10").Range("D12").DisplayFormat.Font.FontStyle

 

[sksanjeev786]

UPDATE
the syntax needed to return bold/italic etc. seems to be
Sheets("Sheets10").Range("D12").DisplayFormat.Font.FontStyle

HI Micron,

Thank you so much for your time

could you please provide the macro as i am not able to use above sysnact under Module

Regards
Sanjeev

 

[Micron]

I have no macro for your situation. All I have is what I used to discover what the syntax is for the properties:

Sub testFontProperties()

MsgBox Sheets("10").Range("D12").DisplayFormat.Font.FontStyle
MsgBox Sheets("10").Range("D12").DisplayFormat.Interior.Color

End Sub

You can attempt to create a procedure and post it as the solution or as further details to help with the problem? You'll need to loop over the ranges and test the format conditions that are present at the time the code runs, using that syntax.

 

[sksanjeev786]

I have no macro for your situation. All I have is what I used to discover what the syntax is for the properties:

Sub testFontProperties()

MsgBox Sheets("10").Range("D12").DisplayFormat.Font.FontStyle
MsgBox Sheets("10").Range("D12").DisplayFormat.Interior.Color

End Sub

You can attempt to create a procedure and post it as the solution or as further details to help with the problem? You'll need to loop over the ranges and test the format conditions that are present at the time the code runs, using that syntax.

Thanks for the update Micron