View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Peter Atherton[_15_] Peter Atherton[_15_] is offline
external usenet poster
 
Posts: 1
Default $ format in cell

Todd

Is this what you want?

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

Regards
Peter
-----Original Message-----
THat works, but thats a little longer than the other code
I had. Also this code works but if I then clear
everything out of the textbox and try typing another
number in there, it does not put the $ at the front.
-----Original Message-----
Todd,

Here's one way


Private Sub TextBox1_KeyPress(ByVal KeyAscii As

MSForms.ReturnInteger)
Static flag As Boolean

If flag < True Then
TextBox1.Text = "$" & TextBox1.Text
flag = True
End If

End Sub

--

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 had a code that did this but now I cant find
it!!!

What it does is as I type in a textbox it will put the

$
sign in front of the number. So if I go to a textbox

and
type 135, the dollar sign will be there at the front

even
as I am typing.



.

.