Userform: gegevens veranderen werkt niet

[SportBV]

Goedendag,

Met veel hulp van jullie heb ik inmiddels een activiteitenoverzicht kunnen maken. Waarvoor dank! Eenmaal in gebruik zijn we er achter gekomen dat hij toch nog niet helemaal naar behoren werkt. Het volgende is er aan de hand:

In de userform is een knop toegevoegd om gegevens te achteraf te kunnen veranderen. Dit zorgt er voor dat er een mutatie kan worden doorgevoerd in bestaande records. Echter, wanneer ik van een persoon meerdere records heb, en ik wil op één daar van een verandering doorbrengen, dan past hij die verandering niet correct toe.

Ik ben er achter gekomen dat het probleem is opgelost als ik niet meerdere records heb met dezelfde persoon. Echter, de mogelijkheid dat er van één persoon meerdere records in kan staan is wel aanwezig.

Gemakshalve heb ik even een bestand toegevoegd. Hierin komt twee keer de contactpersoon "Persoon 1" in voor. Wanneer je in het userform een wijziging in de laatste record wil doorvoeren (A7) dan zie je dat hij die wijziging niet goed oppakt. Hij wijziging dan namelijk record 1 (ook Persoon 1).

Zou iemand mij hier mee kunnen helpen?

 

[VenA]

Gebruik de listindex van de listbox ipv Find. Het wegschrijven kan ook eenvoudiger.

Private Sub CommandButton3_Click()
  If ListBox1.ListIndex > -1 Then
    Blad1.Cells(ListBox1.ListIndex + 2, 1).Resize(, 8) = Array(TextBox1.Value, ListBox2.Value, Coachgroep.Value, Groep.Value, UserID.Value, Contributie.Value, Training.Value, TextBox2.Value)
    Call UserForm_Initialize
  End If
 End Sub

 

[SportBV]

Hallo VenA,

Bedankt voor je snelle reactie. Jouw aanpassing lijkt inderdaad de oplossing te zijn voor meerdere records van 1 persoon. Bedankt!

Er komt nu echter wel een ander probleem naar voren. Na het doorvoeren van een verandering lijkt de volgorde van de vakken "omschrijving", "doel" en "reden stop/pauze" niet meer te kloppen.

Zou je daar nog eens naar willen kijken? Kom er niet helemaal uit.

Alvast bedankt!

 

[VenA]

Gewoon de volgorde in de array aanpassen. Gebruik bij voorkeur geen lege kolommen of formules in het bereik waar je naar wil schrijven. Anders moet je dat ook in de array verwerken als je het in 1 keer wil wegschrijven.