Need Color for each Arrow

[sksanjeev786]

Hi Team,

Facing some challenges in the below data
I have concat the arrow from A8:A10 to A13 and I need color for each Arrow under A13 based on the A8:A10 (Red, Blue, Grey)

I believe this requires Macro can anyone help me with this

% data.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1																		ꜜ
2	Step 4: Column Labels:	A	B	C	D	E	F	G	H	I	J		X	Y	Z	O		ꜛ
3	Column Description (from Data):	H-E-B_Partner In-Store – Market	H-E-B_Partner In-Store – Seafood	H-E-B_Favor-Beer and Wine	H-E-B_Favor-True Texas BBQ	H-E-B_Favor-Bloom	H-E-B_Shop the World of HEB Market	H-E-B_Shop the World of HEB Seafood	H-E-B_Shop the World of HEB Produce	H-E-B_Own Brand To Texas Football With Love	H-E-B_Curbside and DeliveryEdges Deli	0%	HEB NORM (SUBNET)	COMPETITIVE NORM (SUBNET)	TOTAL NORM (NET)	0%
4	Q.
5	Yes	52 XYZ	39 Y	32 Y	29	29	35 Y	38 Y	48 YZ	38 Y	52 XYZ		44 BCDEFI	25	37 CDE
6
7	Wingdings 3 Font
8	Red arrow	ꜛ	ꜜ	ꜜ	ꜜ	ꜜ	ꜜ			ꜜ	ꜛ
9	Blue Arrow	ꜛ	ꜛ	ꜛ			ꜛ	ꜛ	ꜛ	ꜛ	ꜛ
10	Grey Arrow	ꜛ		ꜜ	ꜜ	ꜜ			ꜛ		ꜛ
11
12
13	Need Output	ꜛꜛꜛ	ꜜꜛ	ꜜꜛꜜ	ꜜꜜ	ꜜꜜ	ꜜꜛ	ꜛ	ꜛꜛ	ꜜꜛ	ꜛꜛꜛ
14
15
16	Examaple	ꜛꜛꜛ
17
Arrow (3)

Cell Formulas
Range	Formula
B8:K8	B8	=IFERROR(IF(FIND(B$2,$M5),$R$1),"")&IFERROR(IF(FIND($M2,B5),$R$2),"")
B9:K9	B9	=IFERROR(IF(FIND(B$2,$N5),$R$1),"")&IFERROR(IF(FIND($N2,B5),$R$2),"")
B10:K10	B10	=IFERROR(IF(FIND(B$2,$O5),$R$1),"")&IFERROR(IF(FIND($O2,B5),$R$2),"")
B13:K13	B13	=B8&B9&B10

 

[JGordon11]

try

Sub ColorArrows()
    Dim R, i As Long, j As Long, k As Long, strArrow As String, color As String, colors
    R = Range("B8:K10")
    colors = Array("", 3, 5, 16)
    For j = 1 To 10
        strArrow = ""
        color = ""
        For i = 1 To 3
            If Len(R(i, j)) > 0 Then
                strArrow = strArrow & R(i, j)
                color = color & i
            End If
        Next
        Cells(13, j + 1) = strArrow
        For k = 1 To Len(color)
            Cells(13, j + 1).Characters(Start:=k, Length:=1).Font.ColorIndex = colors(Mid(color, k, 1))
        Next
    Next
End Sub

 

[sksanjeev786]

try

Sub ColorArrows()
    Dim R, i As Long, j As Long, k As Long, strArrow As String, color As String, colors
    R = Range("B8:K10")
    colors = Array("", 3, 5, 16)
    For j = 1 To 10
        strArrow = ""
        color = ""
        For i = 1 To 3
            If Len(R(i, j)) > 0 Then
                strArrow = strArrow & R(i, j)
                color = color & i
            End If
        Next
        Cells(13, j + 1) = strArrow
        For k = 1 To Len(color)
            Cells(13, j + 1).Characters(Start:=k, Length:=1).Font.ColorIndex = colors(Mid(color, k, 1))
        Next
    Next
End Sub

Perfect!!!! You are Awosomeeeeeeeeeee

Thank you so much Sir

Regards,
Sanjeev