View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Steve[_47_] Steve[_47_] is offline
external usenet poster
 
Posts: 1
Default Cell Formatting - Continued

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