Highlighting row where you are

[Bethiepooh]

I am interested in finding out how I can highlight the row I am currently working in? When I move rows, I want the highlighting to move to the appropriate row. How do you do this?

 

[Mark O'Brien]

Do you mean something like this?

http://www.mrexcel.com/hof001.php

I can't remember who got credit for that one .

 

[PaddyD]

a hall of fame winner from Ivan:

http://www.mrexcel.com/board/viewtopic.php?topic=14546&forum=13&0

Paddy

 

[Bethiepooh]

Yes, similar to those, but not exactly. This worksheet has formulas all over it, both horizontally and vertically. So, that won't work. Any other suggestions?

Thanks!

 

[russell_piper]

I do not see why having formulas on the page will stop this working, what exactly do you mean ?

 

[Bethiepooh]

Maybe I am more ignorant than I thought....*laugh* I will play w/ it when I get home. Sorry for the ignorance.

 

[Bethiepooh]

Three months later, I have time to play with this. And, I am too "Excel Ignorant" to do it. I thought I was good w/ Excel...HAHA

Can someone please explain the formula in the language of "For Dummies?"

Thanks!

 

[Corticus]

Hiya!

to use the following code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
'// Amended routine found on this Web site
'// Note: Don't use IF you have Conditional
'// formating that you want to keep!

'// On error resume in case
'// user selects a range of cells
On Error Resume Next
iColor = Target.Interior.ColorIndex
'Leave On Error ON for Row offset errors

If iColor< 0 Then
    iColor = 36
Else
    iColor = iColor + 1
End If

'// Need this test incase Font color is the same
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1

Cells.FormatConditions.Delete

'// Horizontal color banding
With Range("A" & Target.Row, Target.Address) 'Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:="TRUE"
    .FormatConditions(1).Interior.ColorIndex = iColor
End With

End Sub

-open Excel
-click Alt+F11
-this will take you to the VBA editor
-make sure the project explorer is visible by pressing Ctrl+R
-find your project on the project explorer and double click on the sheet you want doing the highlighting
-copy and paste the code above onto this sheet
-go back to Excel
-macro should work!

HTH,
Corticus

This message was edited by Corticus on 2002-09-13 10:59

 

[aldo]

Has anyone written a routine which disables this highlight routine during copying and pasting?

 

[maxflia10]

Here's a non-marco approach I got from Yogi,

Highlight your range, and apply this formula under Conditional formatting

=CELL("row")=ROW()

See: http://www.mrexcel.com/board/viewtopic.php?topic=22219&forum=2
This message was edited by maxflia10 on 2003-01-22 18:21