This article is part of our VBA Crash Course. Please read the rest of the articles in this series by clicking below links.
- What is VBA & Writing your First VBA Macro in Excel
- Understanding Variables, Conditions & Loops in VBA
- Using Cells, Ranges & Other Objects in your Macros
- Putting it all together – Your First VBA Application using Excel
- My Top 10 Tips for Mastering VBA & Excel Macros
In part 4 of our VBA Crash Course, we are going to create our very first VBA application using what we learned so far.
Our first Application – What is it supposed to do anyway?
Remember the “We Are Nuts” example. We are back to it. This time, we will create a daily sales tracker application that makes your job a breeze. But saying words like breeze when defining your next VBA application is a dangerous thing. So lets list down all the things our little Excel VBA workbook should do.
- The current method of using Inputboxes to capture 24 sale values and any reasons for deviation is tedious. So our application should instead process the values from already entered values and ask for reasons (thru inputbox) only when the sales are too low or too high.
- At the end of processing the sales, we want to see a short summary of how we did for the day. Something like this,
- Once we finish viewing the statistics a snapshot of the daily sales & along with summary statistics should be saved to current folder as PDF for later reference.
Designing our first VBA Application – Key Ingredients:
In this section, let us understand how our application should be designed and what goes in to it.
First, let us look at various things our application need to do, in a schematic. This types of diagrams are called as flow charts.
Key Ingredients of our Daily Sales Tracker Application:
Lets look at each area of our application and understand what VBA technique or statement helps us to do it.
- Process one store sale at a time: This is achieved with the FOR EACH statement [Related: What are VBA loops?]
- Capture reasons for deviation: Lets do InputBox() for this
- Calculate Summaries as we go: Some variables to calculate the summaries as we go. And a few IIF() formulas to help us update the values where needed. (PS: IIF is Inline IF Formula)
- Display Summary Statistics: We will use MessageBox() for this.
- Save a snapshot of the report: This is done by Range.ExportAsFixedFormat() method. [Related: understanding cells, ranges & other VBA objects]
Demo of our Daily Sales Tracker VBA Application
Here is a quick demo of our Daily Sales Tracker Application
Download our Daily Sales Tracker VBA Workbook:
Click here to download the Daily Sales Tracker VBA Workbook. Enable macros, enter some values and play with it.
If you just want to examine code, see this page.
What Next – My top 10 tips for using VBA
In final part of our VBA crash course, Learn my top 10 tips for mastering VBA.
If you have not read, please read the first 3 parts of this series,
- Introduction to Excel VBA – What is it & How to write your first VBA Macro.
- Understanding Variables, Conditions & Loops in VBA
- What are Excel VBA Objects and how to use them?
How do you like this VBA Application? How would you enhance it?
This application is one simple example of what you can do with VBA. Learning how to use Excel & VBA can enable you do several more awesome things at your work & life.
Do you like this application? How would you have designed it? Please share your ideas & tips using comments.
Join Our VBA Classes
We run an online VBA (Macros) Class to make you awesome. This class offers 20+ hours of video content on all aspects of VBA – right from basics to advanced stuff. You can watch the lessons anytime and learn at your own pace. Each lesson offers a download workbook with sample code. If you are interested to learn VBA and become a master in it, please consider joining this course.
20 Responses to “Untrimmable Spaces – Excel Formula”
Hi Chandoo,
First of all, HAPPY NEW YEAR!!! Wish you and your family another fruitful year ahead.
To answer your question: Power Query is the best way to trim. 🙂
Btw, if Power Query is not available, then formula would absolutely do... but did you forget to mention also Char 32?
One more question: Is the trailing minus meant to be a negative number? Maybe only the sender knows... 🙂
Cheers,
I just see your PQ way, it is amazing, I think it is the most simple way.
No idea how it did it?
I know these spaces can be a real pain but these days I advise Excel users to learn and use Flash Fill and that will learn what to do pretty quickly.
Highlight range to be cleaned. Then, in Replace, hold down the Alt key and type 0160. Replace with nothing.
I accomplished this by writing a macro to go through all the possible unprintable characters. Looped through the range.
@Steve
Brute force works just as well, its just slower
I use a different method here. First, I will copy the data from Excel and paste it in a notepad. In Notepad, I will do a Find Blanks (Space " ") and Replace (Empty) with nothing.
Then you can copy the data from Notepad and paste it back to Excel which will be a perfect number as you desire.
But Thanks for the formula. Its probably the 2nd out of 8 tricks as Chandoo mentioned. Waiting for the rest among 8 from other users 🙂
Hi....
You don't always need notepad for that. I use the Find/Replace is Excel works just fine.
I don't understand the x's. Why weren't they removed in the formula? Or are they part of some sort of numeric formatting that I'm not familiar with? I saw how you handled the non-breaking spaces and the dashes, but am confused about what role the x's played in all this.
Thanks!
Hi Andrew ,
The xs have been used solely to demarcate the actual data text ; thus , without the x in place at the end of text , as in :
x 4,124,500.00 x
it would be impossible to know that there are unwanted trailing characters , in this case , after the last 0.
These xs are not part of the original data text , nor are they used in the formulae ; they are put in only so that readers can visualize the individual items of data as they are in practice. Think of them as imaginary delimiters.
Oh, that makes sense! Thank you for the explanation. I had a feeling it was something along those lines.
You can type this character using the Keys Alt+0160.
Very useful to replace this Character using Find and Select resource.
For many years, my jobs have included ETL tasks and I built this macro to help long, long ago. I tweak it every now and again. Many co-workers, past and present, have it wired to a button on their toolbar.
Sub Clean_and_Trim()
'CAUTION: Strips leading zeroes -- do not use on zipcodes, etc.
If Application.Calculation = xlCalculationAutomatic Then
Application.Calculation = xlCalculationManual
Revert = 1
ElseIf Application.Calculation = xlCalculationManual Then
Revert = 0
End If
For Each Cell In Selection
For x = Len(Cell.Value) To 1 Step -1
If Asc(Mid(Cell.Value, x, 1)) = 160 Then
Cell.Replace What:=Chr(160), Replacement:=" ", LookAt:=xlPart, MatchCase:=True
End If
If Asc(Mid(Cell.Value, x, 1)) = 32 Then
Cell.Replace What:=Chr(32), Replacement:=" ", LookAt:=xlPart, MatchCase:=True
End If
Next x
If Cell.Value "" Then
Cell.Value = Application.Clean(Application.Trim(Cell.Value))
End If
Next
If Revert = 1 Then
Application.Calculation = xlCalculationAutomatic
ElseIf Revert = 0 Then
Application.Calculation = xlCalculationManual
End If
End Sub
This is awesome! What if you have several characters you need to have removed? What would be the easiest way as I can imagine there are several ways.?
# - 35
$ - 36
- 62
/ - 47
, - 44
. - 46
" - 34
: - 58
This is typical case of a Fitbit data export to Csv file. Each number has CHAR160 as thousand separator.. how smart Fitbit, thank you 😉
By the way, i prefer to copy the character, and use find and replace.
Sometimes it happens if you copy a table from outlook and paste it in excel. When you apply formula on those cells you will get error. What i use to do is
copy one character that looks like space,
select the entire range,
go to Find and replace,
Paste the copied character in Find option
Leave the replace option unfilled..
click on replace all..
All the errors shall be converted in to proper values..
Process looks lengthier.. but it is one of the simplest method
If Clean, Trim, and Substitute, or Find and Replace does not complete the job, I usually enter a value of 1 in an empty cell. Copy the Value of 1, Highlight the range of text numbers, and Paste Special, Values, Multiply. This site is great!
You can use Dose for Excel Add-In that can quickly clean huge data with one click besides more than +100 new functions and features to add to your Excel to save time and effort.
https://www.zbrainsoft.com
Hi,
I have a problem in excel. The sheet attached herewith.
TABLE CONFIG 2/6
A B C D E F G H
1 WEIGHT1 43,599 WEIGH2 62500 WEIGHT3 77000 WEIGHT4 66,500
2 DEDUCTION1 15,000 DEDUCTION1 15,000 TEMP 0 DEDUCTION2 11,005
3 RESULT 58,599 RESULT-1 77,500 RESULT-2 77,000 RESULT-3 77,505
4 RESULT SUBSTRACT 0 0 0
5 REQUIRED VALUE 77,500 77,000 77,505
Note: 1- RESULT (58599) IS TO BE DEDUCTION EITHER FROM D4 OR F4 OR H4 WHICHEVER IS MOST
LEAST CELL AMONG RESULT-1 OR RESULT-2 OR RESULT 3.
2-HENCE, RESULT VALUE $B$3 IS TO BE PRESENTED ON CELL EITHER D4 OR F4 OR H4 WHICHER IS
MOST LEAST VALUE
3-FORMULA =IF(E8<H8,$B$9,IF(E8<J8,$B$9,IF(H8<J8,$B$9,IF(H8<E8,$B$9,IF(J8<H8,$B$9))))))
CREATED ON CELL D4,F4 & H4 DID NOT WORK.
PLS FOR YOUR HELP.
THANK YOU
@R
Why not ask the question in the Chandoo.org Forums
https://chandoo.org/forum/
You can attach a file there