VBA text box source from cells

[mrmrf]

Hi.

The below VBA is part of a code to create a text box and populate with content from two cells however I’m looking to alter to include:

The cell V9, contains a number 0.5, and the cell is formatted as a percent, 50%. I need the above code to present as a percent in the text box rather than the decimal number

Also, how do I specify the data from each cell to be on a new line within the textbox?

Thanks!

     Set L1wL = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 380, L1y4 - 5, 200, 20)                
                L1wL.TextFrame.Characters.Text = Range("U9").Value & Range("V9").Value
                L1wL.Name = "L1Line3"

 

[VBE313]

Hi,

if you are referring to a text box in a Userform or from developer tab, try this

Sub L1wL_exit (byval cancel as MSForms.ReturnBoolean)
L1wL.value = Format(L1wL.value) / 100
end sub

 

[mrmrf]

Thank you VBE313, i was able to solve along your lines of "format"

Any ideas now how to specify it should be in the next line of the text box?

Thanks

     Set L1wL = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 380, L1y4 - 5, 200, 20)                
                L1wL.TextFrame.Characters.Text = Range("U9").Value & FormatPercent(Range("V9").Value)
                L1wL.Name = "L1Line3"