highlight rows for easier reading

[suesolotel]

hi when i am checking data entry in a spreadsheet with a lot of information i
am having trouble keeping my on the row i am reading - is there a way you can
set the rows to shade in grey or similar so as you arrow down your eye is
always drawn to the current row you are reading?

 

[Pete_UK]

Just click on the row identifier on the extreme left - the whole row
will be highlighted.

Hope this helps.

Pete

 

[Mike H]

Hi,

I can't remember where I got this code so apologies and thanks to the
original author. Right click the sheet tab, view code and paste this in

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static Old As Range
Static colorindxs(1 To 256) As Long
Dim i As Long
If Not Old Is Nothing Then
With Old.Cells
If .Row = ActiveCell.Row Then Exit Sub
For i = 1 To 256
.Item(i).Interior.ColorIndex = colorindxs(i)
Next i
End With
End If
Set Old = Cells(ActiveCell.Row, 1).Resize(1, 256)
With Old
For i = 1 To 256
colorindxs(i) = .Item(i).Interior.ColorIndex
Next i
.Interior.ColorIndex = 36
End With
End Sub

Mike

 

[suesolotel]

that was great! my eyes thankyou

Hi,

I can't remember where I got this code so apologies and thanks to the
original author. Right click the sheet tab, view code and paste this in

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static Old As Range
Static colorindxs(1 To 256) As Long
Dim i As Long
If Not Old Is Nothing Then
With Old.Cells
If .Row = ActiveCell.Row Then Exit Sub
For i = 1 To 256
.Item(i).Interior.ColorIndex = colorindxs(i)
Next i
End With
End If
Set Old = Cells(ActiveCell.Row, 1).Resize(1, 256)
With Old
For i = 1 To 256
colorindxs(i) = .Item(i).Interior.ColorIndex
Next i
.Interior.ColorIndex = 36
End With
End Sub

Mike

 

[CLR]

ASAP Utilities, a free add-in available at www.asap-utilities.com has a
feature that does this nicely.....

Vaya con Dios,
Chuck, CABGx3

 

[carrera]

Wow...pasting that code was really great.
How would you make that into a macro to run whenever you want?

 

[Gord Dibben]

Might be easier to download Chip Pearson's Rowliner add-in and install in
Office\Libraryand load through Tools>Add-ins.

Now you will have the function for all workbooks.

http://www.cpearson.com/excel/RowLiner.htm


Gord Dibben MS Excel MVP