Excel Visual Basic for Applications online training

This page has 0 threads | Add post

Finding our tutorials useful? Please consider helping us to share more!

You must enable JavaScript to be able to view our online training courses (the tabbed menu below doesn't work otherwise).

Conditions and Loops

Exercise 3.03

The aim of this exercise is to create a list of films by copying data from multiple worksheets according to criteria set by the user.

Files Needed

Click here to download the file needed for this exercise.

Instructions

Extract and open the Movies Yearly Data.xlsm workbook. You'll find a worksheet which allows you to enter a minimum and maximum run time for films whose details you want to copy:

Clicking the Get List button on the Movies worksheet should copy each film whose run time falls between the minimum and maximum entered from each of the other worksheets.

In the VBE, find the Get_List_Of_Films subroutine and write code which will copy the matching films into the Movies worksheet. The suggestions below should help you to plan this procedure:

Ensure that the procedure starts with the Movies worksheet selected.
Use a conditional loop to move to the next worksheet until there are no more worksheets to select.
Within the loop, select the next worksheet then select the first cell in the list of data on that sheet.
Write a new conditional loop within the first which moves down the list of films on the selected worksheet.
For each film, check if the run time is between the minimum and maximum entered on the Movies worksheet.
If so, copy the row of data to the end of the current list on the Movies worksheet.
After the loops have finished, select the Movies worksheet to see the list of results.

Enter some values for the minimum and maximum run times and test that you see sensible results:

Check that your results match the criteria you have entered.

Add If statements at the beginning of the Get_List_Of_Films procedure to prevent the user continuing if they have entered silly values. You could check the following: