Gegevens wijzigen

[Jack Nouws]

Hallo

Ik wil dmv deze code gegevens veranderen maar de code werkt niet helemaal goed.
Het is de bedoeling wanneer ik een naam selecteer in een bepaalde rij dat dan de gegevens in het userform geladen wordt. Hier kan ik de gegevens wijzigen, en dan moet deze code er voor zorgen dat de gegevens ook daad werkelijk gewijzigd wordt. De gegevens worden ook gewijzigd maar worden op een totaal verkeerde plaats gezet.
Waar zou dat aan kunnen liggen? (nl. op de 1e regel)

Met vr gr
Jack

Private Sub CmdWijzig_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect

    With Sheets("Planten").[C5:C10]
    Set c = .Find(CboNaamW.Value, LookIn:=xlValues, LookAt:=xlWhole)
         c.Select
         Cells(c.Row).Resize(, 13) = Split(Format(TxtDatum.Text, "dd/mm/yyyy") & "|" & CboNaamW.Value & "|" & TxtPotW.Text & "|" & TxtMaatW.Text & "|" & TxtPrijsW.Text & "||||||||" & TxtOpmerkingW.Text, "|")
    End With

Application.ScreenUpdating = True

End Sub

 

[Roncancio]

Bij Cells ook de kolom aangeven. Dan kom het wel op de juiste plaats.

Private Sub CmdWijzig_Click()
Application.ScreenUpdating = False
ActiveSheet.Unprotect

    With Sheets("Planten").[C5:C10]
    Set c = .Find(CboNaamW.Value, LookIn:=xlValues, LookAt:=xlWhole)
         Cells(c.Row, "D").Resize(, 13) = Split(Format(TxtDatum.Text, "dd/mm/yyyy") & "|" & CboNaamW.Value & "|" & TxtPotW.Text & "|" & TxtMaatW.Text & "|" & TxtPrijsW.Text & "||||||||" & TxtOpmerkingW.Text, "|")
    End With

Application.ScreenUpdating = True

End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Bij Cells ook de kolom aangeven. Dan kom het wel op de juiste plaats.


Met vriendelijke groet,


Roncancio

Dank u wel :thumb:

Met vr gr
Jack

 

[snb]

Dat kan simpeler: (zonder set , zonder with ...End With en zonder cells)

Sheets("Planten").[C5:C10].Find(CboNaamW.Value).offset(,1).Resize(, 13) = Split(Format(TxtDatum.Text, "dd/mm/yyyy") & "|" & CboNaamW.Value & "|" & TxtPotW.Text & "|" & TxtMaatW.Text & "|" & TxtPrijsW.Text & "||||||||" & TxtOpmerkingW.Text, "|")