Heatmap Graphic

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
Bright01Asked:
Who is Participating?
 
Phillip BurtonConnect With a Mentor Director, Practice Manager and Computing ConsultantCommented:
Please find attached.

You will need to enable macros.
Experts150126.xlsb
0
 
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
And what do you need help with?
0
 
Bright01Author Commented:
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
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

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

 
Bright01Author Commented:
Great job!  Fast and spot - on!  Much thanks.

B.
0
 
Bright01Author Commented:
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
 
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
Ignore the 3 modules - use the one in the spreadsheet.

I am only controlling color.
0
 
Bright01Author Commented:
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
 
Phillip BurtonDirector, Practice Manager and Computing ConsultantCommented:
Could you please author them. Thanks.
0
 
Bright01Author Commented:
It's out there as "Heatmap Graphic Enhanced".

Much thanks,

B.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.