Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Add color bars in column I in ATP sheet
- sATP.Select
- sATP.Range("I8:I" & Lastrow).Select
- Selection.FormatConditions.AddDatabar
- Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True
- Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
- With Selection.FormatConditions(1)
- .MinPoint.Modify newtype:=xlConditionValueLowestValue
- .MaxPoint.Modify newtype:=xlConditionValueHighestValue
- End With
- With Selection.FormatConditions(1).BarColor
- .Color = 3997685
- .TintAndShade = 0
- End With
- Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
- Selection.FormatConditions(1).Direction = xlLTR
- Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
- Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderSolid
- Selection.FormatConditions(1).NegativeBarFormat.BorderColorType = _
- xlDataBarColor
- With Selection.FormatConditions(1).BarBorder.Color
- .Color = 0
- .TintAndShade = 0
- End With
- Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
- With Selection.FormatConditions(1).AxisColor
- .Color = 0
- .TintAndShade = 0
- End With
- With Selection.FormatConditions(1).NegativeBarFormat.Color
- .Color = 255
- .TintAndShade = 0
- End With
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement