Textbox formatting

Excel Programming >> Textbox formatting 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

Excel22

Excel Programming >> Textbox formatting Todd,

Try something like the following:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(Me.TextBox1.Text, 1) <> "$" Then
Me.TextBox1.Text = "$" & Me.TextBox1.Text
End If
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Todd Huttenstine" <EMail@HideDomain.com> wrote in message
news:EMail@HideDomain.com...
> 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
>
>

Excel Programming >> Textbox formatting You can certainly add more checking to this, but basically (if I understand
the question) you can approach it like this:

Private Sub Textbox1_Change()
sStr = TextBox1.Text
If InStr(sStr, ".") Then
TextBox1.Text = _
Format(CDbl(Application.Substitute( _
TextBox1, "$", "")), "$ #.##")
Else
TextBox1.Text = _
Format(CDbl(Application.Substitute( _
sStr, "#$", "")), "$ #")
End If
End Sub

--
Regards,
Tom Ogilvy

Todd Huttenstine <EMail@HideDomain.com> wrote in message
news:EMail@HideDomain.com...
> 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
>
>

Excel Programming >> Textbox formatting 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" <EMail@HideDomain.com> wrote in message
news:EMail@HideDomain.com...
> 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
>
>

Excel Programming >> Textbox formatting The if statements worked well and I put it in the change event. Now it
works great. Thank you both.

Todd

"Todd Huttenstine" <EMail@HideDomain.com> wrote in message
news:EMail@HideDomain.com...
> 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
>
>

Excel Programming >> 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" <EMail@HideDomain.com> wrote in message
news:%EMail@HideDomain.com...
> 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" <EMail@HideDomain.com> wrote in message
> news:EMail@HideDomain.com...
> > 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
> >
> >
>
>