Need help in Formatting in Excel

[sksanjeev786]

Hi Team,

Need your support in Formatting in excel with symbols .

I have already done with the formulas as per my requirements and now I need the same format attached in the Screenshot.

In excel due to multiple font, I am getting other different formats (Excel and Screenshot have the same data)
Can anyone help me this

FS1.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q
1	Ç
2	È		A	B	C	X		A	B	C	X			A	B		For "+" symbole
3	Ì
4
5
6		It makes me think that the Capital One Venture X card is a premium product	36Ì	30				36	30					36	30		33
7		It makes me think that Capital One offers the types of rewards I want	40 BÇ	27		29		40 BX	27		29			40	27		NA
8		I like the people in it	36 ÇÌ	25		27		36 X	25		27			36	25		29
9		It makes me think that choosing Capital One is a smart choice	35 BÇ	17È		28 B		35 BX	17		28 B			35	17		NA
10		It makes me think that Capital One is a brand for someone like me	34 B	19È		29 B		34 B	19		29 B			34	19		NA
11		It makes me think that Capital One is better than other brands of credit cards	30 BÇÌ	18		22		30 BX	18		22			30	18		21
12		It showed things I could relate to	30	23		28		30	23		28			30	23		32
13		It makes me think that Capital One is a brand that is leading the way	29Ì	24		26		29	24		26			29	24		27
14		It's my kind of ad	25Ì	23		23		25	23		23			25	23		24
Test (2)

Cell Formulas
Range	Formula
C6:D14	C6	=SUBSTITUTE(H6,"X","")&""&IFERROR(IF(FIND(C$2,$K6),$A$2,""),"")&IFERROR(IF(FIND($F$2,H6),$A$1,""),"")&IF(N6>$Q6,$A$3,"")
E6:E14	E6	=SUBSTITUTE(J6,"X","")&""&IFERROR(IF(FIND(E$2,$K6),$A$2,""),"")&IFERROR(IF(FIND($F$2,J6),$A$1,""),"")
F6:F14	F6	=SUBSTITUTE(K6,"X","")&" "&IFERROR(IF(FIND(F$2,$K6),$A$2,""),"")&IFERROR(IF(FIND($F$2,K6),$A$1,""),"")

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
C6:D14	Expression	=FIND($A$2,C6)	text	NO
C6:D14	Expression	=FIND($A$1,C6)	text	NO
E6:E14	Expression	=FIND($A$2,E6)	text	NO
E6:E14	Expression	=FIND($A$1,E6)	text	NO

Regards,
Sanjeev

 

[sksanjeev786]

It is possible to do this with VBA but more of a project than I am able to do for you on a free forum at this time.

Sure thank you sooo much Sir?

 

[6StringJazzer]

You may get more interest if you update your title to something like, "VBA to format individuals characters in formula result"

It may be too late to update the title; if so you can report your post to request moderator help.

 

[sksanjeev786]

You may get more interest if you update your title to something like, "VBA to format individuals characters in formula result"

It may be too late to update the title; if so you can report your post to request moderator help.

Yes Sir,

Maybe i missed keeping correct sentences in the Subject line

But having said I will keep crystal clear for the upcoming queries.

So Sir, do you want me to re-post the same query with the above subject?

Regards
Sanjeev

 

[Fluff]

do you want me to re-post the same query with the above subject?

Please do not start a new thread, you need to continue with this one. Thanks

 

[sksanjeev786]

You may get more interest if you update your title to something like, "VBA to format individuals characters in formula result"

It may be too late to update the title; if so you can report your post to request moderator help.

Hi Sir,

I was able to fix till Arrow thing for the above Macro.

As of now, I can only change the Arrow color only but not able to do for "+" and number color

I could you help me with this that would be great!!!

Thanks in advance...

Below is the MACRO...

Sub FlipFlopAndColorArrowsInCells() ' Up triangle = ChrW(9650) ... Down triangle = ChrW(9660) <-- Decimal values of the Hex
' ' Up triangle = Unicode Hex 25B2 ... Down triangle = Unicode Hex 25BC
Dim LastRow As Long
Dim Cel As Range
Dim WS As Worksheet
'
Set WS = Sheets("Sheet4") ' <--- Change to actual sheet name desired
'
LastRow = WS.Range("C" & Rows.Count).End(xlUp).Row ' Find the row of the last line of data in Column D
'
WS.Range("A1").Characters(Start:=1, Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
WS.Range("A1").Font.Color = vbGreen ' Color the Arrow Green
'
WS.Range("A2").Characters(Start:=1, Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
WS.Range("A2").Font.Color = vbRed ' Color the Arrow Red
'
For Each Cel In WS.Range("C1:D" & LastRow) ' Range loop
If Right(Cel.Value, 1) = ChrW(199) Then ' If cell should end with an up arrow then ...
Cel.Value = Cel.Value ' Remove the formula from the cell to allow a partial color change
Cel.Value = Replace(Cel.Value, ChrW(199), ChrW(200)) ' Flip-flop the arrow symbol
Cel.Characters(Start:=Len(Cel.Value), Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
Cel.Characters(Start:=Len(Cel), Length:=1).Font.Color = vbRed ' Color the arrow Red
'
ElseIf Right(Cel.Value, 1) = ChrW(200) Then ' If cell should end with a down arrow then ...
Cel.Value = Cel.Value ' Remove the formula from the cell to allow a partial color change
Cel.Value = Replace(Cel.Value, ChrW(200), ChrW(199)) ' Flip-flop the arrow symbol
Cel.Characters(Start:=Len(Cel.Value), Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
Cel.Characters(Start:=Len(Cel), Length:=1).Font.Color = vbGreen ' Color the arrow Green
End If
Next ' Loop back
End Sub

 

[sksanjeev786]

Hi Sir,

I was able to fix till Arrow thing for the above Macro.

As of now, I can only change the Arrow color only but not able to do for "+" and number color

I could you help me with this that would be great!!!

Thanks in advance...

Below is the MACRO...

Sub FlipFlopAndColorArrowsInCells() ' Up triangle = ChrW(9650) ... Down triangle = ChrW(9660) <-- Decimal values of the Hex
' ' Up triangle = Unicode Hex 25B2 ... Down triangle = Unicode Hex 25BC
Dim LastRow As Long
Dim Cel As Range
Dim WS As Worksheet
'
Set WS = Sheets("Sheet4") ' <--- Change to actual sheet name desired
'
LastRow = WS.Range("C" & Rows.Count).End(xlUp).Row ' Find the row of the last line of data in Column D
'
WS.Range("A1").Characters(Start:=1, Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
WS.Range("A1").Font.Color = vbGreen ' Color the Arrow Green
'
WS.Range("A2").Characters(Start:=1, Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
WS.Range("A2").Font.Color = vbRed ' Color the Arrow Red
'
For Each Cel In WS.Range("C1:D" & LastRow) ' Range loop
If Right(Cel.Value, 1) = ChrW(199) Then ' If cell should end with an up arrow then ...
Cel.Value = Cel.Value ' Remove the formula from the cell to allow a partial color change
Cel.Value = Replace(Cel.Value, ChrW(199), ChrW(200)) ' Flip-flop the arrow symbol
Cel.Characters(Start:=Len(Cel.Value), Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
Cel.Characters(Start:=Len(Cel), Length:=1).Font.Color = vbRed ' Color the arrow Red
'
ElseIf Right(Cel.Value, 1) = ChrW(200) Then ' If cell should end with a down arrow then ...
Cel.Value = Cel.Value ' Remove the formula from the cell to allow a partial color change
Cel.Value = Replace(Cel.Value, ChrW(200), ChrW(199)) ' Flip-flop the arrow symbol
Cel.Characters(Start:=Len(Cel.Value), Length:=1).Font.Name = "Wingdings 3" ' Set character font to Wingdings 3
Cel.Characters(Start:=Len(Cel), Length:=1).Font.Color = vbGreen ' Color the arrow Green
End If
Next ' Loop back
End Sub

Hello Sir,

Hope you are doing well

With the help of the above codes can we do the rest of the things as per our requirement ?
Please do the needful.

Regards
Sanjeev

 

[sksanjeev786]

Yes Sir,

Maybe i missed keeping correct sentences in the Subject line

But having said I will keep crystal clear for the upcoming queries.

So Sir, do you want me to re-post the same query with the above subject?

Regards
Sanjeev

You may get more interest if you update your title to something like, "VBA to format individuals characters in formula result"

It may be too late to update the title; if so you can report your post to request moderator help.

Hi Sir,

I hope you had a chance to the below Macro. Can you please help me on this

Regards,
Sanjeev