Userform gegevens wijzigen

[Kazandra]

Hallo,

Ik ben al een tijdje bezig met het maken van een excelbestand met VBA. Het is een klantenbestand waarbij ik middels een userform klantgegevens wil toevoegen, wijzigen en verwijderen.

Het toevoegen en verwijderen lukt inmiddels. Het wijzigen alleen niet. Welke code moet ik hiervoor gebruiken? Dit is wat ik al heb:

Private Sub Cmdwijzigen_Click()
With Sheets("klanten")
.Columns(1).Find(what:=F1T2.Value, LookIn:=xlValues).EntireRow.Resize
ws.Cells(Irow, 1).Value = Me.F2T1.Value & " " & Me.F2T2.Value & " " & Me.F2T3.Value
ws.Cells(Irow, 2).Value = Me.F2T1.Value
ws.Cells(Irow, 3).Value = Me.F2T2.Value
ws.Cells(Irow, 4).Value = Me.F2T3.Value
ws.Cells(Irow, 5).Value = Me.F2T4.Value
ws.Cells(Irow, 6).Value = Me.F2T5.Value
ws.Cells(Irow, 7).Value = Me.F2T6.Value
ws.Cells(Irow, 8).Value = Me.F2T7.Value
ws.Cells(Irow, 9).Value = Me.F2T8.Value
ws.Cells(Irow, 10).Value = Me.F2T9.Value

End With
Call sorteren
Call FormulierLegen
End Sub

Bedankt voor jullie hulp.

Groetjes Erna

 

[VenA]

Zo misschien? Anders graag een voorbeeldbestandje.

Private Sub Cmdwijzigen_Click()
Dim f As Range
With Sheets("klanten")
    Set f = .Columns(1).Find(F1T2.Value, , xlValues)
    If Not f Is Nothing Then
        .Cells(f.Row, 1).Resize(, 10) = Array(F2T1.Value & " " & F2T2.Value & " " & F2T3.Value, F2T1.Value, F2T2.Value, F2T3.Value, F2T4.Value, F2T5.Value,F2T6.Value, F2T7.Value, F2T8.Value, F2T9.Value)
    End If
End With
sorteren
FormulierLegen
End Sub

 

[Kazandra]

Super bedankt het werkt perfect!

 

[HSV]

Maak gebruik van een listbox of combobox.
Die heb je namelijk dan al gevuld met je klantnamen.
Zo hoef je niet meer te zoeken naar de juiste rij, maar is de listindex + ? de juiste rijnummer.