?
Solved

Heatmap Graphic

Posted on 2015-01-26
9
Medium Priority
?
88 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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 2000 total points
ID: 40570715
Please find attached.

You will need to enable macros.
Experts150126.xlsb
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

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

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

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

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
This article describes a serious pitfall that can happen when deleting shapes using VBA.
The viewer will learn how to create a normally distributed random variable in Excel, use a normal distribution to simulate the return on an investment over a period of years, Create a Monte Carlo simulation using a normal random variable, and calcul…
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.

801 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