how to format text in textbox or when copying to cell

[davidmyers]

Hi,
I understand it's not possible to format text in a vba textbox, I need to copy the textbox content to a cell eg. in the textbox I have:

1. bla bla bla
2. bla bla bla
3. bla bla bla

What I want to see in the cell is:

1. bla bla bla
2. bla bla bla
3. bla bla bla

Is it possible to do this with vba code after I copy the textbox content to the cell, that is make bold the number at the start of each line?

Thanks for any help
David

 

[edmitchell]

David

hi

the following codes does what you need for the activecell, and would 'just' need adapting for use with the textbox, so I hope it helps!

Sub FormatSometext()
 
Dim Text As String
Text = "1.   bla bla bla"
With ActiveCell
    'set content to our text
    .Value = Text
    'Set all of the cell to regular text
    .Characters(Start:=1, Length:=0).Font.FontStyle = "Regular"
    
    'Set the first 2 characters to Bold
    .Characters(Start:=1, Length:=2).Font.FontStyle = "Bold"
End With
 
End Sub

Regards