number not copied correctly from form to a cell

[Excel newbie]

I have a form to enter some custom data into a worksheet. However the data entered into the form is not copied exactly as is onto the worksheet.

This is the code from the form that copied the value into the cell:

ActiveCell.Offset(0, 4).Activate
ActiveCell.Value = mach

mach is a single, the number i entered into the form

But the number I entered into the form is alway slightly off when copied into the cell. For example, if i enter 0.8 into the form, the cell value read 0.80000001. It cause my if statement to return false when I check for mach<=0.8.

How do I fix it so that the value copied is exact?
Thanks in advance

 

[just_jon]

I have a form to enter some custom data into a worksheet. However the data entered into the form is not copied exactly as is onto the worksheet.

This is the code from the form that copied the value into the cell:

ActiveCell.Offset(0, 4).Activate
ActiveCell.Value = mach

mach is a single, the number i entered into the form

But the number I entered into the form is alway slightly off when copied into the cell. For example, if i enter 0.8 into the form, the cell value read 0.80000001. It cause my if statement to return false when I check for mach<=0.8.

How do I fix it so that the value copied is exact?
Thanks in advance

Probably a floating point issue. How is mach dim'd?

BTW, you can use:

ActiveCell.Offset(0, 4).Value = mach

and avoid Activate.

 

[Excel newbie]

Dim mach As Single

I figured it was a floating point issue too, but can't figure out how to solve it. Still a newbie in Excel and VB.

And thanks for the tip.

 

[just_jon]

Dim mach As Single

I figured it was a floating point issue too, but can't figure out how to solve it. Still a newbie in Excel and VB.

And thanks for the tip.

Maybe

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> foo()
<SPAN style="color:#00007F">Dim</SPAN> x <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
x = Application.InputBox("enter value")
[a1].Value = x + 0
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

 

[Excel newbie]

Ahh, nice, dim mach as String solved that problem.
Thanks for the help, didn't think to try it as a string.

 

[just_jon]

Ahh, nice, dim mach as String solved that problem.
Thanks for the help, didn't think to try it as a string.

Limited testing here.