Here is code that colors shapes based on values in an array. I want to be able to change to a different set of values. I can do this by copying the code and adding a new button but I'd like to just have a command button that changes the original code. Is this possible? Maybe even a combo list box? Here is the original code
All i want to change is:
H = Application.Max(Range(Cells(r.Row, 3), Cells(r.Row, 32)))
L = Application.Min(Range(Cells(r.Row, 3), Cells(r.Row, 32)))
and make it this"
H = Application.Max(Range(Cells(r.Row, 35), Cells(r.Row, 61)))
L = Application.Min(Range(Cells(r.Row, 35), Cells(r.Row, 61)))
I need to change it up to 10 times because I have 10 sets of data. I'm thinking 10 buttons that change the range. Combolist would be awesome if possible. Again I can just copy the code and make another with the correct location but I'd like a simpler way if possible.
Formula:
![]( "Select Code")
Sub ColorShape()
Dim r As Range
Dim shp As Shape
Dim H As Double 'high
Dim L As Double 'low
Dim j As Double 'check number
Dim clr As Long 'RGB
For Each r In Range("b5:b92")
H = Application.Max(Range(Cells(r.Row, 3), Cells(r.Row, 32))) ' range of values to look at
L = Application.Min(Range(Cells(r.Row, 3), Cells(r.Row, 32))) ' range of values to look at
Select Case L
Case Is <= Worksheets("FFT max - bins").Cells(1, "f").Value
clr = RGB(47, 117, 181) 'Dark blue, if values <= number in F then color dark blue
L = Abs(L)
Case Is <= Worksheets("FFT max - bins").Cells(1, "g").Value
clr = RGB(0, 161, 218) 'blue , if values <= number in g then color blue
L = Abs(L)
Case Is <= Worksheets("FFT max - bins").Cells(1, "h").Value
clr = RGB(189, 215, 238) 'Light blue, if values <= number in h then color light blue
L = Abs(L)
Case Else
L = 0
End Select
'IF blue already set...skip red section
If H > L Then
Select Case H
Case Is >= Worksheets("FFT max - bins").Cells(1, "k").Value
clr = RGB(255, 0, 0) 'dark red, same as above
Case Is >= Worksheets("FFT max - bins").Cells(1, "j").Value
clr = RGB(255, 113, 113) 'red, same as above
Case Is >= Worksheets("FFT max - bins").Cells(1, "i").Value
clr = RGB(255, 172, 172) 'light red, same as above
Case Else
H = 0
End Select
End If
j = Application.Max(H, L)
If j > 0 Then
For Each shp In ActiveSheet.Shapes
If shp.Name = Cells(r.Row, 2).Text Then
shp.Fill.ForeColor.RGB = clr
End If
Next
End If
'reset RGB
clr = 0
j = 0
Next
End Sub
All i want to change is:
H = Application.Max(Range(Cells(r.Row, 3), Cells(r.Row, 32)))
L = Application.Min(Range(Cells(r.Row, 3), Cells(r.Row, 32)))
and make it this"
H = Application.Max(Range(Cells(r.Row, 35), Cells(r.Row, 61)))
L = Application.Min(Range(Cells(r.Row, 35), Cells(r.Row, 61)))
I need to change it up to 10 times because I have 10 sets of data. I'm thinking 10 buttons that change the range. Combolist would be awesome if possible. Again I can just copy the code and make another with the correct location but I'd like a simpler way if possible.