Removing Certain Format Conditions

  • Thread starter Thread starter Alec
  • Start date Start date
A

Alec

The Following code removes all formats in a selected
range:-

"Selection.FormatConditions.Delete"

How do I modify it to remove format condition 2, the
following does not work:-

"Selection.FormatConditions(2).Delete

Thanks
Alec


..
 
Alec, the code worked for me

Do you get a subscript out of range error? If so, are you
sure there are 2 format conditions?
 
Alec wrote
How do I modify it to remove format condition 2, the
following does not work:-

"Selection.FormatConditions(2).Delete
Click to expand...

This should work. I tested it using this procedure:
sub test()
'Remove any exsisting conditons on the selection
Selection.FormatConditions.Delete
'Add three new conditons. 3 is the maximum allowed
Selection.FormatConditions.Add xlCellValue, xlLess, "=$A$1"
Selection.FormatConditions(1).Font.ColorIndex = 3 'Red
Selection.FormatConditions.Add xlCellValue, xlNotEqual, "=$B$1"
Selection.FormatConditions(1).Font.ColorIndex = 6 'Yellow
Selection.FormatConditions.Add xlCellValue, xlGreater, "=$c$1"
Selection.FormatConditions(1).Font.ColorIndex = 54 'Purple

'Comment the next line out to prove Selection.FormatConditions(2).Delete works
'If the values of A1 = 1, B1 = 2 , C1 = 3 and this macro is run with A2
'selected an input of 2 will either make the font yellow or not depending on
'wether FormatConditions(2).Delete has run.
Selection.FormatConditions(2).Delete
end sub

HTH
Nigel
 
Nigel

Thanks for the tip, you are quite right, the
line "Selection.FormatConditions(2).Delete " does work,
provided that the selection is already formatted, I was
testing it on an unformatted cell and it was throwing an
error.

Thanks
Alec




-----Original Message-----
Alec wrote

This should work. I tested it using this procedure:
sub test()
'Remove any exsisting conditons on the selection
Selection.FormatConditions.Delete
'Add three new conditons. 3 is the maximum allowed
Selection.FormatConditions.Add xlCellValue, xlLess, "=$A$1"
Selection.FormatConditions(1).Font.ColorIndex = 3 'Red
Selection.FormatConditions.Add xlCellValue, xlNotEqual, "=$B$1"
Selection.FormatConditions(1).Font.ColorIndex = 6 'Yellow
Selection.FormatConditions.Add xlCellValue, xlGreater, "=$c$1"
Selection.FormatConditions(1).Font.ColorIndex = 54 'Purple

'Comment the next line out to prove
Click to expand...
Selection.FormatConditions(2).Delete works
 
Back
Top