Simple VBA procedures in Excel - Dashboard Guide

Dashboard Mode - Simple VBA procedures

Dashboard Goal

Show how to use simple VBA procedures to automate tasks in Excel, like clearing data and adding a timestamp.

Sample Data

Task	Status	Last Updated
Prepare Report	Done	2024-06-01 09:00
Send Email	Pending	2024-06-01 10:30
Update Sheet	In Progress	2024-06-01 11:15
Review Data	Done	2024-06-01 12:00
Backup File	Pending	2024-06-01 13:45

Dashboard Components

• KPI Card: Count of tasks with status 'Done' using formula =COUNTIF(B2:B6, "Done"). Shows how many tasks are completed.
• Button 1: Clear Status - VBA procedure clears the 'Status' column (B2:B6) to empty.
• Button 2: Add Timestamp - VBA procedure adds current date and time to 'Last Updated' column (C2:C6) for all rows.
• Table: Shows the task list with columns Task, Status, and Last Updated.

VBA Code Snippets

Sub ClearStatus()
  Range("B2:B6").ClearContents
End Sub

Sub AddTimestamp()
  Dim cell As Range
  For Each cell In Range("C2:C6")
    cell.Value = Now()
  Next cell
End Sub

Dashboard Layout

+----------------------+---------------------+
|      KPI Card        |     Buttons Panel    |
|  (Count Done Tasks)  |  [Clear Status]      |
|                      |  [Add Timestamp]     |
+----------------------+---------------------+
|                  Task List Table               |
|  Task  |  Status  |  Last Updated               |
|-----------------------------------------------|
|  ...   |   ...    |    ...                     |
+------------------------------------------------+

Interactivity

Clicking Clear Status button runs the ClearStatus VBA procedure which empties the Status column. The KPI card updates automatically to show zero done tasks.

Clicking Add Timestamp button runs the AddTimestamp VBA procedure which fills the Last Updated column with the current date and time for all tasks.

Self Check

If you click the Clear Status button, what happens to the KPI card count?

Answer: The KPI card count changes to 0 because all statuses are cleared, so no tasks are marked 'Done'.

Key Result

Dashboard demonstrating simple VBA procedures to clear status and add timestamps with live KPI update.

Practice

1. What does a simple VBA procedure in Excel always start with?

easy

A. Sub

B. Function

C. Begin

D. Start

Solution

1. Step 1: Understand VBA procedure structure

   A simple VBA procedure always begins with the keyword Sub to define a subroutine.

2. Step 2: Confirm the correct starting keyword

   The procedure does not start with Function, Begin, or Start, only Sub.

3. Final Answer:

   Sub -> Option A

4. Quick Check:

   Simple VBA procedures start with Sub [OK]

Hint: Remember VBA subs always start with 'Sub' keyword [OK]

Common Mistakes:

• Confusing Sub with Function
• Using Begin or Start instead of Sub
• Forgetting to write Sub at the start

2. Which of the following is the correct way to end a simple VBA procedure?

easy

A. End Function

B. Stop

C. End Sub

D. Exit Sub

Solution

1. Step 1: Identify the correct ending for a Sub procedure

   A simple VBA procedure defined with Sub must end with End Sub.

2. Step 2: Differentiate from other endings

   End Function ends a function, Stop pauses code, and Exit Sub exits early but does not end the procedure.

3. Final Answer:

   End Sub -> Option C

4. Quick Check:

   Simple VBA procedures end with End Sub [OK]

Hint: End VBA subs with 'End Sub' exactly [OK]

Common Mistakes:

• Using End Function for subs
• Confusing Exit Sub with End Sub
• Writing Stop instead of End Sub

3. What will the following VBA code do when run?

Sub ShowMessage()
  MsgBox "Hello, Excel!"
End Sub

medium

A. Save the workbook automatically

B. Clear all cells in the worksheet

C. Change the background color of cells

D. Display a message box saying 'Hello, Excel!'

Solution

1. Step 1: Analyze the MsgBox command

   The code uses MsgBox to show a popup message with the text "Hello, Excel!".

2. Step 2: Confirm no other actions are present

   There are no commands to clear cells, change colors, or save the workbook.

3. Final Answer:

   Display a message box saying 'Hello, Excel!' -> Option D

4. Quick Check:

   MsgBox shows a popup message [OK]

Hint: MsgBox always shows a popup message [OK]

Common Mistakes:

• Thinking MsgBox clears cells
• Assuming MsgBox changes colors
• Believing MsgBox saves files

4. Identify the error in this VBA procedure:

Sub ClearCells()
  Range("A1:A10").ClearContents
End Function

medium

A. Procedure ends with End Function instead of End Sub

B. Missing parentheses in ClearContents

C. Range syntax is incorrect

D. Sub keyword is misspelled

Solution

1. Step 1: Check procedure start and end keywords

   The procedure starts with Sub but incorrectly ends with End Function.

2. Step 2: Confirm correct ending for Sub procedures

   Sub procedures must end with End Sub, not End Function.

3. Final Answer:

   Procedure ends with End Function instead of End Sub -> Option A

4. Quick Check:

   Sub procedures end with End Sub [OK]

Hint: Match Sub with End Sub, not End Function [OK]

Common Mistakes:

• Ending Sub with End Function
• Adding unnecessary parentheses to ClearContents
• Incorrect Range syntax
• Misspelling Sub keyword

5. You want to write a VBA procedure that changes the background color of cells A1 to A5 to yellow. Which code snippet correctly does this?

hard

A. Sub ColorCells()
Cells(1,1).Color = vbYellow
End Sub

B. Sub ColorCells()
Range("A1:A5").Interior.Color = vbYellow
End Sub

C. Sub ColorCells()
Range("A1:A5").Color = Yellow
End Sub

D. Sub ColorCells()
Range("A1:A5").Interior.ColorIndex = "Yellow"
End Sub

Solution

1. Step 1: Understand how to set cell background color in VBA

   Use Range(...).Interior.Color with a color constant like vbYellow.

2. Step 2: Check each option for correct syntax

   Sub ColorCells() Range("A1:A5").Interior.Color = vbYellow End Sub uses correct syntax. Sub ColorCells() Range("A1:A5").Color = Yellow End Sub uses .Color without Interior and 'Yellow' without vb prefix. Sub ColorCells() Cells(1,1).Color = vbYellow End Sub changes only one cell and uses .Color incorrectly. Sub ColorCells() Range("A1:A5").Interior.ColorIndex = "Yellow" End Sub uses ColorIndex with a string, which is invalid.

3. Final Answer:

   Sub ColorCells() Range("A1:A5").Interior.Color = vbYellow End Sub -> Option B

4. Quick Check:

   Use Interior.Color = vbYellow to color cells [OK]

Hint: Use Interior.Color = vbYellow to color cells [OK]

Common Mistakes:

• Using .Color without Interior
• Passing color name as string instead of constant
• Changing only one cell instead of range
• Using ColorIndex with string value