Highlight active row

[Maxwell]

Hello,

I don't know if this should be done in VB or what.

I am trying to highlight a row in yellow or whatever color
where the cell is active.

Trying to help a collegue keep accurate track of where he
is when plugging in data.

So if cell B10 is active, then the entire row 10 is
highlighted yellow or green.

If I move to another cell such as G12, then row 10 will
no longer be highlighet and now row 12 is highlighted...

Please help... If this is done in VB, what is the code?


Thanks in advance

 

[Anderson]

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

 

[Bob Phillips]

Hi Maxwell,

Here is one way

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Gord Dibben]

Maxwell

Download Chip Pearson's RowLiner Add-in. He has done all the coding work for
you.

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

 

[Maxwell]

Very Nice Coding.

Thanks a bunch

-----Original Message-----
Hi Maxwell,

Here is one way

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
With .FormatConditions(1)
With .Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
With .Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 5
End With
End With
.FormatConditions(1).Interior.ColorIndex = 20
End With

End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)




.