VBA code for Cond. Formatting

[cdsaroma]

Would someone be able to put this into VBA code?
I've tried but can't work out how to do it.

Cell ranges N2:N1000 & E2:E1000

Condition 1: =N2="m" [Cell.Font.ColorIndex = 0 Cell.Interior.ColorIndex = 10 Cell.Font.Bold = True]
Condition 2: =OR(N2="vg",N2="g") [Cell.Font.ColorIndex = 0 Cell.Interior.ColorIndex = 14 Cell.Font.Bold = True]
Condition 3: =N2="n" [Cell.Font.ColorIndex = 0 Cell.Interior.ColorIndex = 9 Cell.Font.Bold = True]
Condition 4: =IF(E2="x",N2="") [Cell.Font.ColorIndex = 0 Cell.Interior.ColorIndex = 3 Cell.Font.Bold = True]

If Cell.Value <> to any of the criteria then [Cell.Font.ColorIndex = 0 Cell.Interior.ColorIndex = 0]

thanks

 

[Damon Ostrander]

Hi cdsaroma,

This code should do it:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("N2:N1000,E2:E1000")) Is Nothing Then Exit Sub
   With Target
      Select Case .Text
         Case "m"
            .Font.ColorIndex = 0
            .Interior.ColorIndex = 10
            .Font.Bold = True
         Case "vg", "g"
            .Font.ColorIndex = 0
            .Interior.ColorIndex = 14
            .Font.Bold = True
         Case "n"
            .Font.ColorIndex = 0
            .Interior.ColorIndex = 9
            .Font.Bold = True
         Case "x", ""
            .Font.ColorIndex = 0
            .Interior.ColorIndex = 3
            .Font.Bold = True
         Case Else
            .Font.ColorIndex = 0
            .Interior.ColorIndex = 0
      End Select
   End With
End Sub

This code must be place in the worksheet's event code module. To do this, right-click on the worksheet's tab, select View Code and paste this code into the Code pane.

Keep Excelling.

Damon

 

[cdsaroma]

Thank you , I really appreciate it.