Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
To have an entire row highlighted to some color if any cell in that row is selec
Can someone help me please? I'm trying to find a way to
have an entire row highlight to some color if any cell in that row is selected. I have the following information (not sure if it is correct), but I have no idea how to use it. Is it a macro? visual basic? Help! Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range) Static oldRange as Range Static colorIndices(256) As Integer Dim i As Integer If Not oldRange Is Nothing Then 'Restore color indices For i=1 to 256 Cells(oldRange.row, i).Interior.ColorIndex=colorIndices(i) Next i End If For i = 1 to UBound(colorIndices) colorIndices(i)=Cells(ActiveCell.row,i).Interior.C olorIndex Next i ActiveCell.EntireRow.Interior.ColorIndex=15 Set oldRange=ActiveCell.EntireRow End Sub Thank you! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
To have an entire row highlighted to some color if any cell in that row is selec
Nick,
It's worksheet event code, so it goes into the worksheet code module. To get at this, right-click on the sheet name tab, select View Code from the menu, and then paste the code into the code pane that pops up. -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "Nick" wrote in message ... Can someone help me please? I'm trying to find a way to have an entire row highlight to some color if any cell in that row is selected. I have the following information (not sure if it is correct), but I have no idea how to use it. Is it a macro? visual basic? Help! Private Sub Worksheet_SelectionChange(By Val Target As Excel.Range) Static oldRange as Range Static colorIndices(256) As Integer Dim i As Integer If Not oldRange Is Nothing Then 'Restore color indices For i=1 to 256 Cells(oldRange.row, i).Interior.ColorIndex=colorIndices(i) Next i End If For i = 1 to UBound(colorIndices) colorIndices(i)=Cells(ActiveCell.row,i).Interior.C olorIndex Next i ActiveCell.EntireRow.Interior.ColorIndex=15 Set oldRange=ActiveCell.EntireRow End Sub Thank you! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
can the cell the cursor is on be highlighted a different color ? | Excel Discussion (Misc queries) | |||
Highlighted cell color | Excel Worksheet Functions | |||
Having an entire row highlighted as I move from cell to cell | Excel Discussion (Misc queries) | |||
preventing the color in a highlighted cell from printing | Excel Discussion (Misc queries) | |||
highlighted cell color | Setting up and Configuration of Excel |