Textbox format

O

Oggy

Hi

I have the following code to pick up infomation from the spreadsheet
and show it in my userform.


Dim text1 As Long

text1 = UserForm6.TextBox1.Value

Range("A4").Select
Set material1 = Selection

material1.Value = text1

If the number on the spreadsheet is to 2 decimal places the result is
rounded, ie 2.72 is shown as 3.

Any suggestions to resolve the problem will be gratfully recieved.

Regards

Oggy
 
J

Jim Cone

Oggy,
Change the data type of text1 from Long to Double.
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Oggy" <[email protected]>
wrote in message
Hi
I have the following code to pick up infomation from the spreadsheet
and show it in my userform.

Dim text1 As Long

text1 = UserForm6.TextBox1.Value

Range("A4").Select
Set material1 = Selection

material1.Value = text1

If the number on the spreadsheet is to 2 decimal places the result is
rounded, ie 2.72 is shown as 3.
Any suggestions to resolve the problem will be gratfully recieved.
Regards
Oggy
 
J

Jim Thomlinson

you have declared text 1 as long (Long Integer) which will force an implicit
conversion of your decimal to an integer. Change the declaration to double

Dim text1 as double
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top