Cursor Movement

The following code words fine, as long as Excel is set to move the cursor to
the right after hitting enter. If I enter something however and hit the
cursor up, down, or to the left, the code obviously doesn't work. How do I
rewrite this code so that regardless of whether a user has set Excel to move
right, left, up, or down after enter (or does so manually), it still works?
My intent is that for the activecell in Col K, if what the user enters is >
the value in Col I (same row), then verbiage is entered on the same row, in
Col L. If the value is <= Col I (same row), any verbiage on the same row in
Col L is cleared. Thanks for any assistance that can be provided.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("$K$8:$K$65000")) Is Nothing) Then
If Target.Value > ActiveCell.Offset(0, -3) Then
ActiveCell.Offset(0, 0) = "DELEGATION LEVEL EXCEEDED!"
ActiveCell.Font.ColorIndex = 3
End If
If Target.Value = ActiveCell.Offset(0, -3) Then
ActiveCell.Offset(0, 0).ClearContents
End If
If Target.Value < ActiveCell.Offset(0, -3) Then
ActiveCell.Offset(0, 0).ClearContents
End If
End If
End Sub

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("$K$8:$K$65000")) Is Nothing) Then
On Error goto ErrHandler
Application.EnableEvents = False
If Target.Value > Target.Offset(0, -4) Then
Target.Offset(0,1) = "DELEGATION LEVEL EXCEEDED!"
Target.Offset(0,1).Font.ColorIndex = 3
End If
If Target.Value = Target.Offset(0, -4) Then
Target.Offset(0, 1).ClearContents
End If
If Target.Value < Target.Offset(0, -4) Then
Target.Offset(0, 1).ClearContents
End If
End If
ErrHandler:
Application.EnableEvents = True
End Sub

--
Regards,
Tom Ogilvy

"Paige" <[email protected]> wrote in message
news:[email protected]...
> The following code words fine, as long as Excel is set to move the cursor
to
> the right after hitting enter. If I enter something however and hit the
> cursor up, down, or to the left, the code obviously doesn't work. How do
I
> rewrite this code so that regardless of whether a user has set Excel to
move
> right, left, up, or down after enter (or does so manually), it still
works?
> My intent is that for the activecell in Col K, if what the user enters is
>
> the value in Col I (same row), then verbiage is entered on the same row,
in
> Col L. If the value is <= Col I (same row), any verbiage on the same row
in
> Col L is cleared. Thanks for any assistance that can be provided.
>
> Option Explicit
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not (Intersect(Target, Range("$K$8:$K$65000")) Is Nothing) Then
> If Target.Value > ActiveCell.Offset(0, -3) Then
> ActiveCell.Offset(0, 0) = "DELEGATION LEVEL EXCEEDED!"
> ActiveCell.Font.ColorIndex = 3
> End If
> If Target.Value = ActiveCell.Offset(0, -3) Then
> ActiveCell.Offset(0, 0).ClearContents
> End If
> If Target.Value < ActiveCell.Offset(0, -3) Then
> ActiveCell.Offset(0, 0).ClearContents
> End If
> End If
> End Sub

Great! Thanks Tom!

"Tom Ogilvy" wrote:

> Option Explicit
> Private Sub Worksheet_Change(ByVal Target As Range)
> If Not (Intersect(Target, Range("$K$8:$K$65000")) Is Nothing) Then
> On Error goto ErrHandler
> Application.EnableEvents = False
> If Target.Value > Target.Offset(0, -4) Then
> Target.Offset(0,1) = "DELEGATION LEVEL EXCEEDED!"
> Target.Offset(0,1).Font.ColorIndex = 3
> End If
> If Target.Value = Target.Offset(0, -4) Then
> Target.Offset(0, 1).ClearContents
> End If
> If Target.Value < Target.Offset(0, -4) Then
> Target.Offset(0, 1).ClearContents
> End If
> End If
> ErrHandler:
> Application.EnableEvents = True
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
> "Paige" <[email protected]> wrote in message
> news:[email protected]...
> > The following code words fine, as long as Excel is set to move the cursor
> to
> > the right after hitting enter. If I enter something however and hit the
> > cursor up, down, or to the left, the code obviously doesn't work. How do
> I
> > rewrite this code so that regardless of whether a user has set Excel to
> move
> > right, left, up, or down after enter (or does so manually), it still
> works?
> > My intent is that for the activecell in Col K, if what the user enters is
> >
> > the value in Col I (same row), then verbiage is entered on the same row,
> in
> > Col L. If the value is <= Col I (same row), any verbiage on the same row
> in
> > Col L is cleared. Thanks for any assistance that can be provided.
> >
> > Option Explicit
> > Private Sub Worksheet_Change(ByVal Target As Range)
> > If Not (Intersect(Target, Range("$K$8:$K$65000")) Is Nothing) Then
> > If Target.Value > ActiveCell.Offset(0, -3) Then
> > ActiveCell.Offset(0, 0) = "DELEGATION LEVEL EXCEEDED!"
> > ActiveCell.Font.ColorIndex = 3
> > End If
> > If Target.Value = ActiveCell.Offset(0, -3) Then
> > ActiveCell.Offset(0, 0).ClearContents
> > End If
> > If Target.Value < ActiveCell.Offset(0, -3) Then
> > ActiveCell.Offset(0, 0).ClearContents
> > End If
> > End If
> > End Sub
>
>
>