If Value Problem

[Brian Matlack]

Hi!
I have a code that checks to see if the user put a value (greater than 0) in a cell and then displays a message if they didn't. The problem is if they put a value of .51 or greater it works but if the value is .5 or less it displays the message as if they did not put a value in at all.
I know it must be in the way I wrote the code but I don't know what I did wrong. Her is what my code looks like.

[begin code]
Sub subtest()
Dim x As Integer
x = Worksheets("Add Info Sheet").Cells(20, 5)
If x = 0 Then
MsgBox "You must enter the number of hours you are requesting.", vbOKOnly, "Krause Warranty Info"
Range("E20").Select
End
End If
Sheets("Info Sheet").Select
Range("E19").Select
End Sub

Any help would be greatly appreciated. Thanks!

[Bob Phillips]

Your problem is her

Dim x As Integer

as it will make your value an integer. Use

Dim x As Double

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Brian Matlack" <[email protected]>
wrote in message
news:[email protected]...
>
> Hi!
> I have a code that checks to see if the user put a value (greater than
> 0) in a cell and then displays a message if they didn't. The problem is
> if they put a value of .51 or greater it works but if the value is .5 or
> less it displays the message as if they did not put a value in at all.
> I know it must be in the way I wrote the code but I don't know what I
> did wrong. Her is what my code looks like.
>
> [begin code]
> Sub subtest()
> Dim x As Integer
> x = Worksheets("Add Info Sheet").Cells(20, 5)
> If x = 0 Then
> MsgBox "You must enter the number of hours you are requesting.",
> vbOKOnly, "Krause Warranty Info"
> Range("E20").Select
> End
> End If
> Sheets("Info Sheet").Select
> Range("E19").Select
> End Sub
>
> Any help would be greatly appreciated. Thanks!
>
>
> --
> Brian Matlack
> ------------------------------------------------------------------------
> Brian Matlack's Profile:
http://www.excelforum.com/member.php...fo&userid=3508
> View this thread: http://www.excelforum.com/showthread...hreadid=500641
>

[Brian Matlack]

Hi Bob!
My problem has been, Is, and will always be "Her" but the code works fine now thanks to you!
Have a nice day!!

[Bob Phillips]

LOL! Mine too.

Bob

"Brian Matlack" <[email protected]>
wrote in message
news:[email protected]...
>
> Hi Bob!
> My problem has been, Is, and will always be "Her" but the code works
> fine now thanks to you!
> Have a nice day!!
>
>
> --
> Brian Matlack
> ------------------------------------------------------------------------
> Brian Matlack's Profile:
http://www.excelforum.com/member.php...fo&userid=3508
> View this thread: http://www.excelforum.com/showthread...hreadid=500641
>