Excel Userform

[WHouben]

Hallo,


Ik probeer een Userform te maken in excel, en de bedoeling is dat ik een waarde invul in het invulscherm en vervolgens op enter kan drukken deze in een kolom wordt geplaatst.
Vervolgens blijft de cursor gewoon in het invulveld staan waardoor ik meteen een nieuwe waarde kan invullen waarna er weer op enter gedrukt wordt deze op de volgende plaats in de kolom geplaatst wordt.

Weet iemand hoe ik dit aanpak, of welke comando's hiervoor gebruikt worden?

Alvast bedankt!


Met vriendelijke groet,
Wesley

 

[wampier]

Indien er geen meerdere invulvelden zijn werkt zoiets:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 13 Then
        ActiveSheet.Range("a60000").End(xlUp).Offset(1).Value = TextBox1.Text
        TextBox1.Text = ""
    End If
End Sub

 

[WHouben]

Bedankt, dit werkt in iedergeval al.
Echter hoe breng ik deze code onder een knop?

Dus wanneer ik op een knop in de UserForm druk voert hij deze uit?

 

[wampier]

Dat begrijp ik niet goed. Wil je ook op een knop kunnen drukken om aan te vullen? of het form oproepen?

 

[WHouben]

Ja inderdaad, ook als knop "enter".
En het formulier oproepen is ook een goeie inderdaad, dit kon ik niet vinden.

Alvast bedankt

 

[wampier]

In principe kun je een knop toevoegen met dezelfde code, zonder de "if keycode = 13"

Je kunt een knop op je werkblad plaatsen en dan deze code toevoegen:

userform1.show

(afhankelijk van de naam van je form etc,)