How to use the FOR NEXT statement

You can have a variable that counts for you, in this case, it is variable i. The FOR NEXT statement runs the lines between FOR and NEXT ten times incrementing variable i with 1 each time. See picture above.

It starts with 1 and continues up to 10. 1+2+3+4+5+6+7+8+9+10 = 55. It is not necessary to include the variable name after the NEXT statement, however, it will be easier to read your code if you do so.

The message box then displays the sum. As soon as you press with left mouse button on the OK button the macro ends.

 

'Name macro
Sub Macro1() 

'For Next statement
For i = 1 to 10 

'Add number stored in variable i to variable Result
Result = Result + i

'Continue with next number
Next i

'Display message box containing number stored in variable Result
MsgBox Result 

'Exit macro
End Sub

3. FOR each NEXT example

The picture above demonstrates a FOR NEXT statement that goes through each cell value in cell range B3:B8 and adds it to a total.

The Message box then displays the sum. 4+2+5+3+6+4 is 24. Here is the subroutine:

'Name macro
Sub Macro1()

'For each Next statement                    
For Each Value In Range("B3:B8")
    
    'Add value to variable Result             
    Result = Result + Value

'Continue with next value in cell range                    
Next Value

'Display message box containing number in variable result                    
MsgBox Result

'Exit macro                    
End Sub

The Value variable stores the number from cell B3 in the first iteration then continues to B4 and overwrites the previous value, and so on. The Result variable adds each value in every iteration and builds a sum.

The macro repeats the lines between FOR and NEXT as many times as there are cells in Range("B3:B8).

The message box displays the sum and you then need to press with left mouse button on the OK button to proceed.

4. FOR NEXT with counter variable and STEP keyword

The STEP keyword allows you to increase or decrease the counter value with a number you specify.

If you use a negative step number make sure the end counter number is less than the start counter number to avoid your macro being in an endless loop.

In the above example, the counter variable is i and it starts with 10 and ends with 1, the STEP value is -2. 10+8+6+4+2=30.

 
'Name macro 
Sub Macro1() 

'For each Next statement 
For i = 10 To 1 Step -2

'Add value to variable Result 
Result = Result + i

'Continue with next value in cell range 
Next i

'Display message box containing number in variable result 
MsgBox Result 

'Exit macro 
End Sub

5. FOR NEXT and EXIT FOR statements

The EXIT FOR statement allows you to stop iterating through a FOR NEXT statement which is handy if, for example, an error value shows up.

The picture above uses the IF THEN statement to check if counter variable i is equal to 6. 10 + 8 + 6 = 24.

 

'Name macro 
Sub Macro1() 

'For each Next statement 
For i = 10 To 1 Step -2 

'Add value to variable Result 
Result = Result + i 

'Check if variable i equals 6 and Exit For Next statement if true
If i = 6 then Exit For

'Continue with next value in cell range 
Next i 

'Display message box containing number in variable result 
MsgBox Result 

'Exit macro 
End Sub

6. FOR each NEXT - array values

For Next statement array values

The code below demonstrates a FOR NEXT statement that goes through each value in an array variable.

The Message box then displays each array value on a new line. Here is the subroutine:

'Name macro
Sub Macro1()

'Save values to an array variable
arr = Array("Blue", "Yellow", "White")
'For each Next statement                    
For i = LBound(arr) To UBound(arr)
    
    'Concatenate array value to variable txt and a new line
    res = res & arr(i) & vbNewLine

'Continue with next value in array                
Next i

'Display message box containing number in variable res                   
MsgBox res

'Exit macro                    
End Sub

Get Excel *.xlsx file

How to use the FOR NEXT statement.xlsm

For next statement category

Combine cell ranges ignore blank cells
The image above demonstrates a user defined function that merges up to 255 cell ranges and removes blanks. I will also […]

Create links to all sheets in a workbook programmatically
The macro demonstrated above creates hyperlinks to all worksheets in the current worksheet. You will then be able to quickly […]

Finding the shortest path – A * pathfinding
Two months ago I posted some interesting stuff I found: Shortest path. Let me explain, someone created a workbook that calculated […]

How to create a list of comments from a worksheet programmatically
Did you know that you can select all cells containing comments in the current sheet? Press F5, press with left […]

Resize a range of values (UDF)
The User Defined Function (UDF) demonstrated in this article, resizes a given range to columns or rows you specify. This […]

More than 1300 Excel formulas

Excel categories

Home page

Latest updated articles.

Excel Functions

More than 300 Excel functions with detailed information including syntax, arguments, return values, and examples for most of the functions used in Excel formulas.

Excel Formulas

More than 1300 formulas organized in subcategories.

Excel Tables

Excel Tables simplifies your work with data, adding or removing data, filtering, totals, sorting, enhance readability using cell formatting, cell references, formulas, and more.

Advanced Filter

Allows you to filter data based on selected value , a given text, or other criteria. It also lets you filter existing data or move filtered values to a new location.

Data Validation

Lets you control what a user can type into a cell. It allows you to specifiy conditions and show a custom message if entered data is not valid.

Drop Down List

Lets the user work more efficiently by showing a list that the user can select a value from. This lets you control what is shown in the list and is faster than typing into a cell.

Named Ranges

Lets you name one or more cells, this makes it easier to find cells using the Name box, read and understand formulas containing names instead of cell references.

Excel Solver

The Excel Solver is a free add-in that uses objective cells, constraints based on formulas on a worksheet to perform what-if analysis and other decision problems like permutations and combinations.

Charts

An Excel feature that lets you visualize data in a graph.

Conditonal Formatting

Format cells or cell values based a condition or criteria, there a multiple built-in Conditional Formatting tools you can use or use a custom-made conditional formatting formula.

Pivot Tables

Lets you quickly summarize vast amounts of data in a very user-friendly way. This powerful Excel feature lets you then analyze, organize and categorize important data efficiently.

VBA

VBA stands for Visual Basic for Applications and is a computer programming language developed by Microsoft, it allows you to automate time-consuming tasks and create custom functions.

Macros

A program or subroutine built in VBA that anyone can create. Use the macro-recorder to quickly create your own VBA macros.

UDFs

UDF stands for User Defined Functions and is custom built functions anyone can create.

How to comment

How to add a formula to your comment
<code>Insert your formula here.</code>

Convert less than and larger than signs
Use html character entities instead of less than and larger than signs.
< becomes < and > becomes >

How to add VBA code to your comment
[vb 1="vbnet" language=","]
Put your VBA code here.
[/vb]

How to add a picture to your comment:
Upload picture to postimage.org or imgur
Paste image link to your comment.

Contact Oscar

You can contact me through this contact form