EXERCISE TOPIC▼
- Access exercises (91)
- C# exercises (79)
- Excel exercises (278)
- Power Apps exercises (13)
- Power Automate exercises (18)
- Power BI exercises (139)
- Power Platform exercises ()
- Python exercises (28)
- Report Builder exercises (141)
- SQL exercises (198)
- SSAS exercises (51)
- SSIS exercises (46)
- SSRS exercises (99)
- VBA exercises (85)
- Visual Basic exercises (46)
VBA EXERCISES▼
EXCEL VBA MACROS EXERCISES▼
Excel VBA Macros | Selecting cells exercise | Add Dating Agency Details to a List
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.
| Software ==> | Excel VBA Macros (52 exercises) |
| Version ==> | Any version of Excel |
| Topic ==> | Selecting cells (11 exercises) |
| Level ==> | Average difficulty |
| Subject ==> | VBA training |
You need a minimum screen resolution of about 700 pixels width to see our exercises. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.
Open the file called WODA Application.xlsx. Your task is to write code to transfer the details entered on Sheet1 to the end of the list on Sheet2.
You can alter the details on Sheet1 if you'd like to test different values.
One approach you could take would be to:
- Copy the name from cell C4 on Sheet1.
- Select Sheet2.
- Use End and Offset to reach the next blank cell in column A.
- Paste the copied value into this cell (use PasteSpecial to do this).
- Repeat this process for each of the other details.
After copying the first value, your list should look like this.
If that felt like a long-winded approach you could write a new subroutine which uses this approach:
- Copy range C4:C7 on Sheet1.
- Select Sheet2.
- Use End and Offset to reach the next blank cell in column A.
- Use the PasteSpecial method to transpose the copied data.
The code to transpose the copied cells is:
ActiveCell.PasteSpecial Transpose:=True
Alter the details on Sheet1 and run the subroutine again to check that it still works.
Your list should grow each time you run the subroutine.
Save and close the file.