How to change row color when select a cell in this row?

C

Colo

Amolin, SelectionChange event makes this possible as follow.
If you have already colored cell in the wks, need more code.
Please note, this is just a sample code.


Code
-------------------

'Wks Module
Dim preservedRange As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not preservedRange Is Nothing Then
preservedRange.Interior.ColorIndex = xlNone
End If
Target.EntireRow.Cells.Interior.ColorIndex = 10
Set preservedRange = Target.EntireRow
End Sub
 
R

Robert McCurdy

Hi Amolin try this, the other colours are saved and not overwritten when you select another row. If you need more columns than 26
increase this number in the code.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Highlights the active row to column Z
Static c As Excel.Range, Rng As Excel.Range
Static n(26), x As Integer
x = 35
Dim i As Integer
Application.ScreenUpdating = False
If Not c Is Nothing Then
If c.Row = ActiveCell.Row Then Exit Sub
For i = 1 To 26
Rng.Cells(i).Interior.ColorIndex = n(i)
Next i
End If
Set c = ActiveCell
Set Rng = Range(Cells(c.Row, 1), Cells(c.Row, 26))
For i = 1 To 26
n(i) = Rng.Cells(i).Interior.ColorIndex
Next i
Rng.Interior.ColorIndex = x
End Sub


Regards Robert
 
Top