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

 

[VoG]

Select the whole sheet and apply the Conditional Formatting formula

=ROW()=CELL("row")

and apply a fill colour. Then right click the sheet tab, select View Code and paste in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

 

[raeannb]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

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

End Sub

Try:

ActiveSheet.Rows(Target.Row).EntireRow.Interior.ColorIndex = 3
'You can change the number there to get different colors
Target.Activate

Good luck!

 

[baramburum]

Try:

ActiveSheet.Rows(Target.Row).EntireRow.Interior.ColorIndex = 3
'You can change the number there to get different colors
Target.Activate

Good luck!

nice, but it highlights all row i have ever seen. I need only the current one. You know, just to make it comfortable to work

 

[VoG]

Try my suggestion.

 

[baramburum]

Select the whole sheet and apply the Conditional Formatting formula

=ROW()=CELL("row")

and apply a fill colour. Then right click the sheet tab, select View Code and paste in

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Hi, how i can "apply the Conditional Formatting formula" ?

 

[VoG]

Which version of Excel are you using?

 

[baramburum]

which version of excel are you using?

2010

 

[VoG]

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.

 

[Weaver]

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