Test for Decimal
Here is two methods. either search for a decimal point in the number or use
Mod and test if the remainder equals 0.
If InStr(Range("J21").Text, ".") = 0 Then
End If
If (Range("J21") Mod 10) = 0 Then
End If
"Ken Hudson" wrote:
In a section of code I am using the MOD function to test for cases where a
given number is a multiple of 51.
If Range("A1") MOD 51 = 0 then
....more code
In cell A1 I have 203.52. The function is returning true because the 203.52
is rounded up to 204 as part of the MOD test. I don't want to apply code to
A1l and need to test for the decimal before I use the MOD function, I think.
If Range("A1") < "decimal" then
If Range("A1") MOD 51 = 0 then
...more code
Is this the logic I need and how do I test for the decimal?
Thanks.
--
Ken Hudson
|