Macro help : need to bold and color arrow

[sksanjeev786]

Hi Team,

I have data with Arrow and I need to keep up arrow green and the down arrow red and the number to be bold.
Please see the image for ref.

Book1
	J	K	L	M	N	O	P
3	-0.2	0	0	0	0	0	0
4	0.4	1	-0.1	1	-0.5	1	-1.3
5	1.7	59	1.5	59	5.3 r	61	-3.6
6	8.6 p	15	8.5 p	25	5.5 r	29	1.9
7	0.9	31	2.3	43	-2	48	-4.5
8	0.6	4	3.0 r	8	-0.7	9	1
9	5.9 p	26	6.8 p	42	2.7	48	-6.4 q
10	6.0 p	24	6.3 r	39	2.8	45	-5.5
11	4.6 p	15	2.5	36	-2.8	38	-5.7
12	1.1	5	-1.5	8	-3.8 q	5	-2.5 q
13	11.0 p	-19	7.1 p	9	-1.4	20	-7.7 q
Sheet1

 

[Dan_W]

If you want the contents of a cell to contain more than one color, you will need to use VBA code. Would that be possible?

Alternatively, you would normally see the arrows in their own cell/column next to the numbers, in which case it would be easy to do what you're asking.

 

[sksanjeev786]

If you want the contents of a cell to contain more than one color, you will need to use VBA code. Would that be possible?

Alternatively, you would normally see the arrows in their own cell/column next to the numbers, in which case it would be easy to do what you're asking.

Hi Dan,

Yes VBA works for me

 

[footoo]

Sub v()
Dim cel As Range, rng As Range
Set rng = Range("J3:P" & Cells(Rows.Count, "J").End(3).Row)
rng.Font.Bold = False
For Each cel In rng
    If Not IsNumeric(Right(cel, 1)) Then
        cel.Font.Bold = True
        With cel.Characters(Len(cel), 1)
            Select Case Left(cel, 1)
                Case Is = "-"
                     cel = Left(cel, Len(cel) - 1) & "q"
                    .Font.ColorIndex = 3
                Case Else
                     cel = Left(cel, Len(cel) - 1) & "p"
                    .Font.ColorIndex = 4
            End Select
            .Font.Name = "Wingdings 3"
        End With
    End If
Next
End Sub

 

[sksanjeev786]

Sub v()
Dim cel As Range, rng As Range
Set rng = Range("J3:P" & Cells(Rows.Count, "J").End(3).Row)
rng.Font.Bold = False
For Each cel In rng
    If Not IsNumeric(Right(cel, 1)) Then
        cel.Font.Bold = True
        With cel.Characters(Len(cel), 1)
            Select Case Left(cel, 1)
                Case Is = "-"
                     cel = Left(cel, Len(cel) - 1) & "q"
                    .Font.ColorIndex = 3
                Case Else
                     cel = Left(cel, Len(cel) - 1) & "p"
                    .Font.ColorIndex = 4
            End Select
            .Font.Name = "Wingdings 3"
        End With
    End If
Next
End Sub

Woooooooooooooooooooo...!!!!!! Simply Awesome...!!!!

You made my Friday Fantastic................!!!!!


Thank you once again for your hard work on this