Userform wegschrijven data lukt niet

[wheel]

Beste helpers,

Ik heb een formulier gemaakt om nieuwe medewerkers in te voeren.

Ik krijg geen foutmeldingen, maar de ingevoerde gegevens komen niet tevoorschijn op het werkblad.

Zit er ergens een fout in de code?

Gr. Wheel

Private Sub UserForm_Initialize()
    On Error Resume Next
     With Sheets("Gegevens")
        TextBox1.RowSource = .Name & "!" & .Cells(2, 1).CurrentRegion.Address
    End With
    
End Sub

Private Sub NieuweInvoerOpslaan_Click()
Dim lRow As Long
'Vind de eerste lege rij in uw database
lRow = Sheets("Gegevens").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
'copy the data to the database
    With Sheets("Gegevens")
        .Cells(lRow, 1) = Me.TextBox1.Value
        For i = 1 To 32
            .Cells(lRow, i) = Me("TextBox" & i)
        Next
    End With
'clear the data
    Me.TextBox1.Value = ""
    For i = 1 To 32
        Me("TextBox" & i).Text = ""
    Next
    Me.TextBox1.SetFocus
End Sub

 

[wampier]

Er lijkt me niets mis met de code an sich. Behalve dat textbox1 telkens 2 keer wordt behandeld, maar dat zou geen invloed moeten hebben op de uitvoering.

Weet je zeker dat deze code onder de juiste knop zit (heb je gecontroleerd of de code ook werkelijk wordt uitgevoerd dmv een breakpoint)?

 

[wheel]

heb je gecontroleerd of de code ook werkelijk wordt uitgevoerd dmv een breakpoint

Er zit maar één knop op het formulier. Die is gekoppeld aan de Sub NieuweInvoerOpslaan.

Wat bedoel je met een breakpoint?

Gr. Wheel.

 

[wampier]

Je kunt in de (grijze) marge links van de uit te voeren code klikken. er komt dan een rood bolletje voor de regel te staan (regel moet wel code bevatten). De uitvoering stopt dan op het rode bolletje.

Ik heb even kort de code getest en mijn "remake" werkt met de opgegeven code.

Private Sub CommandButton1_Click()
    lRow = Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row
    For i = 1 To 3
        Sheets("Blad1").Cells(lRow, i).Value = Me("TextBox" & i)
    Next i
End Sub

natuurlijk maar 3 boxes en "blad1" maar het wordt volledig correct uitgevoerd

 

[wheel]

Ik zit nu op een MacBook te werken... zonder Office voor Mac.

Morgen probeer ik het op mijn werk even.

Alvast bedankt, Wampier :thumb: