Category format of a text box?

[mp.]

Can anyone help?

Is there any way to apply a category format (ie. currency) to a textbox?

My problem is this,

Using the code below, the cell with the original value in (B4) is formatted to show a currency. When you enter a value, say 100, the currency formatting displays £100.00. But, when you copy the value of the cell to the text box, all formatting is lost and the textbox just show 100.

Workbooks(2).Worksheets(1).Shapes("text box 6").Select
Selection.Characters.Text = Workbooks(1).Worksheets(5).Range("B4")

any ideas?


Thanks.

 

[Juan Pablo González]

Can anyone help?

Is there any way to apply a category format (ie. currency) to a textbox?

My problem is this,

Using the code below, the cell with the original value in (B4) is formatted to show a currency. When you enter a value, say 100, the currency formatting displays £100.00. But, when you copy the value of the cell to the text box, all formatting is lost and the textbox just show 100.

Workbooks(2).Worksheets(1).Shapes("text box 6").Select
Selection.Characters.Text = Workbooks(1).Worksheets(5).Range("B4")

any ideas?


Thanks.

Try this:

Workbooks(2).Worksheets(1).Shapes("text box 6").Select
Selection.Characters.Text = Workbooks(1).Worksheets(5).Range("B4").Text

 

[mp.]

Thanks for the help!

I tried that but I get an error message, Runtime error '424' - Object required.

I gotta go now, I'll post more details in the morning. Sorry.

 

[Juan Pablo González]

I just copied and used the same code that you had, so the error must be there before !!

 

[mp.]

The macro works OK before I add the .text part, but having said that, A new worksheet/macro with the new code in works OK as well.

I suspect one of the text boxes is configured wrong?

anyway, I think I can sort it.

Thank you for the help !!!