Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
A colleague of mine has a large spreadsheet that she is working on and need
to have the row that she is working on highlighted so that she knows where she is. Is the above possible, and if so any help would be appreciated. Thanks |
#2
![]() |
|||
|
|||
![]()
Hi Pank
found this code from an old post by Earl Kiosterud - which seems to do what you require --------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Static Roww As Integer Static NotFirstTime As Boolean Application.EnableEvents = False If NotFirstTime Then ' remove color fill from prior row Range(Cells(Roww, 1), Cells(Roww, 10)).Interior.ColorIndex = xlNone Else NotFirstTime = True End If Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Select Roww = Selection.Row ' save current row for uncoloring when row exited Selection.Interior.ColorIndex = 4 ' color current row Application.EnableEvents = True End Sub ------------ to utilise the code, right mouse click on the sheet tab of the sheet you want to use this in - choose view code - and copy & paste the code in there use alt & f11 to switch back to the sheet and try it Cheers JulieD "Pank Mehta" wrote in message ... A colleague of mine has a large spreadsheet that she is working on and need to have the row that she is working on highlighted so that she knows where she is. Is the above possible, and if so any help would be appreciated. Thanks |
#3
![]() |
|||
|
|||
![]() '---------------------------------------------------------------- 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 -- HTH RP (remove nothere from the email address if mailing direct) "Pank Mehta" wrote in message ... A colleague of mine has a large spreadsheet that she is working on and need to have the row that she is working on highlighted so that she knows where she is. Is the above possible, and if so any help would be appreciated. Thanks |
#4
![]() |
|||
|
|||
![]()
Hi Pank
See this Add-in http://www.cpearson.com/excel/RowLiner.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Pank Mehta" wrote in message ... A colleague of mine has a large spreadsheet that she is working on and need to have the row that she is working on highlighted so that she knows where she is. Is the above possible, and if so any help would be appreciated. Thanks |
#5
![]() |
|||
|
|||
![]()
Julie, Bob and Ron many thanks for your prompt responses all the solutions as
expected worked a treat. Pank "JulieD" wrote: Hi Pank found this code from an old post by Earl Kiosterud - which seems to do what you require --------- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Static Roww As Integer Static NotFirstTime As Boolean Application.EnableEvents = False If NotFirstTime Then ' remove color fill from prior row Range(Cells(Roww, 1), Cells(Roww, 10)).Interior.ColorIndex = xlNone Else NotFirstTime = True End If Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Select Roww = Selection.Row ' save current row for uncoloring when row exited Selection.Interior.ColorIndex = 4 ' color current row Application.EnableEvents = True End Sub ------------ to utilise the code, right mouse click on the sheet tab of the sheet you want to use this in - choose view code - and copy & paste the code in there use alt & f11 to switch back to the sheet and try it Cheers JulieD "Pank Mehta" wrote in message ... A colleague of mine has a large spreadsheet that she is working on and need to have the row that she is working on highlighted so that she knows where she is. Is the above possible, and if so any help would be appreciated. Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Is it possible to change the blue colour of an activated Auto Filter button? | Excel Discussion (Misc queries) | |||
Problems with Colour Printing | Excel Discussion (Misc queries) | |||
Macro button colour change??? | Excel Worksheet Functions | |||
Text in Blue colour, but print in black colour | Excel Worksheet Functions | |||
Function to return colour of formatted cell | Excel Worksheet Functions |