Do you already have a format condition in that range? If so, I think you
will have to delete the old condition and apply the new one. For example:
Range("A1:A10").FormatConditions.Delete
Range("A1:A30").FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(AND(ABS($J10)>$G$5,ABS($I10)>$G$4))"
Hope this helps! If so, let me know by clicking "YES" below.
--
Cheers,
Ryan
"Sarah" wrote:
> No, it's not protected.
>
> "RyanH" wrote:
>
> > Is the sheet you are trying to apply the formats protected? If so, you need
> > to unprotect the worksheet first then reapply the protection.
> >
> > Sub TEST()
> >
> > ' unprotect sheet first
> > Sheets("Sheet1").Unprotect Password:="password"
> >
> > ' your code
> > With Range("I10:I1000")
> > .FormatConditions.Add Type:=xlExpression, Formula1:= _
> > "=(AND(ABS($J10)>$G$5,ABS($I10)>$G$4))"
> >
> > .FormatConditions(.FormatConditions.Count).SetFirstPriority
> > With .FormatConditions(1).Font
> > .Bold = True
> > .Italic = False
> > .Color = -16776961
> > .TintAndShade = 0
> > End With
> > .FormatConditions(1).StopIfTrue = True
> > End With
> >
> > ' protect sheet
> > Sheets("Sheet1").Protect Password:="password"
> >
> > End Sub
> >
> > Hope this helps! If so, let me know by clicking YES below.
> > --
> > Cheers,
> > Ryan
> >
> >
> > "Sarah" wrote:
> >
> > > I'm a rookie. I am getting Run-time error '1004': Unable to set the Bold
> > > property of the Font class with the following code:
> > >
> > > Range("I10:I1000").Select
> > >
> > > Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
> > > "=(AND(ABS($J10)>$G$5,ABS($I10)>$G$4))"
> > >
> > > Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
> > > With Selection.FormatConditions(1).Font
> > > .Bold = True
> > > .Italic = False
> > > .Color = -16776961
> > > .TintAndShade = 0
> > > End With
> > > Selection.FormatConditions(1).StopIfTrue = True
> > >
> > > Thank you
|
Similar Threads
