Skip to content
Free Excel Tutorials
  • Home
  • Excel For Beginners
  • Excel Intermediate
  • Advanced Excel For Experts

Data Analysis

  • Understanding Anova in Excel
  • Conditional Formatting Rules in Excel
  • Managing Conditional Formatting Rules in Excel
  • Excel Line Chart
  • How to Create Area Chart in Excel

References

  • Vlookup Examples in Excel
  • How to use Excel COLUMN Function
  • How to use Excel TRANSPOSE Function
  • How to use Excel VLOOKUP Function
  • How to use Excel MATCH Function

Data Validations

  • Excel Data validation require unique number
  • Excel Data validation exists in list
  • Excel Data validation allow weekday only
  • Excel Data validation no punctuation
  • Excel Data validation must begin with

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

Next Post:

Count cells between dates in Excel

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

Logical Functions

  • How to use Excel OR Function
  • How to use Excel TRUE Function
  • Extract multiple matches into separate rows in Excel
  • IFNA function: Description, Usage, Syntax, Examples and Explanation
  • How to return blank in place of #DIV/0! error in Excel

Date Time

  • MONTH function: Description, Usage, Syntax, Examples and Explanation
  • Convert date string to date time in Excel
  • How to calculate months between dates in Excel
  • How to calculate project start date based on end date in Excel
  • Convert time to time zone in Excel

Grouping

  • Group arbitrary text values in Excel
  • Group times into unequal buckets in Excel
  • How to randomly assign data to groups in Excel
  • Running count group by n size in Excel
  • If cell contains one of many things in Excel

General

  • How to get original price from percentage discount in Excel
  • Excel Operators
  • How to get random value from list or table in Excel
  • Zoom Worksheet in Excel
  • Subtotal invoices by age in Excel
© 2023 xlsoffice . All Right Reserved. | Teal Smiles | Abbreviations And Their Meaning