Colour first 3 numbers separated by vertical bar

[Kishan]

Using Excel 2000</SPAN></SPAN>
Hi,</SPAN></SPAN>

I need to get coloured first 3 numbers as shown in the example below</SPAN></SPAN>

0 | 0 | 0 | 2 | 2 | 2 | 1</SPAN>

0 | 0 | 1 | 2 | 2 | 1 | 1</SPAN>

0 | 0 | 1 | 2 | 2 | 2 | 0</SPAN>

0 | 0 | 2 | 2 | 1 | 1 | 1</SPAN>

0 | 0 | 2 | 2 | 1 | 2 | 0</SPAN>

0 | 0 | 2 | 2 | 2 | 0 | 1</SPAN>

0 | 0 | 2 | 2 | 2 | 1 | 0</SPAN>

0 | 1 | 0 | 2 | 2 | 1 | 1</SPAN>

0 | 1 | 0 | 2 | 2 | 2 | 0</SPAN>

0 | 1 | 1 | 0 | 1 | 2 | 2</SPAN>

0 | 1 | 1 | 0 | 2 | 1 | 2</SPAN>

0 | 1 | 1 | 0 | 2 | 2 | 1</SPAN>

0 | 1 | 1 | 1 | 0 | 2 | 2</SPAN>

<TBODY>
</TBODY><COLGROUP><COL></COLGROUP>

Thank you in advance</SPAN></SPAN>

Regards,</SPAN>
Kishan</SPAN></SPAN>

 

[Rick Rothstein]

If what you show is what you want (numbers and vertical bars colored), then give this macro a try...

Sub ColorFirstThreeNumbers()
  Dim R As Long
  For R = 5 To Cells(Rows.Count, "A").End(xlUp).Row
    Cells(R, "A").Characters(1, 9).Font.Color = vbRed
  Next
End Sub

 

[Kishan]

If what you show is what you want (numbers and vertical bars colored), then give this macro a try...

Sub ColorFirstThreeNumbers()
  Dim R As Long
  For R = 5 To Cells(Rows.Count, "A").End(xlUp).Row
    Cells(R, "A").Characters(1, 9).Font.Color = vbRed
  Next
End Sub

Great Rick, macro worked like magic </SPAN></SPAN>

Thank you so much for your immediate help</SPAN></SPAN>

Kind Regards,</SPAN></SPAN>
Kishan </SPAN></SPAN>