Extract Only Red fonts

Hi All,

I have tried to Extract only red highlighted words in next cell.I found macro for that.It was working perfectly but my problem is i dont know how to fill that function in Entire B Column. Also i want another function to extract red fonts from A column because this get delay to produce result.

MY CODE is

Function redPart(x As Range) As String
    Dim res As String
    With x
        For i = 1 To Len(.Value)
            ' red = RGB(255, 0, 0)
            If .Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
                res = res & .Characters(i, 1).Text
            End If
        Next
    End With
    redPart = res
End Function

it give the result,

[TABLE="class: grid, width: 500"]

BASE

VALUES

Apple

pl

Orange

an

[/TABLE]

I could call that function in B2 cell like,
"=redPart(A2)" and then select range of cells down Ctrl+D and then only i get the result for all cells. I am new to this excel vba so i dont know looping coding for this.

Regards,
keerthi

Re: Extract Only Red fonts

Quote from pike;760404

Hi For a range of cells try

Code

Option Explicit
Function redPart(rngcells As Range) As String
    Dim res As String
   Dim rngItem As Range
   Dim i As Long
   For Each rngItem In rngcells
    With rngItem
        For i = 1 To Len(.Value)
             ' red = RGB(255, 0, 0)
            If .Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
                res = res & .Characters(i, 1).Text
            End If
        Next
    End With
        Next
    redPart = res
End Function

Display More

Thank you very much pike!:ole::ole::dance: