Reading Data Rows

Uk_Excel · Mar 8th, 2002, 04:20 AM

I view data over 3 Screens (wide). What I want to be able to do is highlight the whole row I am currently on so I can refer to data in different columns. IE I am in cell AA9 and I want to easily see what data is in cell D9. I have used alternate row highlighting, but it would be nicer if when I moved up and down the rows the current row was highlighted and previous row I was on de-highlighted.

Dave Hawley · Mar 8th, 2002, 04:25 AM

Hi UK_Excel

Right click on the sheet name tab and select "View Code" then paste in this.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Target.Offset(-1, 0).EntireRow.Interior.ColorIndex = xlNone
Target.EntireRow.Interior.ColorIndex = 6
End If
End Sub

Uk_Excel · Mar 8th, 2002, 04:31 AM

Thanks Dave. That's Perfect. I modified the code slightly to include moving up as well as down.

Target.Offset(1, 0).EntireRow.Interior.ColorIndex = xlNone

Thanks Again

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 8th, 2002, 04:20 AM	#1
Uk_Excel New Member Join Date: Mar 2002 Posts: 6	I view data over 3 Screens (wide). What I want to be able to do is highlight the whole row I am currently on so I can refer to data in different columns. IE I am in cell AA9 and I want to easily see what data is in cell D9. I have used alternate row highlighting, but it would be nicer if when I moved up and down the rows the current row was highlighted and previous row I was on de-highlighted.

Mar 8th, 2002, 04:25 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi UK_Excel Right click on the sheet name tab and select "View Code" then paste in this. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 Then Target.Offset(-1, 0).EntireRow.Interior.ColorIndex = xlNone Target.EntireRow.Interior.ColorIndex = 6 End If End Sub

Mar 8th, 2002, 04:31 AM	#3
Uk_Excel New Member Join Date: Mar 2002 Posts: 6	Thanks Dave. That's Perfect. I modified the code slightly to include moving up as well as down. Target.Offset(1, 0).EntireRow.Interior.ColorIndex = xlNone Thanks Again