This page has 0 threads | Add post

Exercises

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

Software ==>	Excel VBA Macros (52 exercises)
Topic ==>	Looping over collections (11 exercises)
Level ==>	Average difficulty
Subject ==>	VBA training

Use For Each loops to split a single table of data into three separate worksheets.

This exercise is provided to allow potential course delegates to choose the correct Wise Owl Microsoft training course, and may not be reproduced in whole or in part in any format without the prior written consent of Wise Owl.

Before you can do this exercise, you'll need to download and unzip this file .

Open the file called Dino List.xlsx from the folder shown above.

Your task is to split the main list of dinosaurs into three separate sheets based on the value of the Diet column:

Your macro should copy rows from the Dino List sheet into the appropriate worksheet.

Start by writing a For Each loop to loop over the list of dinosaur names in column A of the Dino List sheet. You'll need at least one Range variable to do this.

Declare a String variable and add a line inside the For Each loop which captures the diet of the current dinosaur. You can Offset from the cell that is referenced by the Range variable to do this.

Copy the current dinosaur's data into the appropriate worksheet. You can do this in a variety of ways but one simple approach would be to:

Copy the current row of data (use the Range variable rather than the ActiveCell).
Select the worksheet whose name matches the dinosaur's diet.
Find the next blank row in the worksheet, for example:

Range("A1048576").End(xlUp).Offset(1, 0).Select