Call
613-749-4695

Click to Email
[email protected]

Or let's have a live conversation computer to computeer for free:

Skype ID:
peter-excel-vba

Here is a sample of what you will find in lesson 20 of the downloadable Tutorial on Excel macros

Lesson 20 on Excel Macros (VBA):

VBA Code for tatements

Among the VBA statements that you will discover in the downloadable tutorial on Excel macros, there are the "If" statement including Then, ElseIf and End If, there is the "Do" statement  including Loop, Until, While and Exit, there is the "For" statement including To, Step, Next and Exit, there is the powerful "Select Case" statement including Case, End Select and Exit and other statements.

A lot of visitors ask us how they can delete the entire lines when a certain cell is empty. For example, in the table below rows 2 and 5 should be deleted:

First enter xxx where you want the loop to stop (below the last value: B7). Select the cell at the top of the column containing the values to be considered (B1)and run the macro.

Sub proDelete()

        Range("B1").Select
        Do Until Selection.Value = "xxx"
                  If Selection.Value = "" Then
                          Selection.EntireRow.Delete
                  Else
                          Selection.Offset(1, 0).Select
                  End If
            Loop

            Range("A1").Select

End Sub

If you have completed the free exercises "Free Basics", just copy/paste the macro above in the Visual Basic editor and run it.

Exiting a Loop

In the loop above if you want the loop to stop when it finds the value 99 you can add this line of code within the loop:
If Selection.Value = 99  Then Exit Do

Exit allows you to get out of almost anything like:
Exit Sub
Exit For
Exit Do

We hope you have enjoyed this introduction to lesson 20
for more on this topic and a complete course on Excel macros download the
Tutorial on Excel Macros

Next Lesson: VBA Code for Functions