How is ISODD and ISEVEN function used in VBA?

Question

the ISEVEN ISODD functions are supported in spreadsheet formulas but how are they used in VBA code?

I get an error message indication the function is not defined..

Answer 1

Hi Dick Mezzanotte

I'm glad that you were able to resolve your issue and thank you for posting your solution so that others experiencing the same thing can easily reference this! Since the Microsoft Q&A community has a policy that "The question author cannot accept their own answer. They can only accept answers by others ", I'll repost your solution in case you'd like to accept the answer.

Ask: How is ISODD and ISEVEN function used in VBA?

Solution: The issue is resolved. here is how you solved your issue:

Sub MacroTest()

Dim R_owe As Variant

Dim cur_row As Integer

Dim Val As Double

Dim ans As String

R_owe = 2

While R_owe < 15

If (WorksheetFunction.IsEven(Range(Cells(R_owe, 7), Cells(R_owe, 7)).Value)) _

  Then

    ans = "EVEN"

  Else

    ans = "Odd"

End If

Range(Cells(R_owe, 9), Cells(R_owe, 9)) = ans

R_owe = R_owe + 1

If I missed anything please let me know and I'd be happy to add it to my answer, or feel free to comment below with any additional information.

If you have any other questions, please let me know. Thank you again for your time and patience throughout this issue.

 

Please don’t forget to Accept Answer and Yes for "was this answer helpful" wherever the information provided helps you, this can be beneficial to other community members.

Thank You.

Answer 2

To determine if a number is an even number divide by 0 and check remainder.

Dim isEven = (value mod 2 = 0)
Dim isOdd = (value mod 2 <> 0)

Answer 3

Try these expressions too: WorksheetFunction.IsOdd(some_value), WorksheetFunction.IsEven(some_value).

Answer 4

Thank you for the direction, here is how I solved my issue:

Sub MacroTest()

Dim R_owe As Variant

Dim cur_row As Integer

Dim Val As Double

Dim ans As String

R_owe = 2

While R_owe < 15

If (WorksheetFunction.IsEven(Range(Cells(R_owe, 7), Cells(R_owe, 7)).Value)) _

  Then

    ans = "EVEN"

  Else

    ans = "Odd"

End If

Range(Cells(R_owe, 9), Cells(R_owe, 9)) = ans

R_owe = R_owe + 1

Wend

End Sub