Textbox indhold til regneark.

Lav en knap på din userform der kalder dette vba skript, du kan kalde den opdater

Sub Overfør()
C = 1
  Do Until Worksheets(Sheetname").Cells(C, 1) = ""
  C = C + 1
  Loop
End If
Cells(C, 1) =  textboks1.value
Cells(C, 2) =  textboks2.value
Cells(C, 3) =  textboks3.value
End sub

Ser fornuftigt ud - men der opstår en kompileringsfejl fordi blokken IF mangler. Skal den stå lige over C= 1 ?

der var lige en fejl det skal se sådan ud
Private Sub CommandButton1_Click()
C = 1
Do Until Worksheets("Sheetname").Cells(C, 1) = ""
  C = C + 1
  Loop
Cells(C, 1) = UserForm1!TextBox1.Value
Cells(C, 2) = UserForm1!TextBox2.Value
Cells(C, 3) = UserForm1!TextBox3.Value
End Sub

sæt dette ind lige over end sub,så bliver dine tekstbokse tomme efter opdateringen.

UserForm1!TextBox1.Value = "" ' sletter værdierne i tekstboksene
UserForm1!TextBox2.Value = ""
UserForm1!TextBox3.Value = ""

Den gik rent ind! For at være besværlig - jeg har prøvet at udskifte ("Sheetname") til ("Data") for at lægge mine data over i arket af samme navn. Men de lægges ind i det ark (ark1) som jeg står i. Hvordan kan jeg løse den ?

Private Sub CommandButton1_Click()
Worksheets("Sheetname").Activate
C = 1
Do Until Worksheets("Sheetname").Cells(C, 1) = ""
  C = C + 1
  Loop
Cells(C, 1) = UserForm1!TextBox1.Value
Cells(C, 2) = UserForm1!TextBox2.Value
Cells(C, 3) = UserForm1!TextBox3.Value

UserForm1!TextBox1.Value = "" ' sletter værdierne i tekstboksene
UserForm1!TextBox2.Value = ""
UserForm1!TextBox3.Value = ""


End Sub

Så er den vist fiks og færdig. Det var en stor hjælp !
Tak.