format user form text box

[Tony Miall]

Hi,

I have a text box on a user form that displays a value of a cell. I want the text box to display the value in a $ format.

I have tried

Private Sub InvoiceDifference_AfterUpdate()
    With Me.InvoiceDifference
        .Value = FORMAT(.Value, "$#,###.00")
    End With
End Sub

and a few other variations with no luck, the value displays as 123.654854746 instead of $123.65

Any help appreciated as usual.

 

[Norie]

Tony

Where is the value in the textbox coming from?

If I type that in it's formatted as you want.

 

[Tony Miall]

Thanks for the reply Norrie.

A formula works out the value of the active cell then the following code fills the text box.

    InvoiceDetail.InvoiceDifference.Value = ActiveCell

Hope that's clear. Maybe I'm not going about this the right way?

 

[Norie]

Tony

Is the cell displaying the correct formatting?

If it is try using ActiveCell.Text when you put the value in the texbox.

That should carry over the formatting from the worksheet.

By the way, are you sure the AfterUpdate was even getting executed?

I'm pretty sure just putting a value in a textbox won't trigger it.

 

[Tony Miall]

Norrie,

Excellent!

The ActiveCell.text did the trick.

Thanks