Verspringen na Entertoets

[basbergie]

Ik heb een vraag over excel ik heb in een excel bestand 2 kolommen waar ik data invul kolom A en C. Nou vul ik eerst cel A1 tm 30 in en vervolgens wil ik met enter doorgaan naar cell C1 alleen als ik enter druk gaat hij natuurlijk naar cel A31 is dit makkelijk in te stellen. Wij werken met scanners dus vandaar dat ik niet gewoon met de muis naar cel C1 kan gaan.

 

[JEC.]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A30")) Is Nothing Then
    If Target.Value <> "" Then
    Target.Offset(-29, 2).Activate
    End If
End If
End Sub

Bedoel je dit?

 

[Conseclusie]

Het meest eenvoudig is het om je blad te beveiligen:
Selecteer eerst de cellen waar je invoer in wil zetten (A1:A30 en C1:C??) en kies Celeigenschappen / Bescherming: "Geblokkeerd" uitvinken.
Vervolgens: (via Start / Cellen / Opmaak / Blad Beveiligen): Alléén een vinkje zetten bij "Ontgrendelde cellen selecteren".

Als je nu gaat "enteren" ga je via de A-kolom door naar de C-kolom en weer terug.

 

[VenA]

Ik ga er vanuit dat een scanner geen lege waarden scant.

Zo gaat het ook door van C30 naar E1 etc.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Row = 30 And Target.Column Mod 2 = 1 Then Application.Goto Target.Offset(-29, 2)
End Sub

 

[basbergie]

Super bedankt het is ondertussen gelukt door de oplossing van Jveer te gebruiken. Ik zal de rest ook nog even proberen om te kijken wat het verschil is