Can someone have a look at the Excel Code that I am using to find out why the “Completed” section does not work.
Your help will be greatly appreciated.
Sub Update_Row_Colors()
Dim LRow As Integer
Dim LCell As String
Dim LColorCells As String
LRow = 2
While LRow < 2000 LCell = "B" & LRow LColorCells = "A" & LRow & ":" & "AJ" & LRow Select Case Left(Range(LCell).Value, 12) Case "Accepted" Rows(LRow & ":" & LRow).Select Range(LColorCells).Interior.ColorIndex = 4 Range(LColorCells).Interior.Pattern = xlSolid Case "Invoiced" Rows(LRow & ":" & LRow).Select Range(LColorCells).Interior.ColorIndex = 6 Range(LColorCells).Interior.Pattern = xlSolid Case "Completed" Rows(LRow & ":" & LRow).Select Range(LColorCells).Interior.ColorIndex = 15 Range(LColorCells).Interior.Pattern = xlSolid Case "Not Accepted" Rows(LRow & ":" & LRow).Select Range(LColorCells).Interior.ColorIndex = 3 Range(LColorCells).Interior.Pattern = xlSolid Case Else Rows(LRow & ":" & LRow).Select Range(LColorCells).Interior.ColorIndex = xlNone End Select LRow = LRow + 1 Wend Range("A1").Select End Sub
