Thread: Adjust direction for "Enter"

Hello everyone,

I have this macro that automatically inserts the date in column B when data is entered in column D. What I would like to is when I press enter in a cell in column D then the selection cell will move to column E and then when I enter again in column E then move to column D again on the next row.
IE. if I'm in D12 and press enter then move to E12 and then move to D13 and so on.

Thanks for all your help,
Alex

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("D5:D400")) Is Nothing Then

            With Target(1, -1)

                .Value = Now

                .EntireColumn.AutoFit

            End With

        End If

End Sub

Hello Alex,

The easiest way is to protect the worksheet and unlock the cells that will be used for entering the data.

How about adding

Code:

Application.MoveAfterReturnDirection = xlToRight

somewhere at the beginning of the code and then changing it back to

Code:

Application.MoveAfterReturnDirection = xlDown

before the workbook is closed.

With regards to this:

the problem is that I need to keep the column B unlocked for the vba to work

You can use something like

Code:

    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True

to protect the sheet from user input but still enable VBA access to locked cells. Then Leith's suggestion might be the easiest way to go.