Solved

Heatmap Graphic

Posted on 2015-01-26
9
72 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
 

Author Closing Comment

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

B.
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Dealing with unintended Excel Active-X resizing quirks (VBA code simulates "self correction") David Miller (dlmille) Intro Not everyone is a fan of Active-X controls in spreadsheets (as opposed to the UserForm approach, the older Form controls …
Introduction While answering a recent question (http:/Q_27311462.html), I created an alternative function to the Excel Concatenate() function that you might find useful.  I tested several solutions and share the results in this article as well as t…
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

895 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

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now