Textbox Values

Phil C · May 26th, 2002, 03:54 AM

I have a text box on a form that is used to add a number on to a sheet. The problem is that I need the number that the user enters to be converted to a negative value when it is transfered to the sheet
Any Ideas?

Thanks in advance

Robb__ · May 26th, 2002, 04:56 AM

Phil

Try using the Change event of the TextBox. I would suggest not setting the controlsource property for the TextBox. You will need to amend the code references to suit.

Private Sub TextBox1_Change()
Worksheets("Sheet1").Range("A1") = -TextBox1.Value
End Sub

Any help?

Regards

Robb__

Phil C · May 26th, 2002, 02:16 PM

Thanks Robb
Unfortunately I could not get it to work. It returns the subscript out of range error. However the answer was easy I Added , "-@") to the textbox line.

dsnbld · May 26th, 2002, 04:13 PM

Could you do a custom format the cell?
For example: -0.00

May 26th, 2002, 04:13 PM	#4
dsnbld Board Regular Join Date: May 2002 Posts: 206	Could you do a custom format the cell? For example: -0.00 __________________ Win 98SE - Office 2K

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 26th, 2002, 03:54 AM	#1
Phil C Board Regular Join Date: Apr 2002 Location: NSW. Australia Posts: 64	I have a text box on a form that is used to add a number on to a sheet. The problem is that I need the number that the user enters to be converted to a negative value when it is transfered to the sheet Any Ideas? Thanks in advance

May 26th, 2002, 04:56 AM	#2
Robb__ New Member Join Date: Apr 2002 Posts: 41	Phil Try using the Change event of the TextBox. I would suggest not setting the controlsource property for the TextBox. You will need to amend the code references to suit. Private Sub TextBox1_Change() Worksheets("Sheet1").Range("A1") = -TextBox1.Value End Sub Any help? Regards Robb__

May 26th, 2002, 02:16 PM	#3
Phil C Board Regular Join Date: Apr 2002 Location: NSW. Australia Posts: 64	Thanks Robb Unfortunately I could not get it to work. It returns the subscript out of range error. However the answer was easy I Added , "-@") to the textbox line.