If Variable is Odd then

[ktkelly_1]

I am having trouble writing a code to recognize if a number is odd or not and then determining what to do from there... It keeps pooping up with an "object required" error. Please let me know how I can fix it, or if you have ever come across this problem.

Here is my code

STNDRD=17

If STNDRDR Is IsOdd Then ActiveCell.Offset(0, 0).Select
Else
ActiveCell.Offset(0, -1).Select
End If

 

[Rick Rothstein]

Just note that may not work properly if the possibility of decimals exists.
It would incorrectly evaluate to TRUE for a value like 1.6.

Actually, if Integer numbers are not guaranteed, all of the code shown so far would fail under certain circumstances. If not guaranteed, we would have to add a test to rule out floating point values. My code examples could be changed like so...

If Stndrd Like "*[02468]" And Stndrd = Int(Stndrd) Then ActiveCell.Offset(0, -1).Select

or...

ActiveCell.Offset(0, Stndrd Like "*[02468]" And Stndrd = Int(Stndrd)).Select