Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Formatting - Continued
Case Cells(2, 9)
Cells(RwIndex, CoIndex).Interior.ColorIndex = 3 Case Else Cells(rwIndex,CoIndex).Interior.ColorIndex = xlNone End Select -- Regards, Tom Ogilvy "Steve" wrote in message ... 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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Cell Formatting - Continued
Fantastic
Thank you very much Regards Steve -----Original Message----- Case Cells(2, 9) Cells(RwIndex, CoIndex).Interior.ColorIndex = 3 Case Else Cells (rwIndex,CoIndex).Interior.ColorIndex = xlNone End Select -- Regards, Tom Ogilvy "Steve" wrote in message ... 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 . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Average With < Continued | Excel Worksheet Functions | |||
Variations on referencing a cell in another workbook - continued | Excel Discussion (Misc queries) | |||
If then statement continued! | Excel Discussion (Misc queries) | |||
Macro To Change Cell Color (Continued) | Excel Worksheet Functions | |||
Cell to Show "Continued" only if > Page 1 | Excel Worksheet Functions |