Cell Formatting - Continued

  • Thread starter Thread starter Steve
  • Start date Start date
S

Steve

Hi

I have the following code that highlights particular
cells depending or not if they match others.

However, at the moment that will highlight red it they do
but I would like to have it such that if I change one of
the cells so that it no longer matches then it should
retutn to a white background.

Any ideas?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RwIndex As Integer
Dim CoIndex As Integer
Dim ChkValue As Integer

RwIndex = 9
CoIndex = 4

While Not Cells(RwIndex, CoIndex).Value = ""
ChkValue = Cells(RwIndex, CoIndex).Value
Select Case ChkValue
Case Cells(2, 4)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Cells(2, 5)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Cells(2, 6)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Cells(2, 7)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Cells(2, 8)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Cells(2, 9)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
End Select

CoIndex = CoIndex + 1

If Cells(RwIndex, CoIndex).Value = "" Then
RwIndex = RwIndex + 1
CoIndex = 4
End If

Wend

End Sub
 
Case Cells(2, 9)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Else
Cells(rwIndex,CoIndex).Interior.ColorIndex = xlNone
End Select
 
Fantastic

Thank you very much

Regards

Steve
-----Original Message-----
Case Cells(2, 9)
Cells(RwIndex,
CoIndex).Interior.ColorIndex = 3
Case Else
Cells
Click to expand...
(rwIndex,CoIndex).Interior.ColorIndex = xlNone
 
Back
Top