Hallo, Ik heb een user formulier gemaakt met 73 textboxen.
Daar worden gegevens ingevuld.
Als we op opslaan drukken worden de gegevens van die textboxen op een regel geplaatst in een tabel op een sheet.
Dit neemt meer dan een minuut in beslag.
Nu is mijn vraag: Kan de onderstaande code ook aangepast worden zodat deze sneller werkt?
Alvast bedankt voor het mee denken.
Daar worden gegevens ingevuld.
Als we op opslaan drukken worden de gegevens van die textboxen op een regel geplaatst in een tabel op een sheet.
Dit neemt meer dan een minuut in beslag.
Nu is mijn vraag: Kan de onderstaande code ook aangepast worden zodat deze sneller werkt?
Code:
Private Sub CommandButton4_Click()
Sheets("1430").Unprotect Password:="WW"
Application.ScreenUpdating = False
If TextBox223 = Empty Then
MsgBox "Datum invoeren A.u.b."
Exit Sub
End If
If TextBox224 = Empty Then
MsgBox "Aantal ritten invoeren A.u.b."
Exit Sub
End If
With Sheets("1430")
lRow = .Range("A10000").End(xlUp).Offset(1).Row
.Cells(lRow, 1) = TextBox223.Value
For i = 223 To 296
.Cells(lRow, i - 222) = Me("TextBox" & i).Value
Next
End With
MsgBox "Waarden zijn opgeslagen in de database!", vbOKOnly
For i = 223 To 296
Controls("TextBox" & i).Value = ""
Next
Application.ScreenUpdating = True
Sheets("1430").Protect Password:="WW"
End Sub
Alvast bedankt voor het mee denken.