View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Todd Huttenstine[_3_] Todd Huttenstine[_3_] is offline
external usenet poster
 
Posts: 68
Default Textbox formatting

Hey Bob,

That code suggested worked initially when I entered the textbox, however if
I deleted the value in the textbox and then put in another number, it would
not put the $ sign because the code is located in the ENTER event. So I put
the same code in the CHANGE event and it put a huge long string of $ signs
in the textbox. So I needed an if statement to test if there is a $ sign.
Now when I put the following code with the IF statement in the CHANGE event,
it works.
I ended up using:

If Left(Me.TextBox12.Text, 1) < "$" Then
Me.TextBox12.Text = "$" & Me.TextBox12.Text
End If

Thanx

Todd Huttenstine

"Bob Phillips" wrote in message
...
Todd,

This was previously suggested to you, and it works great for me.

Private Sub TextBox1_Enter()
TextBox1.Value = "$"
End Sub

Have you tried it?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Todd Huttenstine" wrote in message
...
Hey guys,

I still cannot get a $ sign to come up before everything I type in a
textbox.


I want to be able to type in lets say TextBox1 and when I do, the $ sign
pops up in front of the number. I need the dollar sign to always be

there
no matter how many times I re-enter numbers and I need it to format the

cell
as $0.00