Na invullen van een cel dan een cel naar benenden (via VBA)

[HWV]

Beste,

ik heb een bestelformulier die zich laat vullen met verticaal zoeken VBA

If Target.Column = 2 Then
Target.Offset(, 1).Value = ""
Target.Offset(, 1).Value = Workbooks("GST1- Eenheden1.xls").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 1).Value & " " & Workbooks("GST1- Eenheden1.xls").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 2).Value '21
End If
If Target.Column = 2 Then
Target.Offset(, 16).Value = ""
Target.Offset(, 16).Value = Workbooks("GST1- Eenheden1.xls").Sheets("Artikelen").Columns(1).Find(Target.Value, , xlValues, xlWhole).Offset(, 3).Value '27
End If

Dit werkt erg goed, maar na het invullen van een artikelnummer in kolom B zou ik graag willen dat hij dan een cel naar beneden gaat. Nu springt hij terug naar het net ingevulde cel.

Iemand een idee hoe ik dit voor elkaar kan krijgen ?

Groet HWV

 

[cow18]

je hebt daar al wat if target's staan, voeg er onderaan nog deze aan toe
If Target.Column = 2 Then Target.offset(1).select

 

[HWV]

Beste Cow18,

Target.offset(1).select

Daar had ik ook aan zitten denken maar dan ergens in het midden van de code
Nu heb ik het aan het einde van de code en het werkt perfect.

Bedankt voor je hulp :thumb:

Groet Henk