I have been trying to figure out how to format a text box so when
numbers are entered it formats it in the currency format. I got this
to work by reading several examples from a search I did on this group.
However It wont format to two decimal places.. here is an example..

Private Sub TextBox13_Change()
Dim sStr As String
sStr = Trim(TextBox13.Text)
sStr = Application.Substitute(Application. _
Substitute(sStr, ",", ""), "$", "")
If IsNumeric(sStr) Then
TextBox13.Text = Format( _
TextBox13.Text, "$###,###,###.##")
End If
End Sub

This code allows what I want.. but.. I can only enter the ones digit..
ie.. $1-$9 because it automatically puts in the . and then starts in
on the change.. so if I wanted to put in something for $15.34 It would
come out $1.53 and then wouldnt allow anymore input.

Can anyone help! Thanks!

Joe Derr

Joe

Use the AfterUpdate event instead of Change. Change runs whenever a number
is entered into the textbox, not when the whole number is entered.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com

Joe Derr wrote:
I have been trying to figure out how to format a text box so when
numbers are entered it formats it in the currency format. I got this
to work by reading several examples from a search I did on this group.
However It wont format to two decimal places.. here is an example..

Private Sub TextBox13_Change()
Dim sStr As String
sStr = Trim(TextBox13.Text)
sStr = Application.Substitute(Application. _
Substitute(sStr, ",", ""), "$", "")
If IsNumeric(sStr) Then
TextBox13.Text = Format( _
TextBox13.Text, "$###,###,###.##")
End If
End Sub

This code allows what I want.. but.. I can only enter the ones digit..
ie.. $1-$9 because it automatically puts in the . and then starts in
on the change.. so if I wanted to put in something for $15.34 It would
come out $1.53 and then wouldnt allow anymore input.

Can anyone help! Thanks!

Joe Derr

Dick,

Worked like a champ, thanks! I also book marked this site, I posted
thru google groups and it ended up here.. way cool..

Again, thanks for the Tip. I will no doubt post more as I get stumped!

Joe



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

Joe

I don't have anything against developersdex, but you should read this

http://www.cpearson.com/excel/DirectConnect.htm

There are a lot of benefits to connecting to MS's public groups directly.

--
Dick Kusleika
MVP - Excel
Excel Blog - Daily Dose of Excel
www.dicks-blog.com


Joe Derr wrote:
Dick,

Worked like a champ, thanks! I also book marked this site, I posted
thru google groups and it ended up here.. way cool..

Again, thanks for the Tip. I will no doubt post more as I get stumped!

Joe



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!