Hi

I'm new to VBA programming and am attempting to add a 4th conditional format
by editing a recorded macro and am receiving this error message.

Here is my code:

Sub Conditional_Formatting()
'
' Conditional_Formatting Macro
' Macro recorded 4/26/2007 by Jhammel
'
' Keyboard Shortcut: Ctrl+j
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Materials"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 36
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Turnkey"""""""
Selection.FormatConditions(2).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Labor"""""""
Selection.FormatConditions(3).Interior.ColorIndex = 33
Range("E2").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
<---------LINE GENERATING ERROR
Formula1:="=""""""None"""""""
Selection.FormatConditions(4).Interior.ColorIndex = 35
Range("E2").Select
End Sub


Any help would be appreciated.

Thanks
Jan Hammel

You can only have 3 conditional formats.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Jan Hammel" wrote in message
...
Hi

I'm new to VBA programming and am attempting to add a 4th conditional
format by editing a recorded macro and am receiving this error message.

Here is my code:

Sub Conditional_Formatting()
'
' Conditional_Formatting Macro
' Macro recorded 4/26/2007 by Jhammel
'
' Keyboard Shortcut: Ctrl+j
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Materials"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 36
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Turnkey"""""""
Selection.FormatConditions(2).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Labor"""""""
Selection.FormatConditions(3).Interior.ColorIndex = 33
Range("E2").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
<---------LINE GENERATING ERROR
Formula1:="=""""""None"""""""
Selection.FormatConditions(4).Interior.ColorIndex = 35
Range("E2").Select
End Sub


Any help would be appreciated.

Thanks
Jan Hammel

Built-in conditional formatting only supports up to 3 levels.

For more than that, try searching the web. There are ways to get
around it (I've not needed them yet, so I don't rememeber how but I
remember seeing them).

tbone

On Thu, 26 Apr 2007 17:05:47 -0500, "Jan Hammel"
wrote:

Hi

I'm new to VBA programming and am attempting to add a 4th conditional format
by editing a recorded macro and am receiving this error message.

Here is my code:

Sub Conditional_Formatting()
'
' Conditional_Formatting Macro
' Macro recorded 4/26/2007 by Jhammel
'
' Keyboard Shortcut: Ctrl+j
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Materials"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 36
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Turnkey"""""""
Selection.FormatConditions(2).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Labor"""""""
Selection.FormatConditions(3).Interior.ColorIndex = 33
Range("E2").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
<---------LINE GENERATING ERROR
Formula1:="=""""""None"""""""
Selection.FormatConditions(4).Interior.ColorIndex = 35
Range("E2").Select
End Sub


Any help would be appreciated.

Thanks
Jan Hammel

Jan,

Unfortunately, Excel allows you only up to 3 conditions for each conditional
format..
I have XL2003.. not sure if this has changed in XL2007.



--
Hope that helps.

Vergel Adriano


"Jan Hammel" wrote:

Hi

I'm new to VBA programming and am attempting to add a 4th conditional format
by editing a recorded macro and am receiving this error message.

Here is my code:

Sub Conditional_Formatting()
'
' Conditional_Formatting Macro
' Macro recorded 4/26/2007 by Jhammel
'
' Keyboard Shortcut: Ctrl+j
'
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Materials"""""""
Selection.FormatConditions(1).Interior.ColorIndex = 36
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Turnkey"""""""
Selection.FormatConditions(2).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""""""Labor"""""""
Selection.FormatConditions(3).Interior.ColorIndex = 33
Range("E2").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
<---------LINE GENERATING ERROR
Formula1:="=""""""None"""""""
Selection.FormatConditions(4).Interior.ColorIndex = 35
Range("E2").Select
End Sub


Any help would be appreciated.

Thanks
Jan Hammel