Secret Agent KV’s Chops…what’s in HIS Personal Macro Workbook?

Share

Facebook
Twitter
LinkedIn

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.
kv_Casual

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.
kv_Smart

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.

Facebook
Twitter
LinkedIn

Share this tip with your colleagues

Excel and Power BI tips - Chandoo.org Newsletter

Get FREE Excel + Power BI Tips

Simple, fun and useful emails, once per week.

Learn & be awesome.

Welcome to Chandoo.org

Thank you so much for visiting. My aim is to make you awesome in Excel & Power BI. I do this by sharing videos, tips, examples and downloads on this website. There are more than 1,000 pages with all things Excel, Power BI, Dashboards & VBA here. Go ahead and spend few minutes to be AWESOME.

Read my storyFREE Excel tips book

Overall I learned a lot and I thought you did a great job of explaining how to do things. This will definitely elevate my reporting in the future.
Rebekah S
Reporting Analyst
Excel formula list - 100+ examples and howto guide for you

From simple to complex, there is a formula for every occasion. Check out the list now.

Calendars, invoices, trackers and much more. All free, fun and fantastic.

Advanced Pivot Table tricks

Power Query, Data model, DAX, Filters, Slicers, Conditional formats and beautiful charts. It's all here.

Still on fence about Power BI? In this getting started guide, learn what is Power BI, how to get it and how to create your first report from scratch.

26 Responses to “FIFA Worldcup Excel Spreadsheets [Roundup]”

  1. J. J. says:

    Nice roundup! Do you know of any one-page spreadsheets which will be updated by an administrator after each game? Would be nice to be able to print out the latest results whenever I feel like checking them as I probably won't be following closely every day.

    I actually haven't tried any of the above ones yet, but I thought I'd mention this one that I found which makes a nice one-page form you can fill in dynamically. http://exceltemplate.net/sports/world-cup-2010-schedule-and-scoresheet/

  2. Diego Garcia says:

    I would like to recommend you these one: http://www.anotagol.com/
    You can choose your interface language (english, spanish, italian, portuguese, german or french) and your country for the timezone of match. I like it very much.

  3. [...] Passend zu gerade laufenden Fußball-WM gibt es auf Chandoo.org alles wissenswerte über Excel-Anwendungen für den Fußball-Fan. [...]

  4. Rohit1409 says:

    Great!!!

    I strongly recommend this :

    http://www.en.excel-soccer-2010.de/downloads

    Chandoo how you found this ...

  5. Chandoo says:

    @Rohit.. really beautiful file. I missed it during my research. Now, I recommend it. 🙂

  6. Mourad Louha says:

    Hi Chandoo - thanks for the recommandation 🙂 - Regards

  7. [...] Excel, then print it on the other side of your Match Schedule from step 2 above. There are several other Excel spreadsheet templates you can download, but this is probably the only one-page version you can find; plus, it [...]

  8. Robert says:

    Does anybody know how to re-create this(?): http://www.marca.com/deporte/futbol/mundial/sudafrica-2010/calendario-english.html
    ...or do you know where a template can be found? I am DYING to have something like this on my site. When I found it, I had been looking for the longest time for a circular calendar. I found a couple that weren't adequate. Then I stumbled upon this one and my eyes nearly popped out of my head. If anyone can lead me in the right direction, I would be eternally grateful!

    Thanks in advance!
    Robert

  9. Chandoo says:

    @Robert...

    Doing something like that is a lot of work. You can probably get it done with some hired help from a flash developer.

  10. Pedro Wave says:

    @Robert, the World Cup flash in the Spanish Marca newspaper is impresive, but not much as my own animated spreadsheet with the Goals of 2010 World Cup South Africa in Excel that I just published into my blog:
    http://pedrowave.blogspot.com/2010/06/goals-of-2010-world-cup-south-africa-in.html

    Download from here:
    http://cid-6b219f16da7128e3.office.live.com/view.aspx/.Public/Goals%20South%20Africa%20Animated.xlsx

    And start to enter the goals of the rest of matches.

  11. Neil says:

    Has anyone seen, or made, a Spreadsheet where you can record the scorers and see a 'top scorers' chart. Would be a nice enhancement

  12. Chandoo says:

    @Neil... checkout this one http://www.inflexionary.com/sports/world-cup-2010-excel

    it uses macros to fetch scores from web (and provides very comprehensive analysis too)

    @All.. Thanks for the comments. I have updated the post with few more links now.

  13. Sergio Mathias says:

    Hi,
    Check this dashboards too:
    http://dashboards.org/world-cup-dashboards-and-visualizations/
    😉

  14. [...] Here is a collection of FIFA World Cup Spreadsheets if you are more in to that sort of thing. | [...]

  15. [...] Cup fever is here!In FIFA Worldcup Excel Spreadsheets Roundup, Chandoo has some links to useful World Cup tracking workbooks. Only one of them (the first one) [...]

  16. [...] World Cup fever is here!In FIFA Worldcup Excel Spreadsheets Roundup, Chandoo has some links to useful World Cup tracking workbooks. Only one of them (the first one) [...]

  17. Hey, you missed ours! It has everything you need and more, but not a whole pile of silly extras (National Anthems, etc).  I'll be making another one for the 2014 world cup.  We had over 4000 hits on it!

  18. Neil says:

    @Michael Harwood.

    Where is it then? You should have posted a link  

  19. phillip says:

    Sie sollten an einem Wettbewerb teil zu nehmen für einen der besten Blogs im Web. Ich werde empfehlen Sie diese Seite!
    Google translation: You should take part in a contest for one of the best blogs on the web. I will recommend this site!

  20. [...] and welcome to the forum, Maybe these similar spreadsheets might give you a few initial ideas: FIFA Worldcup Excel Spreadsheets [Roundup] | Chandoo.org - Learn Microsoft Excel Online If you have specific areas / formulae / layout choices for parts of your spreadsheet that you are [...]

  21. Petros says:

    Calling all football fans around the globe! The biggest football festival will kick off on the 12th June 2014 and everyone is placing their bets of who will have the honour of lifting the golden trophy.

    Use our free interactive Excel templatel to predict the World cup finalists ! No macros !

    http://www.spreadsheet1.com/world-cup-2014-free-excel-prediction-template.html

  22. marten says:

    I also made a Worldcup-tracker, with MS Access, which can also generate reports in Excel
    e.g. a match-schedule with locations on y-axis and dates on x-axis, see:
    http://worktimesheet2014.blogspot.com.es/2014/05/excel-with-match-schedule-for-2014-fifa.html
    and:
    http://worktimesheet2014.blogspot.com.es/2014/05/match-access-app-to-track-world-cup.html

  23. Vivek Ranjan says:

    where can i find raw data in excel file format of fifa world cups (1930-2014)

Leave a Reply