Eftersom jag inte är nått proffs på VB skulle jag behöva lite hjälp.

Jag har en textruta där jag skriver in ett tal. När jag trycker enter vill jag att värdet i rutan skall skrivas in i första lediga cellen i kollumn J.
Efter detta skall textrutan vara tom samt att fokus är satt i rutan.
Hur löser man detta????

En liten fulkodad variant:

<code>
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then 'Enter = 13
Range("J1").Select 'ställer sig i J1
Selection.End(xlDown).Select 'hoppar till sista cellen i kolumnen
'skriver in värdet i TextBox1 i första lediga cellen i kolumnen J
ActiveSheet.Cells(ActiveCell.Row + 1, 10).Value = TextBox1.Text
TextBox1.Text = "" 'tömmer TextBox1
TextBox1.Activate 'sätter fokus på TextBox1
End If
End Sub
</code>

Fungerar bra, dock inte focussättningen.
activate är inte en godkänd order. Använder setFocus istället, det fungerar.

Nytt problem dök upp eftersom jag använder call och kör tre olika funktioner.
Efter att den sista funktionen är körd vill jag att formuläret skall bli aktiverat igen, hur löser man detta?