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

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


"Oggy"
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

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
--
HTH...

Jim Thomlinson


"Oggy" wrote:

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