Yesterday, I talked about how you don’t have to know how to code in order to highly leverage VBA. All you need to know is how to Google, Cut, and Paste. As discussed then, I ‘volunteered’ KV under pain of exposure to empty the contents of his secret satchel onto the virtual table, so that we can rummage through it. So without further ado, please put your hands together and give a warm Chandoo welcome to secret agent KV.
[Secret transmission starts…]
Hello, this is my first guest post on Chandoo.org (or any Excel website for that matter), and I will try to keep it simple, but useful for our readers.
I have been using spreadsheets since 1990, and Excel since 1995 – which sort of makes me a veteran in this sphere of business applications 🙂
One of my favorite topics in Excel is – “How can I make my day-to-day tasks in Excel easier and faster ?”. In fact, this is a topic that I think about in everything to do with computers.
There are many ways one can do this in Excel, but among the more effective and scalable ones, is storing commonly used macros in your Personal Macro Workbook.
This post is about some of the stuff that I have put in my Personal Macro Workbook over the years. You can read more about how to set up a Personal Macro Workbook, in this excellent tutorial on Ron de Bruin’s website. Like nuclear war, It’s a one-time exercise. And you can easily port it to any other computers that you use – or even share it with your friends and allied spooks.
This is the first bunch of macros which I use most frequently. Hopefully I will get a chance to post some more if this post is found to be good enough 🙂
So here goes.
1: Find the value of ActiveCell within selection, or in the whole sheet
This is a very useful macro which helps to search for the value in the ActiveCell within the selected range or the whole worksheet (if only ActiveCell is selected).
Sub SearchOnActiveCellContents()
' Keyboard Shortcut: Ctrl+Shift+G
On Error GoTo NotFound
If Selection.Cells.Count > 1 Then
Selection.Cells.Find _
(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Else
Cells.Find _
(What:=ActiveCell.Value, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End If
Exit Sub
NotFound:
MsgBox "No cells found with this cell's contents"
End Sub
As you will notice, the macro checks whether the selection is 1 cell or multiple cells, and accordingly executes the Cells.Find command.
2: Filter on value NOT equal to ActiveCell value
This is another handy macro, which filters the current column based on the value of the active cell, except that the filter is applied as “show records NOT equal to the value of the active cell”
The macro itself is a fairly simple one-line command :
Sub AutoFilterSelectionNOT()
' Keyboard Shortcut: Ctrl+Shift+K
Dim lField As Long
lField = ActiveCell.Column - ActiveCell.CurrentRegion.Column + 1
If TypeName(Selection) <> "Range" Then Exit Sub
Selection.AutoFilter Field:=lField, Criteria1:="<>" & ActiveCell.Value
End Sub
3. Show or Hide zeros in active sheet
This macro toggles the display of zero-value cells on the active sheet.
Sub Hide_Zeros()
' Keyboard Shortcut: Ctrl+Shift+Z
If TypeName(Selection) <> "Range" Then Exit Sub
ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
End Sub
4: Show or Hide page-breaks in active sheet
This macro toggles the display of page-breaks on the active sheet.
Sub ShowHidePageBreaks()
' Keyboard Shortcut: Ctrl+Shift+J
If TypeName(Selection) <> "Range" Then Exit Sub
ActiveSheet.DisplayPageBreaks = Not
ActiveSheet.DisplayPageBreaks
End Sub
As the name suggests , this macro will show or hide the display of page breaks on the active sheet.
5: Display the 'GoTo special' xldialog
Quite often I find myself needing to use the GoTo Special command.
Of course, you can do it the way it was designed in Excel – press F5 to display the GoTo dialog box, and click on the Special… button. This takes one keystroke and a mouse-click; or 3 keystrokes (if you don’t use the mouse) 🙂
Or you can display the Goto > Special… dialog box (using a macro) with just 1 click of the mouse or 2 keystrokes (if you pin it on the QAT) !
Sub xlSelectSpecial()
On Error GoTo NotFound
If Selection.Cells.Count = 1 Then
MsgBox "Select more than 1 cell...", vbExclamation, "Select more cells..."
Exit Sub
End If
Application.Dialogs(xlDialogSelectSpecial).Show
Exit Sub
NotFound:
myMsgText = "No such cells found"
myTitle = "Not found"
myConfig = vbOKOnly + vbExclamation
myMessage = MsgBox(myMsgText, myConfig, myTitle)
End Sub
As you will notice, the macro has an error-checking line in case the type of ‘special cell’ you selected is not found. E.g. if you’re looking for blank cells in the selection, and all the cells in it are non-blank, the macro will display a message accordingly.
The macro also checks whether more than one cell is selected before executing the dialog. The reason for this is that if a single cell is selected, many of the options in the GoTo Special dialog box will execute on the entire ‘UsedRange’ of the spreadsheet, instead of the selected range.
If you wish, you can comment out the If … End If construct and test the macro to see what I mean.
6: Zoom-in / Zoom-out
These macros zoom in or zoom out on the worksheet, in increments of 5%.
Sub MyZoomIn()
' Keyboard Shortcut: Ctrl+E
Dim ZP As Integer
ZP = ActiveWindow.Zoom
If ZP >= 400 Then
ZP = 400
Else
ZP = ZP + 5
End If
ActiveWindow.Zoom = ZP
End Sub
Sub MyZoomOut()
' Keyboard Shortcut: Ctrl+Shift+E
Dim ZP As Integer
ZP = ActiveWindow.Zoom
If ZP <= 10 Then
ZP = 10
Else
ZP = ZP - 5
End If
ActiveWindow.Zoom = ZP
End Sub
As you will notice, will increase or decrease the zoom percentage by 5 points each time the macro is executed. The If… Then… Else… constructs are there to prevent an error if the current zoom percentage is already at the maximum or minimum level, when the macro is executed.
That’s all for this post from my side. I hope you will find it useful.
I welcome comments, suggestions for improvement & criticisms from readers on this topic, and the macros I have shared in this post.
[Secret transmission ended.]
Hey, thanks KV for sharing those shortcut-charged shortcuts. I look forward to torturing some more of that ill-gotten wisdom out of you. (While I don’t condone torture, I hate inefficient use of Excel even more. So while it’s going to hurt you more than me, it’s for the greater good.)
About the Author
KV is an undercover secret agent who spends his time rescuing the world from the crushing weight of evil, bloated spreadsheets.
His mild-mannered alter ego - Khushnood Viccaji - is a freelance professional and an expert in Management Information Systems and Business Applications with a focus on Data Management, Analytics, Transformation, Auditing, and Reporting.
Both these chaps have a flair for understanding and applying technology in business processes and an ability to present business information in many different ways. And one of them wears lycra.
28 Responses to “FIFA Worldcup 2018 Excel Tracker – FREE Download”
Good work as always - I liked the way you did the "menu" on the left hand side (although the buttons aren't lined up between tabs if I'm being ultra picky)
Have you previously written about the method of extracting the Wikipedia page into Power Query? It's not something I recall seeing before.
ps other geeky observsations:
- the bracket columns are too narrow for the date & match number - and will need to be wider still when the team names get populated
- match 51 should be Moscow (Luzhniki) for consistency
- it's not possible to be 23 hours ahead of GMT - the International Dateline gets in the way! I think the maximum is 14. There are also a couple of countries who work to a quarter hour to make it really complicated!
- There's a typo in the how-to - "compated" instead of compared
Thanks for the lovely feedback. I have fixed almost all of them.
1) button alignment: this is tricky as row heights can change between sheets.
2) Column width is fixed now so bracket view looks better
3) Updated the stadium name
4) Did not bother with the 23 hours ahead thingie. This is more of a novelty feature 😛
5) Fixed the type
6) Fixed an issue with live score table. This should work as long as the points table is maintained in wikipedia page - https://en.wikipedia.org/wiki/2018_FIFA_World_Cup
7) I have not discussed the technique of reading all tables on webpage to one big table. Watch out for a blog post on this soon.
Button alignment is one for the ultra-OCD sufferers 😉 There are ways, but only for those with too much time on their hands.
Aah, Excel. The perfect tool for people like us. Everything (cells) is in same shape and size by default and aligned perfectly. 😀
Is there actually a way to copy row heights (in the same way you copy column widths?)
By the way Chandoo, great post. I'm forwarding to my department. I actually use another query from the same page to automatically fill in the team names for the knock-out stages (I made one for round of 16 which I then duplicated and edited for quarter-finals etc.) This is incredible, I was always wondering how to do these type of queries from the web, and now I know 🙂
Hello!
This is quite amazing and incredibly cool to use 🙂
Testing the constraints of this sheets a few errors popped I noticed:
- Vlookup Group E-H refers to column J instead of E (eg. Brazil gets the same points as Russia because the formula looks up Russia twice)
- Power query only has 29 lines, the overview of has 32 but the 3 countries from group A are lost as the overview is refreshed - causing N/A in the group stage colums
@Jake.. thank you. I am sorry for the errors. I could not test the live points table until the games began. I see my folly now. I have fixed both issues and uploaded a new file. As the points table relies on a wikipedia page, if someone decides to change the layout or rename a column it can seriously harm this template. I took some precautions in the Power Query layer to adjust column names dynamically etc, but it is not foolproof.
Try downloading the newer version and let me know if you see something funny.
No worries!
Was able to fix the vlookup myself but the power query had me bit stumped 🙂 And wanted to give you a heads-up to everyone can enjoy it!
Thanks for the awesome sheet!
Hi,
Thanks for sharing this world cup tracker. Certainly makes it more interesting when the data is current. As a newbie, it also helps to have a couple of mistakes to find whether unintentional or not.
Thanks again
Hi,
Your v-lookups in the "Group Stage" tab for groups E, F, G, and H (all the ones under column O) are pointing to the wrong country. They all point to column J, so whatever happens to the countries in column J will also be reflected for the countries in the groups in column O for that same row.
Just thought I'd call that out. Thanks for the great work on this!
@Christian... Thanks for trying this and letting me know about lookups. I have fixed the issue now. Please download latest version for that and few more fixes.
Refresh All did not work correctly. Team names vanished though points were updated.
@Sheeloo... Can you please try with latest version (download again using above links). I tested up to latest Iran's stunning win over Morocco and it works.
Dear Chandoo
Thanks a lot for this worksheet.
However, while refreshing the data, I am getting error message as "Initialisation of Data Source failed".
May I know what version of Excel you are using? Do you have internet connectivity? If you are familiar with Power Query, try tracing the steps in the query editor. And oh, first start with the latest version of file (link above).
@Etienne - yes. Copy row, paste formats will do it, although obviously that will bring the formats of every cell in the row as well as the height.
Latest version seems to be working well.
One request: the Groups & Points tables on the Group Stage sheet have the team names pre-entered. This means they don't get sorted according to the results.
On my copy, I've changed them to a lookup, so they appear in the same order as the points table. It would be good if you can do the same if/when you release a new update!
Here's what I did. It's not the most elegant, but it works, and I didn't have much time to spend on it!
Using helper values of 1,2,3,4 in columns I and N for each group, the formula for the first team name in group A (cell J4) is:
=INDEX(points[Team],MATCH(OFFSET(J4,-(I4),0),points[Group],0)+(I4-1))
This can be copied & pasted to the other team name cells.
Cheers!
Good suggestion. I have made changes to the points table to remove lookups and just show teams in the order they appear in the detailed table. This way, You will see top two teams on first two rows. We could highlight them as well (figured this would make it look like a bowl of M&Ms, so didn't bother) or highlight *YOUR* team.
I consider my Excel skills as above average but far from guru and I love how your little projects like this get me to look at data in a new way. I would like to expand on the data in the points table through the use of some calculations but I am a little challenged by the data coming across as text. The Pts column is easy to deal with, but I'm having problems with the GD. The negative goal differential looks like it may be noted with an en dash instead of a minus sign, but if I search for an en dash in the data Excel doesn't find any. I would like to include conversion to a minus sign in my little macro so I can get everything to numbers but so far I am not having any luck. Any thoughts? Thanks for your help.
Thanks for such kind words 🙂
I suggest adding an extra step in Power Query to convert points, GD & other columns to numbers. You can replace em dash in PQ. I did not do it as this will add another layer of dependency and should the wikipedia page change, one more reason for the query to fail.
As always, an awesome spreadsheet from Chandoo. I love the Power Query score update without macros. The country watch-out is a unique feature as well!
For those who like a predictor template with flag lookup and a ribbon UI, here is our spreadsheet:
https://www.spreadsheet1.com/fifa-world-cup-2018-russia-free-prediction-templates-for-excel.html
Here is our World Cup 2022 template with LAMBDA functions:
https://www.spreadsheet1.com/fifa-world-cup-2022-qatar-free-prediction-templates-for-excel.html
[…] Interesting World Cup Tracker here at chandoo.org : https://chandoo.org/wp/fifa-worldcup-2018-tracker/ […]
Great template!
I came across another one with image vlookups for country flags
https://eexcel.co.uk/downloads (World_Cup_2018_Sweepstake.xlsx)
This is a great Template.
I am running Excel 2010 with the PowerQuery add-in running.
The scores will not update, so I followed the error and the second operation (Fitlered rows) says that the table is empty.
After a few minutes on Wikipedia, I realise that my PowerQuery skills are not good enough to work out what the issue is.
Any suggestions?
I would like to fix it myself is possible.
Thanks,
Sean.
@Sean... Can you try the latest version mate? I think it should work.
Where can I see the results for a specific match?
Thanks!
@Juan... You can now. I have included a results tab that shows match scores. This too is a live table. Just refresh data to get new results. Please download latest version file from links above to use this feature.
PS: There is another version coming soon with all goals too. I just have to spend some more time polishing the Json to table Power Query thingie.