Hallo,
ik ben nogal nieuw in vba maar en ben een invulformulier aan het maken. Het is maar een simpel formulier maar toch voor mij zeer nuttig. Ik heb de broncode ergens op het internet gevonden en zo goed mogelijk voor mezelf aangepast. Als ik echter het formulier wil testen krijg ik steeds de melding: Fout 424 bij uitvoering, object vereist. Kan iemand mij uit de nood helpen?
Broncode:
ik ben nogal nieuw in vba maar en ben een invulformulier aan het maken. Het is maar een simpel formulier maar toch voor mij zeer nuttig. Ik heb de broncode ergens op het internet gevonden en zo goed mogelijk voor mezelf aangepast. Als ik echter het formulier wil testen krijg ik steeds de melding: Fout 424 bij uitvoering, object vereist. Kan iemand mij uit de nood helpen?
Broncode:
Code:
Private Sub UserForm_Initialize()
txtDatum.Value = ""
txtUur.Value = ""
With cboPost
.AddItem "DABO"
.AddItem "GUMI"
.AddItem "PELE"
.AddItem "RIRU"
End With
cboPost.Value = ""
txtUser.Value = ""
txtUniek.Value = ""
txtTelecode.Value = ""
txtSalescode.Value = ""
txtBatch.Value = ""
txtLokatie.Value = ""
txtAantalRetour.Value = ""
txtLiterRetour.Value = ""
txtAantalSpill.Value = ""
txtLiterSpill.Value = ""
optEigenSchade = True
txtDatum.SetFocus
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdClearForm_Click()
Call UserForm_Initialize
End Sub
Private Sub cmdOK_Click()
ActiveWorkbook.Sheets("Blad1").Activate
Range("A4").Select
Do
If IsEmpty(ActiveCell) = False Then
activexell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtDatum.Value
ActiveCell.Offset(0, 1) = txtUniek.Value
ActiveCell.Offset(0, 2) = txtTelecode.Value
ActiveCell.Offset(0, 3) = txtSalescode.Value
ActiveCell.Offset(0, 4) = txtLiter.Value
ActiveCell.Offset(0, 5) = txtBatch.Value
If optEigenSchade = True Then
ActiveCell.Offset(0, 10) = txtAantalRetour.Value
ActiveCell.Offset(0, 14) = txtAantalSpill.Value
Else
ActiveCell.Offset(0, 12) = txtAantalRetour.Value
ActiveCell.Offset(0, 16) = txtAantalSpill.Value
End If
Range("A4").Select
End Sub
Laatst bewerkt door een moderator: