How to know if a number is even or odd

[chuckchuckit]

Need to know if a row is even or odd numbered, such as:

Dim ROWcursorIsNOW
ROWcursorIsNOW = ActiveCell.Row 'get row our cursor is on

So now need to determine if this row is even or odd, but don't know the math logic to determine this?
Thanks. - Chuck

 

[bjurney]

You can modify this to do what you need, the main thing is weather there is a remainder when you divde the row you are on by 2 or not.

Sub test()
If ActiveCell.Row / 2 = 1 Then
MsgBox ("Even")
Else
MsgBox ("Odd")
End If
End Sub

 

[shg]

If (ActiveCell.Row And 1) = 1 Then ' it's odd

 

[chuckchuckit]

Thanks much, that did it. Knew it had to be something to do with the dividing results.

Working with merged cells gets a lot of -- if 200 there then 100 here. ...What is even here might be odd there, etc.

-Chuck

 

[bjurney]

I realized that my code will only work for you on the first two rows, which is what I tested it on. I modified it a bit to work for all rows.

Sub odd_even()
Field1 = ActiveCell.Row
Result = Field1 / 2
If Result - Int(Result) = 0 Then
MsgBox ("even")
Else
MsgBox ("odd")
End If
End Sub

 

[Colin Legg]

shg4421's answer seems to have been slightly overlooked - FWIW it's the quickest way to check for an odd/even integer, so it's a very good answer.

 

[chuckchuckit]

I agree. The other example I could not get to work (but may have worked if I experimented with it more).

shg4421's answer does work and is the one I am using. Although if I remember right when I tested it, his example proves even instead of odd. But no matter, as it was the code procedure I could not figure out. And that code does work well. And am glad shg4421 supplied the example.

This board is extremely helpful to those of us that can get in the "stuck loop...".

Thanks.

Chuck

 

[chuckchuckit]

bjurney - oops I did not see your last post when I just posted mine. Thanks for your added post.

- Chuck