Solved

Heatmap Graphic

Posted on 2015-01-26
9
74 Views
Last Modified: 2015-01-27
EE Pros,

I have a "continuous improvement" circle that I'm trying to create a "heatmap" with.  As the number changes from 1 to 3, the associated color should show up in the appropriate arrow.

Any help would be appreciated.



B.
D--Data-Data-Temp-Continuous-Improvement
0
Comment
Question by:Bright01
  • 5
  • 4
9 Comments
 
LVL 24

Expert Comment

by:Phillip Burton
ID: 40570678
And what do you need help with?
0
 

Author Comment

by:Bright01
ID: 40570685
Greetings Phillip!  

When you change the value, 1, 2 or 3.... the corresponding arrow should change colors;  1 = Green, 2=Yellow and 3=Red.

That's it!

B.
0
 
LVL 24

Accepted Solution

by:
Phillip Burton earned 500 total points
ID: 40570715
Please find attached.

You will need to enable macros.
Experts150126.xlsb
0
Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

 

Author Closing Comment

by:Bright01
ID: 40570733
Great job!  Fast and spot - on!  Much thanks.

B.
0
 

Author Comment

by:Bright01
ID: 40572187
Phillip,

Quick question for you.  I see you have 3 Macros in Module1 but when I modify them,  there is no change.  Are they actually used?   How are you controlling the color, brightness and transparency?  I tried to locate the Themes but am not sure how to change transparency (to solid).

Much thanks,

B.
0
 
LVL 24

Expert Comment

by:Phillip Burton
ID: 40572274
Ignore the 3 modules - use the one in the spreadsheet.

I am only controlling color.
0
 

Author Comment

by:Bright01
ID: 40572404
Phillip,

Thank you for the quick response.  Got it.

Two questions (I'll author them if needed);

If I want to make the arrows solid is there a line I can add?

Also, I copied the Worksheet to another WB.  I'm having one problem with the line "With ActiveSheet.... any ideas?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 19 And (Target.Row > 31 And Target.Row < 38) Then
   
        With ActiveSheet.Shapes.Range(Array("Arrow" & (Target.Row) - 1)).Fill.ForeColor
        Select Case Target
        Case 1
          .RGB = RGB(0, 255, 0)
        Case 2
          .RGB = RGB(255, 255, 0)
        Case 3
            .RGB = RGB(255, 0, 0)
        End Select
    End With
End If
End Sub
0
 
LVL 24

Expert Comment

by:Phillip Burton
ID: 40572409
Could you please author them. Thanks.
0
 

Author Comment

by:Bright01
ID: 40572556
It's out there as "Heatmap Graphic Enhanced".

Much thanks,

B.
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.

810 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question