Color last word in a range of cells

[IoanZ]

Hello
I want to know which is the simple vba code to color last word from a range of cells.[TABLE="class: text_table, width: 500"]
<tbody style="margin: 0px; padding: 0px; border: 0px; font-family: inherit; vertical-align: baseline;">[TR]
[TD]1[/TD]
[TD]John cell phone //991612[/TD]
[/TR]
[TR]
[TD]2[/TD]
[TD]Maria cell phone //842246[/TD]
[/TR]
[TR]
[TD]3[/TD]
[TD]Bill cell phone //892246[/TD]
[/TR]
</tbody>[/TABLE]

i Want to color only the numbers (last word in fact)


I have tried


Sub Color_Part_of_Cell()
'Print ActiveCell.Characters.Count
With Range("D3:D11").Characters(, 8).Font
.Color = RGB(36, 182, 36)
End With


End Sub

But this code colors the first letters


Thanks

 

[MickG]

Try this:-

[COLOR="Navy"]Sub[/COLOR] MG19Jun12
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, Sp [COLOR="Navy"]As[/COLOR] Variant
[COLOR="Navy"]Set[/COLOR] Rng = Range("B1", Range("B" & Rows.Count).End(xlUp))
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    [COLOR="Navy"]If[/COLOR] InStr(Dn.Value, " //") > 0 [COLOR="Navy"]Then[/COLOR]
        Sp = Split(Dn.Value, " //")
        Dn.Characters(InStr(Dn.Value, Sp(UBound(Sp))), Len(Sp(UBound(Sp)))).Font.Color = RGB(36, 182, 36)
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]

Regards Mick

 

[timmy013]

You should loop through all the cells in the range looking for the first space from the right, using InStrRrv function

Try with this code

Sub Color_Part_of_Cell()
Dim r As Range
    For Each r In Range("B1:B3")
        r.Characters(InStrRev(r.Value, " ") + 1, 8).Font.Color = vbRed
    Next r
End Sub

Best regards,
Jovan

 

[IoanZ]

works perfectly thank you guys

 

[Peter_SSs]

.. or even this?

Sub Test()
  Dim c As Range
  For Each c In Range("B1", Range("B" & Rows.Count).End(xlUp))
    c.Characters(InStr(1, c.Value & "//", "//") + 2, 999).Font.Color = RGB(36, 182, 36)
  Next c
End Sub