madvogue29
New Member
- Joined
- Aug 28, 2020
- Messages
- 32
- Office Version
- 365
- Platform
- Windows
Could you please help in resolving this ? It works find on one windows laptop but not on the other (Boss's laptop).
Error is here
Thanks in advance!
VBA Code:
Sub AddSalesFormatting()
Worksheets("sales").Activate
ActiveSheet.Unprotect
Worksheets("sales").Cells.FormatConditions.Delete
Range("$C$15:$C$10000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU($D14=""Task"",$D13=""Task"",$D12=""Task"",$D11=""Task"",$D10=""Task"",$D9=""Task"",$D8=""Task"")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
End With
Range("$C$17:$C$10000").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU($D17<>"""",$D16<>"""",$D15<>"""",$D21<>"""",$D22<>"""",$D23<>"""",$D24<>"""",$D25<>"""")"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
End With
Range("C17:C10003,G17:G10003").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""NEW"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
End With
Range("C17:C10000,G17:G10003").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""PROPOSAL"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 39423
.TintAndShade = 0
End With
Range("C17:C10000,G17:G10003").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""NEGOTIATION"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 9655413
.TintAndShade = 0
End With
Range("C17:C10000,G17:G10003").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""PENDING"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 16750848
.TintAndShade = 0
End With
Range("C17:C10000,G17:G10003").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""ACCEPTED"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 39168
.TintAndShade = 0
End With
Range("C17:C10000,G17:G10003").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""NO GO"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 5659387
.TintAndShade = 0
End With
Range("H17:K2373").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$G17=""NEW"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
Error is here
VBA Code:
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU($D14=""Task"",$D13=""Task"",$D12=""Task"",$D11=""Task"",$D10=""Task"",$D9=""Task"",$D8=""Task"")"
Thanks in advance!