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

 

[Joe4]

You do not have it structured properly.

Try this:

    If Application.WorksheetFunction.IsOdd(STNRDR) Then
        'Do Nothing
    Else
        ActiveCell.Offset(0, -1).Select
    End If

There is no point in selecting the ActiveCell. You actually don't even need the comment "Do Nothing" (you can go right to Else). I just put it there as a placeholder.
Or, you could write it like this:

    If Not Application.WorksheetFunction.IsOdd(STNRDR) Then
        ActiveCell.Offset(0, -1).Select
    End If

 

[Fluff]

How about

   Dim Stndrd As Long
   Stndrd = 16
   
   If Not Application.IsOdd(Stndrd) Then
      ActiveCell.Offset(0, -1).Select
   End If

 

[FormR]

Or "even"

If Application.IsEven(Stndrd) Then
   ActiveCell.Offset(0, -1).Select
End If

 

[Rick Rothstein]

Or "even"

If Application.IsEven(Stndrd) Then
   ActiveCell.Offset(0, -1).Select
End If

Or even...

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

or even...

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

 

[Fluff]

Or, yet another way (if dealing with whole numbers)

   ActiveCell.Offset(0, -(Stndrd Mod 2)).Select

 

[Joe4]

Or even...

If Stndrd Like "*[02468]" Then ActiveCell.Offset(0, -1).Select[/COLOR]

or even...

[COLOR=#333333]ActiveCell.Offset(0, Stndrd Like "*[02468]").Select[/COLOR]

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.

 

[steve the fish]

Or, yet another way (if dealing with whole numbers)

   ActiveCell.Offset(0, -(Stndrd Mod 2)).Select

That would be this wouldnt it? True being minus 1 for whatever reason.

ActiveCell.Offset(0, Stndrd Mod 2 = 0).Select

 

[Fluff]

Yup, that's another way.

 

[Rick Rothstein]

Or, yet another way (if dealing with whole numbers)

   ActiveCell.Offset(0, -(Stndrd Mod 2)).Select

That would be this wouldnt it? True being minus 1 for whatever reason.

ActiveCell.Offset(0, Stndrd Mod 2 = 0).Select

Odd and Even only applies to whole numbers. Your tests also work so long as the number fits into a Long data type. If the value is coming from a cell and if that number greater than 2147483647 or less than -2147483648, your codes will generate an Overflow error.