Skip to content
xlsoffice. All Rights Reserved
  • Home
  • Excel For Beginners
  • Excel Intermediate
  • Advanced Excel For Experts

Lookup and Reference Examples

  • How to get relative column numbers in a range in Excel
  • Extract data with helper column in Excel
  • How to use Excel MATCH Function
  • Create hyperlink with VLOOKUP in Excel
  • How to get relative row numbers in a range in Excel

Data Analysis Examples

  • How To Create Frequency Distribution in Excel
  • How to create dynamic reference table name in Excel
  • Conditional Formatting Icon Sets Examples in Excel
  • Error Bars in Excel
  • How To Load Analysis ToolPak in Excel

Data Validation Examples

  • Excel Data validation allow weekday only
  • Excel Data validation only dates between
  • Excel Data validation with conditional list
  • Excel Data validation must begin with
  • Excel Data validation date in next 30 days

Sales Calculator in Excel

by

Below we will look at a program in Excel VBA that calculates the total sales of each employee over a period of three years.

Situation:

The other two sheets have the same setup, but with different combinations of months and employees, and different sales numbers. There are several ways to calculate the total sales of each employee in Excel, but we will see that it can be done in Excel VBA very easily.

Place a command button on your worksheet and add the following code lines:

1. First, we declare three variables and one Worksheet object. One variable of type String we call employee, one variable of type Integer we call total, one Worksheet object we call sheet, and one variable of type Integer we call i.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer.

2. We initialize two variables. We initialize the variable total with value 0. We use the InputBox function to get the employee name from the user.
total = 0
employee = InputBox

(“Enter the employee name (case sensitive)”)

3. After the user has entered an employee name, we want to calculate the total sales of this employee. The workbook consists of three sheets. We want a program that can still be used if sheets are added in the future. Therefore we use the following code line:

For Each sheet In Worksheets

4. We start another For Next loop.

For i = 2 To 13

5. If the entered employee name matches with the employee name in column B, Excel VBA adds the sales number to the variable total. Add the following code lines:

If sheet.Cells(i, 2).Value = employee Then
total = total + sheet.Cells(i, 3).Value
End If

6. Don’t forget to close both loops.

    Next i
Next sheet

7. Finally, we display the total sales of the employee using a msgbox.

MsgBox “Total sales of ” & employee & ” is ” & total

8. Test the program.

Result for David:

Sales Calculator Result

Post navigation

Previous Post:

Password Protect Macro in Excel

Next Post:

Excel Bar Chart

Leave a Reply Cancel reply

Your email address will not be published. Required fields are marked *

Learn Basic Excel

Ribbon
Workbook
Worksheets
Format Cells
Find & Select
Sort & Filter
Templates
Print
Share
Protect
Keyboard Shortcuts

Categories

  • Charts
  • Data Analysis
  • Data Validation
  • Excel Functions
    • Cube Functions
    • Database Functions
    • Date and Time Functions
    • Engineering Functions
    • Financial Functions
    • Information Functions
    • Logical Functions
    • Lookup and Reference Functions
    • Math and Trig Functions
    • Statistical Functions
    • Text Functions
    • Web Functions
  • Excel VBA
  • Excel Video Tutorials
  • Formatting
  • Grouping
  • Others
  • Join Text Strings Using Concatenate or ‘& Operator’ in Excel
  • BAHTTEXT function: Description, Usage, Syntax, Examples and Explanation
  • Remove leading and trailing spaces from text in one or more cells in Excel
  • How to calculate Number of Instances in Excel
  • How to Capitalize first letter in a sentence in Excel
  • WEEKNUM function: Description, Usage, Syntax, Examples and Explanation
  • How to calculate quarter from date in Excel
  • Convert Excel time to decimal seconds
  • Custom weekday abbreviation in Excel
  • Get work hours between dates in Excel
  • PMT function: Description, Usage, Syntax, Examples and Explanation
  • INTRATE function: Description, Usage, Syntax, Examples and Explanation
  • Calculate cumulative loan principal payments in Excel
  • XIRR function: Description, Usage, Syntax, Examples and Explanation
  • FVSCHEDULE function: Description, Usage, Syntax, Examples and Explanation
Acronyms, Abbreviations, Initialism & What They Stand For
© 2022 xlsoffice . All Right Reserved. | Teal Smiles