 Thanks:  0 Likes:  0

# Thread: Format a TextBox on a Userform to 2 decimal places

1. ## Format a TextBox on a Userform to 2 decimal places

Hi Guys,

Could you be so kind as to provide some code that will enable me to display a text box on a userform rounded up to 1 decimal place.

Where am I going wrong....
it calculates the number entered in textbox1 and divides it by a value that changes in cell O26 but the answer is in about 8 or more decimel places.
Only need like 65.3 as an answer not 65.277756942

This is the code ive used.

Private Sub CommandButton1_Click()

TextBox2.Value = Val(TextBox1.Value) / Range("O26").Value

End Sub  Reply With Quote

2. ## Re: Format a TextBox on a Userform to 2 decimal places

try this

Code:
```Private Sub CommandButton1_Click()

TextBox2.Value = format(Val(TextBox1.Value) / Range("O26").Value,"0,00")

End Sub```  Reply With Quote

3. ## Re: Format a TextBox on a Userform to 2 decimal places

Excellent nearly there
the sum I enter is 6500 / 72 = 90.27777
Would like it to round up if possible and display 90.3

At the min when calculate with your code it reads 090

Is there a roundup code  Reply With Quote

4. ## Re: Format a TextBox on a Userform to 2 decimal places Originally Posted by thunder_anger try this

Code:
```Private Sub CommandButton1_Click()

TextBox2.Value = format(Val(TextBox1.Value) / Range("O26").Value,"0,00")

End Sub```
Excellent nearly there
the sum I enter is 6500 / 72 = 90.27777
Would like it to round up if possible and display 90.3

At the min when calculate with your code it reads 090

Is there a roundup code  Reply With Quote

5. ## Re: Format a TextBox on a Userform to 2 decimal places

Hi,

try

Code:
`TextBox2.Value = Application.Round(Val(TextBox1.Value) / Range("o26"), 1)`
HTH  Reply With Quote

6. ## Re: Format a TextBox on a Userform to 2 decimal places

That is perfect just what I was after.
Thank You Very Much  Reply With Quote

7. ## Re: Format a TextBox on a Userform to 2 decimal places

How could you modify that format statement so that the UserForm will always display properly regardless of the user's country settings? For example, if that same form were in the US, the comma would need to be a decimal?  Reply With Quote

8. ## Re: Format a TextBox on a Userform to 2 decimal places

Use concatenation for that character:
Code:
`application.DecimalSeparator`  Reply With Quote

9. ## Re: Format a TextBox on a Userform to 2 decimal places

could you please put that into context? All users, worldwide, will use the same application. There will not be a separate app for each country, so I do not know how to format it prior to the UserForm display  Reply With Quote

10. ## Re: Format a TextBox on a Userform to 2 decimal places

Code:
```Private Sub CommandButton1_Click()
TextBox2.Value = Format(Round(TextBox1.Value / Range("O26").Value, 2), "0" & Application.DecimalSeparator & "00")
End Sub```  Reply With Quote

## User Tag List

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•