Automatisch verspringen van de cursor naar de volgende cel na invulling

[robdgr]

Bij de kijkersvraag op deze site vind je het automatisch verspringen van de cursor naar de volgende cel na invulling. Ik probeer dat in Excel ook te krijgen, maar vind geen oplossing. Ik heb wel gekeken naar de mogelijkheden hier genoemd, maar krijg dat niet werkend. Het gaat om dit bestand. Iemand een idee?

 

[WHER]

Definieer een genaamd bereik "rng" (insert > name > define > rng) met in "refers to": Blad1!$I$4:$P$4;$I$8:$P$8;Blad1!$I$12:$P$12;Blad1!$I$16:$P$16
Zet vervolgens deze code achter Blad1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("I4")) Is Nothing Then
Range("rng").Select
End If
End Sub

Selecteer cel I4 en begin in te vullen, gevolgd door enter.

 

[robdgr]

Wher,

Dank voor het meedenken, maar ik krijg deze oplossing niet aan de praat. Ik heb nu wel de volgende werkend:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.MoveAfterReturnDirection = xlToRight
End Sub

Met deze code, gekoppeld aan een afsluitknop draai ik hem weer terug:

Sub sluit_af()
    Application.MoveAfterReturnDirection = xlDown
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Ik dacht eerst dat te kunnen bereiken met

Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, _
        Cancel As Boolean)
    Application.MoveAfterReturnDirection = xlDown
End Sub

maar dat is bleek ook niet goed te gaan. Ik sluit de vraag nu, maar blijf zelf openstaan voor suggesties en verbeteringen. de link in #1 verwijst naar het nieuwe bestand.