Cursor stuck in active cell

[anvs]

Thanks to Mario_R for his code
'------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim w
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
w = Target: Application.Undo
If w <> Target Then
Target = w
If Target(, 2) = "" Then Target(, 2) = Now Else Target(, 3) = Now
End If
Application.EnableEvents = True
End Sub
'------------------------------------------------- --
Work fine!
But, after ENTER - only in Col A after confirming data entry - the cursor remains in the same cell. It only jumps to the next cell after the second ENTER.
Is it possible to release the cursor, please?
Grateful
anvs

 

[Jimmypop]

Yes, it is possible to release the cursor after data entry in column A by modifying the code. You can add the line SendKeys "{TAB}" after the line If Target(, 2) = "" Then Target(, 2) = Now Else Target(, 3) = Now. This will simulate pressing the TAB key, which will release the cursor and move it to the next cell.

The modified code would look like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim w
    If Target.Column > 1 Then Exit Sub
    Application.EnableEvents = False
    w = Target: Application.Undo
    If w <> Target Then
        Target = w
        If Target(, 2) = "" Then
            Target(, 2) = Now
        Else
            Target(, 3) = Now
        End If
        SendKeys "{TAB}"
    End If
    Application.EnableEvents = True
End Sub

I hope this helps! Let me know if you have any further questions.

 

[anvs]

Thanks for your answer.
However, after ENTER. the cursor moves to the right when it should move down by default.
It would be possible?
Thanks in advance.
anvs

 

[Jimmypop]

Yes, it is possible to move the cursor down instead of to the right after pressing enter in column A. You can modify the code to simulate pressing the down arrow key instead of the tab key.

To do this, you can replace the line SendKeys "{TAB}" with SendKeys "{DOWN}". This will simulate pressing the down arrow key, which will release the cursor and move it down to the next cell.

The modified code would look like this:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim w
    If Target.Column > 1 Then Exit Sub
    Application.EnableEvents = False
    w = Target: Application.Undo
    If w <> Target Then
        Target = w
        If Target(, 2) = "" Then
            Target(, 2) = Now
        Else
            Target(, 3) = Now
        End If
        SendKeys "{DOWN}"
    End If
    Application.EnableEvents = True
End Sub

I hope this helps! Let me know if you have any further questions

 

[anvs]

PERFECT!

Thanks a lot for the help.
anvs

 

[Jimmypop]

Pleasure... and glad to assist... Might I just ask that you do not mark your post #5 as the answer... please make #4... it will make it easier for other to get the solution.

 

[Fluff]

@anvs In future please mark the thread with the solution, rather than you post saying it works. Thanks

 

[anvs]

Pleasure... and glad to assist... Might I just ask that you do not mark your post #5 as the answer... please make #4... it will make it easier for other to get the solution.

Done, I think.
Thanks
anvs