• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 97
  • Last Modified:

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
0
Bright01
Asked:
Bright01
  • 5
  • 4
1 Solution
 
Phillip BurtonCommented:
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
 
Phillip BurtonCommented:
Please find attached.

You will need to enable macros.
Experts150126.xlsb
0
Industry Leaders: 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!

 
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 BurtonCommented:
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 BurtonCommented:
Could you please author them. Thanks.
0
 
Bright01Author Commented:
It's out there as "Heatmap Graphic Enhanced".

Much thanks,

B.
0

Featured Post

Independent Software Vendors: 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!

  • 5
  • 4
Tackle projects and never again get stuck behind a technical roadblock.
Join Now