Selecteren Next Cell (End(xlUp) na enter

[Esducsafe]

@Helpers
In onderstaande code heb ik een begin gemaakt (?) waarmee (na enter) van een volgende (niet beveiligde) Cell geselecteerd wordt . Bijvoorbeeld als in B6 een bedrag is gevuld en op enter wordt gedrukt moet de cursor naar E6 gaan, tot zover gaat het goed. Echter bij de volgende enter, om van E6 naar G6 te gaan, springt de cursor weer naar E6 terug. Na nogmaals een enter gaat de cursor wel naar G6 en vervolgens na enter weer naar B7.
Tweede vraag: Hoe moet de code verder aangepast worden, zodat deze ook voor kolom C werkt.
Wie weet de juiste code of hoe deze aangepast moet worden?
Alvast bedankt.
Esko

Private Sub Worksheet_Change(ByVal Target As Range)
......
With sheets(2)
Range("B444").End(xlUp).Offset(1, 0).Select
Selection.End(xlToRight).Offset(-1, 0).Select
End with
......
end sub

 

[jheesterbeek]

Kijk eens op onderstaande website:
http://www.quandan.nl/tip.php?qdDocumentID=0000000072

Dat is het eerste zoekresultaat bij Google.
Volgens mij precies wat je zoekt...

John

 

[Esducsafe]

@John
Dank voor je suggestie. Helaas niet de oplossing.
Na nog wat puzzelen bleek de in de code opgenomen copy opdracht de fout te veroorzaken.
Esko