I have a few text boxes on a userform that display values for allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it displayed as
"9%".

How do i change the format apperances of these?

Corey....

With Userform1
.Textbox1.Text = Range("A1").Text
End With

--
Regards,
Tom Ogilvy


"Corey" wrote in message
...
I have a few text boxes on a userform that display values for allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it displayed
as "9%".

How do i change the format apperances of these?

Corey....

thanks Tom.
Perfect.
Easy when you know how.

Corey....

"Tom Ogilvy" wrote in message
...
With Userform1
.Textbox1.Text = Range("A1").Text
End With

--
Regards,
Tom Ogilvy


"Corey" wrote in message
...
I have a few text boxes on a userform that display values for allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it displayed
as "9%".

How do i change the format apperances of these?

Corey....

Corey,

You can use the on_exit event of the textbox as below

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "#,##0.00")
End Sub

Changing the format to your desired format.
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Corey" wrote:

I have a few text boxes on a userform that display values for allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it displayed as
"9%".

How do i change the format apperances of these?

Corey....

What about this one i'm now stuckon?

Private Sub TextBox1_Change()
ActiveSheet.Select
With Me.TextBox1
End With
End Sub

Want it to display $xx.xx
Only displays x

Corey....
"Martin Fishlock" wrote in message
...
Corey,

You can use the on_exit event of the textbox as below

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "#,##0.00")
End Sub

Changing the format to your desired format.
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Corey" wrote:

I have a few text boxes on a userform that display values for allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it displayed
as
"9%".

How do i change the format apperances of these?

Corey....

Change fires on every entry made in a textbox - if the user is typing in an
answer, trying to format in the change event would be difficult.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
.Text = Format(.Text,"$ #0.00")
End With
End Sub

--
Regards,
Tom Ogilvy


"Corey" wrote in message
...
What about this one i'm now stuckon?

Private Sub TextBox1_Change()
ActiveSheet.Select
With Me.TextBox1
End With
End Sub

Want it to display $xx.xx
Only displays x

Corey....
"Martin Fishlock" wrote in message
...
Corey,

You can use the on_exit event of the textbox as below

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "#,##0.00")
End Sub

Changing the format to your desired format.
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Corey" wrote:

I have a few text boxes on a userform that display values for
allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it displayed
as
"9%".

How do i change the format apperances of these?

Corey....

Tom,
Do i remove the change code,
and
then insert the exit code.
I ge tthe same result.
Just the amount, and no $xx.xx

Corey....
"Tom Ogilvy" wrote in message
...
Change fires on every entry made in a textbox - if the user is typing in
an answer, trying to format in the change event would be difficult.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
.Text = Format(.Text,"$ #0.00")
End With
End Sub

--
Regards,
Tom Ogilvy


"Corey" wrote in message
...
What about this one i'm now stuckon?

Private Sub TextBox1_Change()
ActiveSheet.Select
With Me.TextBox1
End With
End Sub

Want it to display $xx.xx
Only displays x

Corey....
"Martin Fishlock" wrote in message
...
Corey,

You can use the on_exit event of the textbox as below

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Format(TextBox1.Text, "#,##0.00")
End Sub

Changing the format to your desired format.
--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Corey" wrote:

I have a few text boxes on a userform that display values for
allowances,
however $10.00 displays as 10 with no "$" and no 2 decimal values.
Also a 0.09 is displayed in another textbox, however i want it
displayed as
"9%".

How do i change the format apperances of these?

Corey....