Userform for nybegynder

Fluks taget ud af hovedet fanger jeg følgende - udskift textbox1-6 med navnene på dine tekstbokse...

With Worksheets("Ark1")
    lNextRow = .Range("A65000").End(xlUp).Row + 1
    .Cells(lNextRow, 1).Value = Me.TextBox1.Text
    .Cells(lNextRow, 2).Value = Me.TextBox2.Text
    .Cells(lNextRow, 3).Value = Me.TextBox3.Text
    .Cells(lNextRow, 4).Value = Me.TextBox4.Text
    .Cells(lNextRow, 5).Value = Me.TextBox5.Text
    .Cells(lNextRow, 6).Value = Me.TextBox6.Text
End With

hvad med "kode" til min cmdsavedata knap?

Dobbeltklik på din knap på userformen så danner den selv noget kode... alla
Sub cmdsavedata()
  ' noget kode her
End Sub

arhh det skulle bare ligge under min cmdsavedata knap...
Tillægs spørgsmål: hvordan får man den så til at clear alle felter er man har trykket på save?

Så den er klar til en ny indtastning.

Efter du har smidt værdierne over i arket kan du f.eks. gøre følgende:

    Me.TextBox1.Text = ""
    Me.TextBox2.Text = ""
    osv.

øøhh jooo... glemmer vist jeg er nybegynder :-)

har løst det...
lNextRow = .Range("A65000").End(xlUp).Row + 1
    Me.TextBox1.Text = ""
    Me.TextBox2.Text = ""
    Me.TextBox3.Text = ""
    Me.TextBox4.Text = ""
    Me.TextBox5.Text = ""
    Me.TextBox6.Text = ""
    Me.TextBox7.Text = ""
    Me.TextBox8.Text = ""

Fino :-)