Nieuwe regel in tabel naar invoer van waarde in bepaalde kolom i.p.v. laatste kolom

[Ridegroot]

d.m.v. een barcode scanner worden in kolom A+B+C respectievelijk gegevens ingevoerd in een tabel.

De barcode scanner doet 2 handelingen bij één scan:

1=(vooraf gedetineerde) tekst invoeren (nummers 1+2+3 in voorbeeld)
2=TAB

Wanneer ik de laatste waarde ingevoerd heb (dus kolom C, = nummer 3 in voorbeeld) zou ik graag willen dat de selectie automatisch naar Kolom A gaat en een nieuwe regel begint.

Automatisch werk dit al bij een tabel maar dan bij de laatste kolom en dit zou ik juist al bij kolom C willen.

Kan iemand dit oplossen? ik heb eerst geprobeerd om een enter te scannen maar dit krijg ik niet voor elkaar dus vandaar dat ik het nu in excel zoek

ps ik wil de formules wel in het bereik van de tabel houden


Bekijk bijlage Map1.xlsx

 

[VenA]

Probeer het zo eens

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
  Application.EnableEvents = False
  With ListObjects(1)
    .ListRows.Add
    .DataBodyRange.Cells(.ListRows.Count, 1).Select
  End With
  Application.EnableEvents = True
End Sub

 

[Ridegroot]

Werkt perfect

Bedankt