Even or Odd

Basic Exercise

Statement

In this exercise, you have to classify the column "A" numbers as an even number or an odd number.

Suggested Concepts:

Dim - Declares a variable.
For Next - Repeats a group of statements a specified number of times.
Mod - Divides two numbers and returns only the remainder.
If Else - Conditionally executes a group of statements, depending on the value of an expression.
Cells - Allows VBA to interact with cells in the worksheet.

Remember that in most cases there is more than one way to solve the exercise.

Hint: Remember that even numbers when divided by 2 do not have remainders (the remainder equals to zero).

Solved Exercise

Exercise Solving

Declare the variables and find the last data entry in the worksheet

Dim LastRow As Long
Dim CellVal As Long
Dim i As Integer

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

Make a loop For Next until the last entry line. Determine If a number is even or odd using de Mod operator by dividing that number by 2

For i = 3 To LastRow
    CellVal = Cells(i, 1).Value
    If CellVal Mod 2 = 1 Then
        Cells(i, 2).Value = "Odd"
    Else
        Cells(i, 2).Value = "Even"
    End If
Next i

Consolidated Answer

    Sub Solution()

    Dim LastRow As Long
    Dim CellVal As Long
    Dim i As Integer

    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 3 To LastRow
        CellVal = Cells(i, 1).Value
        If CellVal Mod 2 = 1 Then
            Cells(i, 2).Value = "Odd"
        Else
            Cells(i, 2).Value = "Even"
        End If
    Next i

    End Sub

Show Answer

Download exercise Download answer

SuperExcelVBA.com is learning website. Examples might be simplified to improve reading and basic understanding. Tutorials, references, and examples are constantly reviewed to avoid errors, but we cannot warrant full correctness of all content. All Rights Reserved.

Excel ® is a registered trademark of the Microsoft Corporation.

INTRODUCTION

BASIC

INTERMEDIATE

ADVANCED