View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.misc
nastech
 
Posts: n/a
Default which line mercy script

Hi, don't know if you're still there, did not have time to look at before,
For a macro to hilite line where cursor currently resides, was wondering if
there was a way to use top & bottom (medium / heavy) borders to hilite line.
Otherwise if there is a color for yellow / some other hilite than black.

saw an example with yellow line (but rest of script wiped color from sheet):
Target.Rows.EntireRow.Interior.Color = vbYellow

Else first preference might be to have line slighlty greyed / shadowed as it
is when you select line on left (colors- borders should not be destroyed,
colors remain intact while working on line desireable.. ) thanks

Problem ran into is trying to combine with script using for date, can it be
combined with: (thanks)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Count 1 Then Exit Sub
If Target.Row < 91 Then Exit Sub
If Me.Cells(.Row, "A").Value = "." Then Exit Sub
If Not Intersect(Me.Range("AV:AW"), .Cells) Is Nothing Then
Application.EnableEvents = False
With Me.Cells(.Row, "BC")
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
End With
End Sub


XXXXXXXXXXXXXXXXXXXXXXX

"Kris" wrote:

Art wrote:
nastech,

I don't know if there's a formula. However, you could put the following
macro in the Sheet you're working with:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static mRow As Long
If mRow < 0 Then
Rows(mRow).Interior.ColorIndex = xlNone
End If
mRow = Target.Row
Rows(mRow).Interior.ColorIndex = 56
End Sub


What if cells have interior.colorIndex set?

I propose to use xor to change colorindex value.

Rows(mRow).Interior.ColorIndex = Rows(mRow).Interior.ColorIndex xor 8