Vastlopen bij het wijzigen van data

[Puntdroad123]

Hallo,

Ben bezig om data te verzamelen en dit aan te kunnen passen als er nieuwe data beschikbaar is. Nu heb ik volgens mij een aardige code om dit te kunnen wijzigen wanneer er nieuwe data bij gekomen is, maar nu komt bij onderstaande code telkens een foutcode tevoorschijn. Bij .Cells(code.row, i) = Me("TextBox" & i) loopt het vast.
Als ik de data wil wijzigen komt fout 217024809 (80070057) in beeld.
Wat doe ik fout en wat moet ik aanpassen om de code te laten werken?

Alvast bedankt,
mvg Rick

Private Sub wijzigen_Click()
Dim code As Range
With Worksheets("verwerkte data")
Set code = .Range("A:Al").Find(Text_Klant.value, LookIn:=xlValues, LookAt:=xlWhole)
For i = 1 To 13
.Cells(code.row, i) = Me("TextBox" & i)
Next
For i = 14 To 14
.Cells(code.row, i) = Me("CheckBox" & i)
Next
For i = 15 To 37
.Cells(code.row, i) = Me("TextBox" & i)
Next

End With
End Sub

 

[edmoor]

Je gebruikt een voor VBA gereserveerd woord als naam van een variabele. Gebruik geen correct Engelse woorden als naam van een variable.
Wijzig code in bijvoorbeeld o_code.

 

[Puntdroad123]

Gedaan, maar blijft vastlopen.
Als ik alles 4 van code naar o_code wijzig blijft de foutcode hetzelfde.
Wanneer ik set code zo laat en de andere 3 wijzig wordt het foutcode 424

 

[Puntdroad123]

Misschien kun je het direct oplossen in het bestand?

 

[snb]

controleer eerst of Textbox 1 t/m 13 en 15 t/m 37 bestaan en of checkbox14 bestaat.
Pas zonodig de namen aan.
En gebruik vooral F8 in de VBEditor.

Private Sub wijzigen_Click()
  with sheets("verwerkte data").columns(1).Find(Text_Klant.text,,,1)
    For j = 1 To 37
     .offset(, j) = Me(iif(j=14,"check","Text") & "Box" & j).value
    next
  End With
End Sub