Sub t_1()
'
' t_1 Macro
'
'
Range("H3").Select
Application.CutCopyMode = False
Cells.FormatConditions.Delete
Range("H3:H400").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($H2-$H3)/$H3)*100>50"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("H3:H400").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($H2-$H3)/$H3)*100>75"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("H3:H400").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($H2-$H3)/$H3)*100>90"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Sub t_1_2()
'
' t_1_2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Application.CutCopyMode = False
Cells.FormatConditions.Delete
Range("H3:H400").Select
Range("I3").Activate
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($H2-$H3)/$H3)*100>50"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = 0
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399914548173467
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("H3:H400").Select
Range("I3").Activate
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($H2-$H3)/$H3)*100>75"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = 0
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399914548173467
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("H3:H400").Select
Range("I3").Activate
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($H2-$H3)/$H3)*100>90"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = 0
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399914548173467
.PatternTintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("I3:I400").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($I2-$I3)/$I3)*100>30"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("I3:I400").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($I2-$I3)/$I3)*100>50"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent3
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("I3:I400").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(($I2-$I3)/$I3)*100>75"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.399945066682943
End With
Selection.FormatConditions(1).StopIfTrue = False
Windows("PERSONAL.XLSB").Activate
Windows("_Reduced_Merged-InstStraddleDF_2020-07-05-21-16-03.xlsx").Activate
End Sub