Formatting 2 TextBoxes as Currency

[tigerdel]

Hi Guys

I have a userform with 3 textboxes on:

TextBox1 = the user enters gross value
TextBox2 = user enters VAT Rate as a number [not a percentage]
TextBox3 = Calculates the Nett Value

If I use this code:

Private Sub textbox1_Change()
    TextBox1.value = Format(TextBox1.value, "Currency")
    TextBox3.value = Format(TextBox3.value, "Currency")
    TextBox3.value = Val(TextBox1.value) / Val(TextBox2.value + 100) * (100)
End Sub

The calculation works but the formatting fails

Any ideas??

Many thanks

Derek

 

[James006]

Hi,

Just replace "Currency"

by "$#,##0.00"

HTH

 

[tigerdel]

OK so something definitely amiss

I was going to attach the workbook but I am apparently not allowed to attach attachments

code now looks like this:

Private Sub TextBox1_Change()
    TextBox1.value = Format(TextBox1.value, "£#,##0.00")
    TextBox3.value = Format(TextBox3.value, "£#,##0.00")
    TextBox3.value = Val(TextBox1.value) / Val(TextBox2.value + 100) * (100)
End Sub
I still can't get it to work properly

Cheers all

Derek

 

[James006]

Hello again,

Could you kindly test exactly the following code ...

[COLOR=#333333]Private Sub TextBox1_Change()[/COLOR]
[COLOR=#333333]TextBox1.value = Format(TextBox1.value, "[/COLOR][COLOR=#ff0000][B]$[/B][/COLOR][COLOR=#333333]#,##0.00")[/COLOR]
[COLOR=#333333]TextBox3.value = Format(TextBox3.value, "[/COLOR][COLOR=#ff0000][B]$[/B][/COLOR][COLOR=#333333]#,##0.00")[/COLOR]
[COLOR=#333333]TextBox3.value = Val(TextBox1.value) / Val(TextBox2.value + 100) * (100)[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

And afterwards ... feel free to comment ...