Have 2 scripts, not sure how to combine. Just tried line hilte script, would
like to see if there is a way to use border hilite (top & bottom; shade
looking for would have been to not change colors, but idea works..) for line,
so colors not changed, otherwise to combine: (thanks)
XXXXXXXXXXXXXXXXXXXXXXXXXXXX
Other Code, check for hiliting line:
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 = 22
End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXX
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
Bookmarks