Making an Addition

Basic Exercise

Statement

In this exercise, you have to acquire the total value of the addition of the column "A" numbers, whose absolute value is greater than 50.

Suggested Concepts:

Dim - Declares a variable.
For Next - Repeats a group of statements a specified number of times.
If Else - Conditionally executes a group of statements, depending on the value of an expression.
End with .Row - Find the last row with data.
Cells - Allows VBA to interact with cells in the worksheet.

Abs - Returns the absolute value of a number.

MsgBox Abs(10) 'Will result in 10
MsgBox Abs(-10) 'Will result in 10

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

Hint: The sum should have been positive.

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 Result As Long
Dim i As Integer

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

Make a loop For Next adding each constrained cell to a conditional (being greater than 50 in absolute terms) and associating the result with the variable Result.
```
Result = 0
For i = 3 To LastRow
    CellVal = Cells(i, 1).Value
    If Abs(CellVal) > 50 Then
        Result = Result + CellVal
    End If
Next i
```

Consolidated Answer

    Sub Solution()

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

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

    Result = 0
    For i = 3 To LastRow
        CellVal = Cells(i, 1).Value
        If Abs(CellVal) > 50 Then
            Result = Result + CellVal
        End If
    Next i

    Cells(3, 5).Value = Result

    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