It is not too sunny here, but I am going to put on my business man hat. At the end of each month, I ask myself if my business (chandoo.org that is) has performed better or worse. One simple way is to look at previous month’s numbers and then I know how good the latest month is.
But thanks to awesome people like you, my business is growing every month. So mere comparison with previous month’s values is not enough. I would like to know, for eg. if the latest month is,
- The best month ever
- The best month in last 12 months (trailing 12 months)
Now, it would be a shame if I have to find these answers manually. So I write an Excel formula. That is right!, a formula to tell me if the latest month’s value is all time best, best in last 12 months.
How to write such formulas?
Oh, the formulas are really simple. More so, if you compare it with the effort it takes to make a month all time best in sales (or any other metric).
Assuming we have a bunch of sales numbers by month in the range B6:C30,
To test for All time high condition:
- In cell D6, write =C6=MAX($C$6:C6)
- Drag the formula to fill remaining cells in column D
- Now you will see a bunch of TRUE and FALSE values. TRUE means the corresponding month’s sales is an all time high.
Tip: See how we are using $C$6:C6 in the MAX. This style of referencing is called as mixed cell referencing. By using this, when you fill the formula for remaining months, the range inside MAX grows. Thus for each month we get the maximum sales value thus far. more ».To test for Trailing 12 month high condition:
- We will test this condition in column E.
- In E17 (trailing 12 month high can not be calculated for first 11 months…) write = C17=MAX(C6:C17)
- Drag the formula to fill remaining cells in column E
- Now you will see a bunch of TRUE and FALSE values. TRUE means the corresponding month’s sales is a trailing 12 month high.
Tip: The range C6:C17 is relative. Thus when you fill the formula down, it changes to C7:C18, C8:C19… referring to previous 12 months. more ».Download Example Workbook
I have prepared a simple example file. Download it to understand these formulas.
How do you analyze your sales data?
Apart from the above techniques, I also use line charts & trend lines to understand the sales trend. Also, I use pivot tables to segment my sales based on product, customer type, region etc. Since my business is new, I do not have previous year values for many products. But where possible, I compare sales from last month same year to see how well the product has grown / shrunk. I do not set any targets at monthly level as I aim to enjoy the process. So I do not use bullet charts or target vs. actual charts per se.
What about you? How do you analyze sales or similar data? What metrics do you use to gauge the performance? Please share using comments.
6 Responses to “Make VBA String Comparisons Case In-sensitive [Quick Tip]”
Another way to test if Target.Value equal a string constant without regard to letter casing is to use the StrCmp function...
If StrComp("yes", Target.Value, vbTextCompare) = 0 Then
' Do something
End If
That's a cool way to compare. i just converted my values to strings and used the above code to compare. worked nicely
Thanks!
In case that option just needs to be used for a single comparison, you could use
If InStr(1, "yes", Target.Value, vbTextCompare) Then
'do something
End If
as well.
Nice tip, thanks! I never even thought to think there might be an easier way.
Regarding Chronology of VB in general, the Option Compare pragma appears at the very beginning of VB, way before classes and objects arrive (with VB6 - around 2000).
Today StrComp() and InStr() function offers a more local way to compare, fully object, thus more consistent with object programming (even if VB is still interpreted).
My only question here is : "what if you want to binary compare locally with re-entering functions or concurrency (with events) ?". This will lead to a real nightmare and probably a big nasty mess to debug.
By the way, congrats for you Millions/month visits 🙂
This is nice article.
I used these examples to help my understanding. Even Instr is similar to Find but it can be case sensitive and also case insensitive.
Hope the examples below help.
Public Sub CaseSensitive2()
If InStr(1, "Look in this string", "look", vbBinaryCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub CaseSensitive()
If InStr("Look in this string", "look") = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub
Public Sub NotCaseSensitive()
'doing alot of case insensitive searching and whatnot, you can put Option Compare Text
If InStr(1, "Look in this string", "look", vbTextCompare) = 0 Then
MsgBox "woops, no match"
Else
MsgBox "at least one match"
End If
End Sub