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.

41 Responses to “How to use Excel Data Model & Relationships”

  1. Ashish Youngy says:

    Data is Excel 2013 behaves so much like a OLAP cube when using with PivotTables. And this is actually wow. Consider learning not just DAX but MDX too 🙂 Happy Excel

    @Chandoo.. Have a nice and safe time in US. Best Wishes. And when they are publishing your interview in Entrepreneur 🙂

  2. Buzz says:

    I have been using PowerPivot in Excel 2010. My understanding was (via PowerPivot Pro blog) that Power Pivot would NOT be available in Excel 2013 in all versions; my recollection is that it was only going to be available in certain enterprise subscription editions. Thus, for individual users, it will no longer be available? For that reason I have moved some of my projects to Tableau, and do not expect to upgrade to Excel 2013.
    Can you confirm the availability of Power Pivot for all Excel 2013 users , or will it be restricted and unavailable for some users?

  3. Oz says:

    Just this weekend I upgraded from Home Premium to Professional Plus and spent time with Power View and PowerPivot.

    Up to that point I never saw myself in VLOOKUP Hell, and it may not be going away any time soon. I'm surprised to discover how many of my clients are still on Excel 2003. And then I have Mac users who don't have a lot of this great stuff available to them at all.

    These are great features and I'm going to dive into the Data Models. Unfortunately, I suspect, for me, the practical use may be limited to blogposts because I can't teach Power View in my workshops or send a client a spreadsheet that has a Power View in it.

    • thundom says:

      Hi OZ,

      I think the Microsoft would only upgrade the excel to a certain level instead of making it so powerful that it might threat their BI product. You know these "powerful" stuff can be easily done with a entry level crystal reports version.

      Glad to listen to ur opinion on it.

      I spent quite some time and energy on Excel and used it a lot, but now I am focusing energy on BI software like crystal reports.

    • thundom says:

      We both know that based on the technology today. All the time we spend on the Macro and advanced function of Excel can be done easily with other softwares which costs only hundreds of bucks.

      • Hui... says:

        @Thondom
        I don't think Excel tries to be the solver of all problems
        It is a generic tool
        Which for about 95% of people will do what they want 95% of the time
        There will always be specifics where specific custom software will do better than Excel
        It is the commonness of Excel which means that I can send a model to you and it will work , most of the time, that is its strength, of course combined with its flexility in being able to be adapted to suit most needs

        • thundom says:

          Hi Hui,
          You are right.

          But,

          for the business and individual, who spend too much resource on Excel to meet their BI requirements and other processing requests.

          Should they open their eyes to other ways to do it, in this age? Especially for many people try too much time to process stuff with thousands lines of macro programming.

          It is just as when human being created gun fire, the martial arts would not be that effective.

          Ppl need to be prodent when they choose their solution.

          • Hi guys, I just came across your conversation. I have an example of BI vs. Excel stuff. Here in Russia there is an ERP-system called "1C". It became a defacto standart for accounting, planning and BI / analytics. It is positioned as a flexible and powerful system and it really is.
            But its reporting abilities aren't user-friendly (or maybe just not me-friendly).
            Many reports require programming and all those SQL things, so that is common for a company to have a couple of programmers who develop and code those reports.
            So the common solution is to export data to Excel and then process it to be more suitable for further analysis or reporting.
            Well, it's obviously not a rule of thumb that special BI software can outperform Excel in day-to-day routine.

  4. Tris says:

    Hi Chandoo, thanks for publishing great Excel information. Pardon the ignorance as I havent used Data Model nor PowerPivot. But having seen your video clip on PowerPivot, how does Data Model differ from PowerPivot - the "process" seems familiar? Have a great day! And Excel to new heights! Regards,

  5. Nolberto says:

    Excellent posting, some pride themselves for having sheets with thousands of formulas or complicated formulas, but in the end the important thing is to work as little as possible.

    • Oz says:

      @Nolberto let's not gloat yet. Some people are forced to have thousands of complicated formulas when they don't have the fancy tools. I'm sad for the 2003 users who have to use SUMPRODUCT when the rest of us have SUMIFS available.

      In the end, I think the important thing is clean, trustworthy data--however you arrive at it. People survived more than 300 years with slide rules and paper. No PowerPivot for the Wright Brothers.

  6. koi says:

    hi chandoo,

    i added 2 column into sales, 1st column vlookup customer ID to CUST sheet to get the male or female, then 2nd column vlookup Product ID to Product sheet to get the product name, then after that i make pivot table out of sales sheet.

    but then the result is really different from yours

    the purposes is just try to do the vlookup vs add to data model to see if they get same result

    thanks

  7. koi says:

    ups sorry, didnt see that you're filtering using slicer..then it is good now the result are same with less effort 🙂

    thanks

  8. SPrasad says:

    Hi Chandoo, .I am interested to know whether we can build a star schema or snow flake data models through relations in Excel? (trying to correlate with Qlikview)

    • Chandoo says:

      Hi there,

      You can create a Star schema for sure. Snow-flake is possible too. As long as all relationships are one to many (or one to one) anything is possible.

      • Nestavaro says:

        What if customer.profession change its value after sometime?
        Supposed we have monthly data for Sales. What if one customer is a doctor in Feb, then a pilot in October, for example?

        How to build data model for such that situation?

        Thank you.

  9. Raghavendra Shanbog says:

    Hello ,
    I find this option similar to that of MS Access.
    In MS Access as well we have relationship concept and once you create a relationship, you can start creating number of queries based on that.
    But MS Access is not so user friendly and basically its database. Good that we are getting those options/functions in Excel.
    Thanks for sharing this info.

    Regards,
    Raghavendra Shanbog

  10. What is star schema and snow flake.??? Can we have next article on that if it is useful for us???

  11. Roberto says:

    Hi there, can anyone help? I tried testing this out in Excel using two tables. When I go to the Data tab the Relationships button does not appear at all. I am using Microsoft version 14.0.4760.1000, Microsoft Office Professional Plus 2010. Does this version have this capability? Or is there an add-in required?

  12. […] even a layperson can perform if they have the almighty Excel 2010 and PowerPivot installed. Or Excel 2013′s Data Model, which lets you mash up data from Excel Tables and serve them up directly as PivotTables with not a […]

  13. Chandeep Chhabra says:

    Chandoo/Hui,

    The dates grouping feature does not seem to work in Data Model. Is that true or am I making a mistake somewhere?

  14. Jay says:

    I don't think this is really for "lookups"...

    Try creating a pivot with sale ID and customer name in row fields. It will give you ALL customer names per sale ID.

    You'd need to use RELATED function in a new column in powerpivot if you want something equivalent to "vlookup"

  15. Aslam says:

    Please explain the difference between data model and power pivot, the functions of both of them are different and similar
    thanks

  16. […] Handling large volumes of data in Excel—Since Excel 2013, the “Data Model” feature in Excel has provided support for larger volumes of data than the 1M row limit per worksheet. Data Model also embraces the Tables, Columns, Relationships representation as first-class objects, as well as delivering pre-built commonly used business scenarios like year-over-year growth or working with organizational hierarchies. For several customers, the headroom Data Model is sufficient for dealing with their own large data volumes. In addition to the product documentation, several of our MVPs have provided great content on Power Pivot and the Data Model. Here are a couple of articles from Rob Collie and Chandoo. […]

  17. Bernadette Savage says:

    I need to use a slicer to allow a user to select vendor by name. In the background, I need to obtain the vendor ID to link to multiple datasets where the name may not be spelled consistently. Any advice?

  18. Andrea says:

    I've tried this in Excel 2016. It works great.
    I can even create Cube Formulas on the Data model after I've inserted the pivot table.
    Just for the fun of it, I tried to see if I could do Cube Formulas without creating the pivot table in advance. I can define Cube members, but it seems as if the measure part is playing tricks on me.

    I can't get a Cube Value for Chocolates sold to Male customers.
    With the Pivot created the formula looks like this (and works fine)
    =CUBEVALUE("ThisWorkbookDataModel";"[Customer].[Gender].&[Male]";"[Product].[Category].&[Chocolates]";"[Measures].[Sum of Quantity]")

    Does anyone know how I can solve this, or am I asking the impossible?

  19. Kwabena Anaafi says:

    I want to see the video on this topic

  20. nestavaro says:

    What if customer.profession change its value after sometime?
    Supposed we have monthly data for Sales. What if one customer is a doctor in Feb, then a pilot in October, for example?

    How to build data model for such that situation?

    Thank you.

    • Chandoo says:

      In such case, you need to make relationships based on two columns. This kind of feature is not supported in Excel. You can use Power Query to merge tables based on multiple columns and return a consolidated giant table to Excel for reporting.

  21. nestavaro says:

    Is it able in MS Access?
    I have never used access before.

  22. faisal says:

    thanks chandooo your article is very helpfull for troubling peoples' especially in office environment under boss pressure.

  23. Ron says:

    Here is an introduction to PowerPivot.

    The link above is broken

  24. Venkatesh says:

    Hi. This has really taken my interest.. I have huge data tables to work with...and I use vlookup to fetch certain data. I have different data in different sheets...

    Like customer sales (customer code, product code,qty, piece rate, total amount, branch code) data in one sheet
    Branch details in another (branch code, branch address, state , region)
    Customer Geographical Data in third sheet (region, region name)
    Product details in fourth sheet (product code, product description and related)

    Now I use a vlookup to get branch name, state and product name respectively into my main sheet.

    Now what I want is

    customer code, product code,qty, piece rate, total amount, branch code) data in one sheet, branch address, state , region, region name, product description

    Can't his be done thru data model... I tried but it's not working... Eitherway, I will gonthru thr session on e again and give a try... Any help, is appreciated. Thankyou

  25. Achyutanand Khuntia says:

    Dear All,

    i am striving to do reverse relationship in Power pivot ,

    example : -

    1 - Data sheet
    2. - Source data

    step to stops - import first data sheet in power piovt and then source data , made relationship with both sheet , after created relationship i am able to do put related formula in source data sheet only (=releted('Source data'[Amount]), if i go to put formula in data sheet , parameter of Source data are not visible ,

    could someone educate me how can i do , and utilize related formula in data sheet.

Leave a Reply