Gegevens invoeren en die opslaan naar workbook

[Gilroy]

Hi,

Ik ben al geruime tijd bezig met het opstellen van een invoerform, om die vervolgens met een commandbutton de gegevens op te slaan. Maar heb echter geen idee waar ik moet beginnen met het schrijven van de code. Het is mij wel geluk een combobox, listbox en commandbutton te maken.

Zou iemand mij kunnen helpen met het schrijven van de code.

Dank u.

Valentino

hierbij mijn bestand

Bekijk bijlage VBA Invoer.xlsm

 

[Olbren]

Beste Valentino,

Ik kan je hier een voorbeeld geven van hoe bijvoorbeeld de waarde in een combobox of zoiets dergelijks naar een cel geschreven kan worden. (als dat is wat je bedoelt)

Private Sub CommandButton1_Click

Userform1.Combobox1.SelectedItem = Thisworkbook.sheets("Blad1").cells(1,1).value

End Sub

Met deze code wordt de waarde die aangeklikt is in de combobox weergegeven in cel A1 van Blad1, nadat op de commandbutton is geklikt.

 

[Gilroy]

Ah ok ik snap het al zo een beetje, maar ipv blad1 moet ik in dit geval zetten sheet1 als ik het goed hebt.

Ik heb een code gevonden die ik voor mijn userform wilt gebruiken, en ziet er als volgt uit:

Private Sub cmdInvoeren_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a Name number
If Trim(Me.textbox_name.Value) = "" Then
Me.textbox_name.SetFocus
MsgBox "Please complete the form"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 1).Value = Me.textbox_kubusnummer.Value
ws.Cells(iRow, 2).Value = Me.textbox_surname.Value
ws.Cells(iRow, 3).Value = Me.textbox_age.Value
ws.Cells(iRow, 4).Value = Me.textbox_gender.Value

MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
'clear the data
Me.textbox_name.Value = ""
Me.textbox_surname.Value = ""
Me.textbox_age.Value = ""
Me.textbox_gender.Value = ""
Me.textbox_name.SetFocus

Kan ik wel zo een code aanpassen naar mijn userform?