Format a Textbox to percent

[Jamie2002]

I have got a textbox on a userform and it's control source is a cell on a worksheet.

The cell on the worksheet is formatted as % but the textbox is showing in decimal, ie

Cell 15.0%
Textbox 0.15

How can I show the textbox as a %'age.

Thanks.

 

[mudstuffin]

How about this......


With Sheet1
TextBox1.Text = Range("a1&quot
TextBox1.Text = Format(TextBox1.Text, "0.0%&quot

End With
End Sub


Hope this helps unless there is a more suitable way.

Greg

 

[Jamie2002]

Why wont this work ?


Private Sub UserForm_Activate()

TextBox1.Text = Format(TextBox1.Text, "0.0%&quot
TextBox2.Text = Format(TextBox2.Text, "0.0%&quot
TextBox3.Text = Format(TextBox3.Text, "0.0%&quot
TextBox4.Text = Format(TextBox4.Text, "£0.00&quot
TextBox5.Text = Format(TextBox5.Text, "0.0%&quot
TextBox6.Text = Format(TextBox6.Text, "0.0%&quot
TextBox7.Text = Format(TextBox7.Text, "0.0%&quot
TextBox8.Text = Format(TextBox8.Text, "0.0%&quot
TextBox9.Text = Format(TextBox9.Text, "0.0%&quot
TextBox10.Text = Format(TextBox10.Text, "0.0%&quot

End Sub

It only formats the currency field. ?!?!??

 

[JESTAR]

Hi Jamie.

Maybe you need to put e.g.

TextBox10.Text = Format(TextBox10.Text, "0.0" & "%&quot

HTH, DIW

 

[ETID]

this will get the %value from cell a1

ActiveSheet.Shapes("Text Box 1&quot.Select
Selection.Characters.Text = Str$(Cells(1, 1) * 100) + "%"

 

[Jamie2002]

HELP !

When I set-up a simple userform1.show Excel is shutting down with the following error....

EXCEL caused an invalid page fault in
module OLEAUT32.DLL at 0167:653422fc.
Registers:
EAX=00033eb6 CS=0167 EIP=653422fc EFLGS=00010202
EBX=0000000d SS=016f ESP=0062da78 EBP=0062dab0
ECX=8b12eb02 DS=016f ESI=0062da9c FS=4357
EDX=305463a0 ES=016f EDI=0062000d GS=0000
Bytes at CS:EIP:
ff 51 08 66 c7 06 00 00 33 c0 5f 5e 5b c2 04 00
Stack dump:
00033eb6 0062da90 00000000 0181fe78 3047ddcc 0062da9c 0062dacc 0062daf8 3002c10c 0195000d 00000000 00033eb6 000000e0 65343d32 0062db14 3047de0b

How can I find out what this means ?

 

[JESTAR]

Hi

You probably don't. It probably means "this is a random error. Windows decided that you had gone too long without getting an error of some sort, so we just threw this rubbish together. Mwhhahahahahaha!"

Anywho, try putting:

Userform1.show
unload userform1

 

[scking]

Jamie,

That information is generally for someone back in Microsoft who will determine exactly what is going on in the registers. It's not really user information. The OfficeXP suite prompts you to send a message to Microsoft when you get invalid page faults. The message includes the 'dump' that you have seen.

Steve King Growth follows a healthy professional curiosity

 

[acron]

If you are still looking for a format solution for the TextBox try,

    Private Sub TextBox1_Exit(ByVal _
          Cancel As MSForms.ReturnBoolean)
        TextBox1 = [A1].Text
    End Sub

Where [A1] is the whatever cell you have set as the ControlSource.

AC