Cell Row Formatting

jmcall10 · May 22nd 2010

Hi, I posted b4 to no avail. Maybe I wasnt clear hehe

Ok simple thing is:

I have this in the ThisWorkbook module:

Code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target1 As Range)
     
      
    If Target1.Cells.Count > 1 Then Exit Sub
      
      
      
      If Not Intersect(Target1, Range("A6:AW34")) Is Nothing Then
        With Target1
            
            Select Case .Value
            Case "One": .Interior.ColorIndex = 38
            Case "Two": .Interior.ColorIndex = 18
            Case "Three": .Interior.ColorIndex = 35
            Case Else: .Interior.ColorIndex = xlNone
            End Select
        End With
    End If
     
     
     
     
End Sub

Display More

Now what I want is if the any cell in Column A is "(None)" then make it yellow
any cell in column B make it white

so some sort of case like:

Code

Case "(None)": .Interior.ColorIndex = 36

Cell Row Formatting

Participate now!

Share