met VBA naar de volgende nieuwe regel, maar hoe?

[Daantje71]

Bekijk bijlage bni.xlsm
Beste allemaal,

ik ben echt een groentje in VBA, maar wil graag een userform in gebruik nemen :shocked:. Ik kom een heel eind. Inmiddels is het me ook gelukt om de data die ik in het userformulier invoer in een excelsheet te krijgen (zie bijlage), maar wat me nu niet lukt is dat de volgende nieuwe invoer op de volgende lege regel komt en dus niet de voorgaande overschrijft.
Kan iemand van jullie mij aan de juiste codering helpen ? VBA voor de combobox moet ik nog invoeren, daar ben ik nog niet aan toegekomen,dus mochten jullie die missen..?? dan klopt dat !
wat ik nu heb (zie ook de bijlage):

Private Sub cmdAddGuest_Click()
    
     Dim rowcount As Long
    Dim ctl As Control
   
    
    'check user input
    If Me.TextBoxFN.Value = "" Then
        MsgBox "Vul aub voornaam in."
        Exit Sub
End If
 If Me.TextBoxAN.Value = "" Then
    MsgBox "Vul aub achternaam in."
    Exit Sub
End If
    If Me.TextBoxCN.Value = "" Then
    MsgBox "Vul aub bedrijfsnaam in."
    Exit Sub
End If
    If Me.TextBoxAd.Value = "" Then
    MsgBox "Vul aub adres in."
    Exit Sub
End If
    If Me.TextBoxPC.Value = "" Then
    MsgBox "Vul aub postcode in."
    Exit Sub
End If
    If Me.TextBoxWP.Value = "" Then
    MsgBox "Vul aub woonplaats in."
    Exit Sub
End If
'Write data to worksheet
    rowcount = Worksheets("Gast").Range("A2").CurrentRegion.Rows.Count
     With Worksheets("Gast").Range("A2")
       .Offset(rowcount, 0).Value = Me.TextBoxFN.Value
        .Offset(rowcount, 1).Value = Me.TextBoxTV.Value
        .Offset(rowcount, 2).Value = Me.TextBoxAN.Value
        .Offset(rowcount, 3).Value = Me.TextBoxCN.Value
        .Offset(rowcount, 4).Value = Me.TextBoxAd.Value
        .Offset(rowcount, 5).Value = Me.TextBoxPC.Value
        .Offset(rowcount, 6).Value = Me.TextBoxWP.Value
        .Offset(rowcount, 8).Value = Me.TextBox1.Value
        End With
    
     
    
    
End Sub

Private Sub CmdAnnuleren_Click()
    Unload Me
    
End Sub

Private Sub UserForm_Click()

End Sub

 

[HSV]

Test het zo eens.

'Write data to worksheet
    rowcount = Worksheets("Gast").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
     With Worksheets("Gast")
       .Cells(rowcount, 1).Value = Me.TextBoxFN.Value
        .Cells(rowcount, 2) = TextBoxTV.Value
        .Cells(rowcount, 3) = TextBoxAN.Value
        .Cells(rowcount, 4) = TextBoxCN.Value
        .Cells(rowcount, 5) = TextBoxAd.Value
        .Cells(rowcount, 6) = TextBoxPC.Value
        .Cells(rowcount, 7) = TextBoxWP.Value
        .Cells(rowcount, 8) = ComboBox1.Value
        .Cells(rowcount, 9).Value = Me.TextBox1.Value
        End With

 

[Daantje71]

Harry,.... dank dank dank dank !!!!
Helemaal geweldig !!!

het formulier werkt, maar nu ik het formulier aan mezelf heb verzonden, krijg ik de melding dat de inhoud beschadigd is en dat het bestand dus niet wordt geopend.
-- al mijn werk voor niets ? .. dat zal toch niet? Iemand een oplossing ? Harry ?

 

[HSV]

Even opnieuw opslaan onder een andere naam wil wel eens helpen.

 

[Daantje71]

Harry, nogmaals dank .. ik zet de vraag op status opgelost.. Dank dank !!