Need Green and Red color to arrow but data are in formula

[sksanjeev786]

Hi Team

My data are in the formula so I need red and green colors only on the arrow not on data... and my all data are in column N

FS_Lex(1-1000) and Beast.xlsx
	N
49	100%
50	60%
51	55% ▲
52	42% ▲
53	35%
54	39% ▲
55	50%
56	58% ▲
57	28%
58	35% ▼
59	36%
60	36%
61	39%
62	30%
63	31%
64	22%
65	33%
66	27%
67	18%
68	28%
Banner_FS_Stat Test

Cell Formulas
Range	Formula
N49:N68	N49	=H49*100&"%"&" "&IFERROR(IF(FIND($K$9,L49),N$1),"")&IFERROR(IF(FIND($L$9,K49),N$2),"")

 

[sksanjeev786]

Looking again at the original post I don't think conditional formatting would work as I can't see a pattern in the placing of the "arrows" in the XL2BB posted, they look random to me.

It might be an option in another cell if there is data there showing the 2 numbers that are being compared for sksanjeev786 to make the decision where to place the arrows, but sksanjeev786 has only shown the one column and so I can't tell what else exists on the sheet.

Hi Mark,

Thank you so much for checking
so now I have kept the data without formula I hope now this is possible to color arrow to green and red

Book1
	A
1	100%
2	60%
3	55% ▲
4	42% ▲
5	35%
6	39% ▲
7	50%
8	58% ▲
9	28%
10	35% ▼
Sheet1

 

[MARK858]

One way possibly

Sub sksanjeev786B()
    Dim myCell As Range
    Application.ScreenUpdating = False

    For Each myCell In Range("A1:A10")
        If Right(myCell, 1) = ChrW(9650) Then
            myCell.Characters(Len(myCell), 1).Font.Color = vbGreen
        End If

        If Right(myCell, 1) = ChrW(9660) Then
            myCell.Characters(Len(myCell), 1).Font.Color = vbRed
        End If
    Next

End Sub

 

[sksanjeev786]

One way possibly

Sub sksanjeev786B()
    Dim myCell As Range
    Application.ScreenUpdating = False

    For Each myCell In Range("A1:A10")
        If Right(myCell, 1) = ChrW(9650) Then
            myCell.Characters(Len(myCell), 1).Font.Color = vbGreen
        End If

        If Right(myCell, 1) = ChrW(9660) Then
            myCell.Characters(Len(myCell), 1).Font.Color = vbRed
        End If
    Next

End Sub

Thank you so much for the VBA it works perfectly

 

[MARK858]

You're welcome