Highlight Active Row

[baramburum]

Hi Experts:

I need a simple function - Highlight the row that I am currently stay in

Something like that:
http://www.youtube.com/watch?v=bGjqDGF7xaM

I used to use this code:

---------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ActiveSheet.Rows(Target.Row).Select ' highlite entire row
Target.Activate ' select the cell

End Sub
-----------------------

But it is not really comfortable, because now you have to double click on cell to copy or something else.

Please advice the better solution

thanks

 

[baramburum]

The 'selectionchange' method might work thus:

Paste the code into the worksheet module, keeping the variable r dimmed outside the procedure. Note, this isn't much good if you have coloured cells in the sheet.

Dim r As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If r <> 0 Then Rows(r).EntireRow.Interior.ColorIndex = xlNone
    r = Target.Row
    Rows(r).EntireRow.Interior.ColorIndex = 3 'change to suit
End Sub

hi. thanks. But i need the different function. Just simple hilight the row i am currently working on

 

[hayden]

That is pretty handy. Can you do the same thing with highlighting the column you are working in using conditional formatting?

 

[baramburum]

click the grey square to the left of a and above 1 to select the whole sheet.

On the home tab click conditional formatting, click new rule, click use a formula...

Enter the formula

=row()=cell("row")

then click the format button, on the fill tab, click a colour then ok your way out.

thank you, thank you
works fine

 

[VoG]

Yes, use either

=COLUMN()=CELL("col")

or

=OR(ROW()=cell("row"),COLUMN()=CELL("col"))

 

[hayden]

I should have searched.

This will do both at the same time.

=OR(CELL("row")=ROW(),CELL("col")=COLUMN())

Opps, Vog beat me to it.