Goedemiddag,
laatst ben ik (weer) begonnen met een oud project, nu loop ik alleen tegen een foutcode aan: "Run-time error '424': Object required."
nu kan ik me niet herinneren dat ik deze melding eerder ben tegen gekomen. (Het gene wat rood is, is de regel waar de error in voor komt"
mijn vragen:
-Hoe los ik dit op?
-Waar maak ik de fout? (ter voorkoming van herhaling in de toekomst)
Bedankt alvast! :thumb:
Met vriendelijke groet,
Mike.
laatst ben ik (weer) begonnen met een oud project, nu loop ik alleen tegen een foutcode aan: "Run-time error '424': Object required."
nu kan ik me niet herinneren dat ik deze melding eerder ben tegen gekomen. (Het gene wat rood is, is de regel waar de error in voor komt"
Code:
Private Sub cmdUpdate_Click()
Dim lngMyRow As Long
Dim r As Long
Dim rng As Range, fnd As Range
Dim Ctrl As Control
[COLOR="#FF0000"]Set rng = Members.Range("I16:I" & Members.Cells(Rows.Count, "I").End(xlUp).Row)[/COLOR]
[COLOR="#FF0000"]Set fnd = rng.Find(What:=f_FindAll.TextBox162.Value, LookIn:=xlValues, LookAt:=xlWhole)[/COLOR]
If Me.TextBox162 = vbNullString Then
MsgBox "Aanpassen is niet mogelijk, geen ingaves gevonden", vbExclamation
Exit Sub
ElseIf Not fnd Is Nothing Then
Application.EnableEvents = False
For r = 0 To Me.ListofData.ListCount - 1
If Me.ListofData.Selected(r) Then
Me.txtLBSelectionIndex = r
Exit For
End If
Next r
Cells(fnd.Row, "A").Value = cmbPlant.Text
Cells(fnd.Row, "B").Value = cmbStatus.Text
Cells(fnd.Row, "C").Value = cmbtype.Text
Cells(fnd.Row, "D").Value = cbmstock.Text
Cells(fnd.Row, "E").Value = txtgrams.Text
Cells(fnd.Row, "F").Value = Textbox1.Text
Cells(fnd.Row, "G").Value = TextBox163.Text
Cells(fnd.Row, "H").Value = TextBox10.Text
Cells(fnd.Row, "I").Value = TextBox162.Text
Cells(fnd.Row, "J").Value = TextBox161.Text
Application.EnableEvents = True
End If
MsgBox "De aanpassingen zijn opgeslagen!"
For Each Ctrl In Me.Controls
If TypeName(Ctrl) = "TextBox" Then
Ctrl.Value = ""
End If
Next Ctrl
Call UserForm_Initialize
Me.TextBox162.Value = WorksheetFunction.Max(Worksheets("members").Range("I16:I400")) + 1
End Sub
mijn vragen:
-Hoe los ik dit op?
-Waar maak ik de fout? (ter voorkoming van herhaling in de toekomst)
Bedankt alvast! :thumb:
Met vriendelijke groet,
Mike.