This is a guest post by Vijay, our in-house VBA Expert.
Hello Everyone,
This post shows how to make project risk maps using VBA. If you have modern versions of Excel (365, 2019 or 2016 with TEXTJOIN() function), see the Excel Risk Map Template page.
We all have some projects to manage every now and then and there are needs of various trackers that help us in gauging the progress of the same. One of the most important things are heat maps that quickly help us in visually displaying the names of the projects that need special attention and resolve issues that are impacting them.
So go ahead and grab a cup of coffee and read this article that would help you in creating a Risk Heat Map in excel (will use some double shot espresso in the form of VBA code) to help us to the target.
Before we begin – Data for Project Risk Maps
First of all we will understand what we are trying to create here by looking at the image below.
You would have seen a picture like this while managing project risks.
So today we will be learn how to create this in Excel to become more awesome in managing projects.
What is important here is how your data for the projects/entities being tracked laid out. We will use the Excel data tables [structured references] to help us here.
There is a Setup sheet in the excel file where we can add the names of the projects that we will use on the data table, as well as the Probability and Impact have been defined as data tables. This helps us in using their contents as drop down options in the data table.
Adding Named Ranges
We need to use the Name Manager to create named ranges to be able to use the data table columns as drop down items, this is show below.
- 1.Type this in a blank cell and then copy “=tblProject[Project]”.
- 2.Bring up the Name Manager by pressing CTRL + F3, or by going to the Formula’s Tab and clicking on Name Manager.
- 3.Click on New
- 4.Type the name lstProject in the Name box
- 5.Paste “=tblProject[Project]” in the Refers To box and the click on OK.
Repeat this process for “=tblProbability[Probability]” and “tblImpact[Impact]”
Now you can go the actual risk data table and select the Project columns first blank cell and put in Data Validation List here, choose List and put the Source as lstProject. Repeat this for Probability and Impact cells. You will only need to this one time for the first row, new rows when added to the table will automatically contain these settings.
After we have created the above data table, we need to add 3 columns to the right side where we will setup the calculation that will be used to update the risk map.
a) First Column is named as “ProbabilityScore” Since probability has been marked as “A, B, C or D”, we would need to convert this into a number. This is done by using the below formula.
=IFERROR(CHOOSE(MATCH([@Probability],lstProbability,0),4,3,2,1),””)
b) Second Column is named as “SearchString”
=IF([@Status]=”Open”,CONCATENATE(“x”,[@ProbabilityScore]^4+[@Impact]),””)
c) Third column is named as “DisplayName”
=CONCATENATE([@ID],” “,LEFT([@Project],20),IF(LEN([@Project])>20,”…”,””))
Understanding the SearchString Table
When creating the SearchString we are raising the probability score to the power of 4, this is what I have chosen you may select any number that you need. Below is the resulting matrix of numbers that we obtain by doing this.
The last columns in only used for trimming the name of the project to 20 characters of there is a big name, else the actual name of the project is used to display in the Risk Map.
Understanding the Code
So now we are ready to look into the VBA code that helps us in creating the Risk Map.
Public Function showRiskMap(inputRange As Range, searchString As String, dataRange As Range, separator As String)
Dim cntr As Long
Dim tempArray() As Variant
Dim tempDataArray() As Variant
Dim tempString As String
tempArray = inputRange.Value
tempDataArray = dataRange.Value
For cntr = LBound(tempArray) To UBound(tempArray)
If tempArray(cntr, 1) = searchString Then
tempString = tempString & tempDataArray(cntr, 1) & separator
End If
Next
showRiskMap = tempString
End Function
We are sending 4 parameters to this function which are
- inputRange – this is the SearchString columns data
- SearchString – this is a manual enrty such as “x257”
- dataRange – this is the Display Name column from where we will pick the name of the project to display
- separator – this is CHAR(10) which is a line break in case we have multiple projects falling in the same category
We are making use of Array’s here to pass the data from the Table column into the array and then a simple For loop to parse them and show us the results.
I hope you will enjoy this article and this assist in managing your projects in a much efficient way.
Download Excel Risk Map File
Click here to download the file & use it to understand this technique.
Click here for Risk Map Template for new versions of Excel.
Do you use Excel for creating Risk Maps?
Do you also user Excel for creating Risk Maps? If yes please put in the comment below how do you use the same and what has been your experience. Leave a comment.
More on VBA & Macros
If you are new to VBA, Excel macros, go thru these links to learn more.
Join our VBA Classes
If you want to learn how to develop applications like these and more, please consider joining our VBA Classes. It is a step-by-step program designed to teach you all concepts of VBA so that you can automate & simplify your work.
Click here to learn more about VBA Classes & join us.
About Vijay
Vijay (many of you know him from VBA Classes), joined chandoo.org full-time this February. He will be writing more often on using VBA, data analysis on our blog. Also, Vijay will be helping us with consulting & training programs. You can email Vijay at sharma.vijay1 @ gmail.com. If you like this post, say thanks to Vijay.
54 Responses
Hi Chandoo,
This is awesome *****
Found 6, just one remaining, and I think it should be in sheet2, as I found 1 in each sheet but didn’t found anything in sheet2 (till yet, I am keep looking).
Very cleaver and amazing work, enjoyed a lot…
Thanks Chandoo for this beautiful work.
Wish you have great time at Hyderabad.
Regards,
Khalid
go to AB201 on Sheet2, you will see Panda there !!!
Press F2 in Cell A1 and then read the actual text !!
In Sheet 2 go to Cell AB201. You will find one.
There is one on first sheet, if you press F5 (goto), the word PANDA can be seen there.
Oh I found the last one, (custom format hmm)
Truly Amazing and the beauty of this forum.
You are an Artist Chandoo.
Hi Chandoo,
Wow, you really have magical skills. I am in office and this sheet ate up an hour of my time….didn’t expect that.
I could find 5 of the 7 pandas. Didn’t know one could hide so much data in innocent looking excel sheets.
Thanks!
-Ranjith
yeah! found all 7 panda, time to go to china.
This was very fun and challenging, thanks for posting! I found all of them (well, Sheet1 was tricky, it seems you’re supposed to find the cell and type it in yourself?). Wasn’t sure if it was cool to post the answers here or not, though. Guess I’ll post SPOILER ALERTS so you can skip the rest of the message if you don’t want to see what I came up with.
SPOILER! SPOILER! SPOILER!
My answers appear below.
Sheet1: type PANDA in cell PAN3489
Sheet2: cell AB201
Sheet3: cell J8 (Picture1)
Sheet4: cell H9
Sheet5: expand Chart1
Sheet6: formula = “=MID(ADDRESS(9,2^3*23*59,4),1,3)&BIN2HEX(11011010)”
Sheet7: named range (A1:I18)
Wookie – I would love to get a walkthrough of HOW you figured out sheet 1 and a bit of a formula walkthrough for Sheet 6.
Basically, I don’t know how I could have found that particular cell input message on Sheet 1.
And I have no clue about the BIN2HEX part of the formula…before your hint I was able to get the output to read AN9DA. The change to MID and the addition of that ‘,1’ changed it to PANDA…
Hi Rachel,
To get to the cell in sheet 1 you can press: ctrl G. Then special and then data validation: all. This is also the way to find panda in sheet 7 😉
I agree, this was a fun way to test your ability to navigate through the functionality of Excel! And since you already posted the SPOILER ALERT warning, I should be safe posting a reply to your comment with some solutions of my own… 🙂
I found all the same solutions you did with a few minor changes:
Sheet1: If you notice, cell PAN3489 has Custom formatting. You don’t have to type “PANDA”, just the number 1.
Sheet6: The MID function works as you described, but you can also simply change the RIGHT function to the LEFT function without having to add in the start and end positions for MID.
Sheet7: Yes, the range name for these cells is called PANDA, but you don’t see the actual word in the sheet unless you change the Zoom setting to 39% or less (hence the clue “Z” 39%).
Thanks again for a great post, Chandoo!!
I must admit sheet 7 defeated me, but I have some corrections
Sheet 1 – you type =LEFT(ADDRESS(ROW(),COLUMN(),2),3)&DEC2HEX(ROW())
in PAN3489 to get “PANDA1”. As it is the first panda. I think panda1 is appropriate, but maybe
=LEFT(ADDRESS(ROW(),COLUMN(),2),3)&LEFT(DEC2HEX(ROW()),2)
is better, because it leaves you with “PANDA”
Sheet 6 – I corrected to
=LEFT(ADDRESS(9,2^3*23*59,4),3)&BIN2HEX(11011010)
Picky I know, but who uses mid when a right or a left will do?
I know; that was weird. I did try using a LEFT formula, but I kept getting the $ prefix from the cell address. So I tried a couple of variations using MID and it gave me the result I needed. This is actually the first time I’ve ever tried using a MID formula starting at the first character, but I wasn’t trying to spend a lot of time on it, so I went with what worked.
Sheet1: Type 1 in PAN3489
Sheet6: =LEFT(ADDRESS(9,2^3*23*59,4),3)&BIN2HEX(11011010)
Slight change…
For sheet 1 goto PAN3489 and type in 1. The word PANDA appears.
Love it!
Sheet 6 was my favorite. How many people still know what binary, hex and octal are? :o)
—–Spoilers———
Alternate Solutions
1) Type “1” (not the quotes) in PAN3489 and Excel will turn “1” into “PANDA”
6) The formula Wookie lists also works with LEFT in place of MID
Lot of fun. Solve time ~20 mins.
@ Rob
How this 1 turns to PANDA .. means How this is done by excel any formula or something in VBA
Also how to reach cell PAN3489 .. there are no clues given on sheet 1
You reach PAN3489 by pressing Ctrl + End to bring you to the last used cell in Sheet 1
@ Navdeep I found PAN3489 by going to “Formulas” and then “Name Manager” and saw there was a field called “Clue1” listed in the Name Manger that references 3489. Finding PAN as the column index was just a bit of a lucky guess through trial and error. Then a note in cell PAN3489 when you navigate there says to try “typing something.” I tried scrolling through the Format Cells menu to see if the text typed in the cell needed to be formatted a certain way, and noticed that “1= Panda” was listed in the custom text menu and tried it. A bit brute force, but I think the desired text entry.
Clever!
The Data Validation one took me a bit. Had to resort to brute force.
Thanks for the fun!
Awesome! Found 7 pandas in 20 minutes)))
Sheets 1 and 6 were the best!
Thanks!
Sheet 1: The answer is not type in Panda. Type 1. There’s a special formatting that replaces 1 with Panda.
Sheet 6: Just replace right with left, don’t worry about changing the numbers.
Sheet 7: I found the named range, but don’t know what the Z 39% means. Thoughts?
when you changed the zoom level to 39% or below, you will see the name of namedrange (if any)
WOW! I’ve just found the secret eighth PANDA!
Truly awesome!!!
Am I the first one who figured that out, guys?
Btw, thanks for the puzzle!
Found them all – very inventive. Had to think outside the “box”. Great fun!
It was truly a artists work
chandoo you are grate
all sheets are deigned different from each other
@Wookiee: you have a good for others by posting the answers, Thank you too
it is fun and great invent
Guys I Got 8 PANDA in the workbook… 🙂
[Look Chandoo has against played great trick by reserving one more ester egg, but we are also fan of none other than Chandoo, who can get hold of hidden 8th (untold) ester egg]
Here is the full list:
1) Sheet1: Type 1 in Cell PAN3489
2) Sheet2: Goto Cell AB201
3) Sheet3: Check the picture located above cell J8
4) Sheet4: Goto Cell H8
5) Sheet5: Cells, viz., A4, A10, A16, A21, A29 have all alphabets of PANDA
6) Sheet5: Resize the chart to see PANDA
7) Sheet6: Correct the formula as LEFT(ADDRESS(9,2^3*23*59,4),3)&BIN2HEX(11011010)
8) Sheet7: Range A1:I18 is named as PANDA
1) Sheet1: Type 1 in Cell PAN3489
2) Sheet2: Goto Cell AB201
3) Sheet3: Check the picture in the cell J8
4) Sheet4: Goto Cell H9
5) Sheet5: Resize the chart to see PANDA
6) Sheet6: Correct the formula as LEFT(ADDRESS(9,2^3*23*59,4),3)&BIN2HEX(11011010)
7) Sheet7: Range A1:I18 is named as PANDA
Actually, for sheet7, if you set the zoom to 39% or less, you will see the word PANDA. Yet another PANDA! 🙂
Hi,
i want to know how to manage bill wise manage vendor invoice and payment in excel please suggest.
Thanks,
Ram
Hi Chandoo!
You rock with these amazing skills!
Sheet 1: ??
Sheet 2: ??
Sheet 3: Cell J8
Sheet 4: Cell H9
Sheet 5: A4, A10, A16, A21, A29
Sheet 6: B2
Sheet 7: ???
Sheet1 F5
Sheet2 AB201
Sheet3 Picture1
Sheet4 H9
Sheet5 Chart
Sheet7 Zoom to 30%
I love this time of year and look forward to Chandoo’s egg hunts. Whilst I got all the pandas, I do not understand how sheet 7 works; Where is the source data and why does it only work when zoomed out to 39% or more?
@Leon-K
When you change the zoom level to be less than 40% Excel shows the Ranges which have Names applied to them
Ha ha, that’s fantastic. Thanks Hui. @Chandoo, thanks for yet another method to decrypt worksheets in order to re-build or explain them better to clients.
These were fantastic and kept me intrigued until I could finish them. (Had to look here for help with Sheet1!) Definitely learning a lot about some new formulas. Awesome, Chandoo!
Ok, just saw the notes on the Zoom 39% on Sheet 7. Can someone explain what’s happening here and why PANDA shows up at that level?
@Bryan
When you change the zoom level to be less than 40% Excel shows the Ranges which have Names applied to them
Wow, great exercise.
Tried and solved 5 out of seven and other two solved incorrectly (1 & 6).
Thanks 🙂
Hi Chandoo,
Gr8 …had fun in searching it. I got 5 out of 7.
You are brilliant.
Found all except in sheet6 as not able to understand formula.
thanks
Raja Aurongzeb
Hi,
I am not able to find 1st Panda, which is on Sheet1. Rest all I have found.
Wonderful Chandooji… you are brilliant.
Wow.. Awesome set of puzzles Chandoo!!
Am now trying to figure out how sheet 7 was prepared.. 39% Zoom setting logic.. Can someone help me with a hint?
Thanks!
Looks like this is an XL feature.. Zooming out the worksheets below 40% level, by default displays all named ranges (more than 2 cells)! Had not come across this till date..
Great works! Was having FUN in finding the pandas. Thanks.
btw, I used one basic function (Find, CTRL+F) to find 2 pandas. Simply Find “Panda” within “Workbook”… To my surprise, seems no one mentioned that in the process.
On other other hand, Selection and Visibility Pane is a handy tool to see if there is “extra” shapes for locating pandas hidden in chart/picture.
Had fun doing this, Found 5 and the rest I saw clues on here 🙂
I really enjoyed when finding the pandas.And also I am so surprised.Very Nice thought and Excellent.
This was fun! Thanks!
Nice and fun post. Thanks, Chandoo!