Find bold part of cell value 1

[chandlm]

Hi Guys,

Using excel,I have the following value in cell A1:

"this is not bold this is bold"

What I need to do is to remove the part of the text that is bold and display it in cell B1

Not too sure if this is possible but would appreciate any help with this.

Thanks in advance,

Matt

 

[Zathras]

Here is one way, using User Defined Functions (UDF):
[blue]

Option Explicit

Function BoldText(Ref As Range)
Dim i As Integer
  BoldText = ""
  With Ref
    For i = 1 To .Characters.Count
      If .Characters(i, 1).Font.Bold = True Then
        BoldText = BoldText + .Characters(i, 1).Text
      End If
    Next i
  End With
End Function

Function RegularText(Ref As Range)
Dim i As Integer
  RegularText = ""
  With Ref
    For i = 1 To .Characters.Count
      If .Characters(i, 1).Font.FontStyle = "Regular" Then
        RegularText = RegularText + .Characters(i, 1).Text
      End If
    Next i
  End With
End Function

[/color]

 

[chandlm]

Zathras,

A star for your effort. Just what I was after.

Thanks



Matt