Foutmelding na sorteren

[HSV]

Daar heb ik helaas niet naar gekeken.
Je werkt met 'activecell'; Ik met 'ArtCel'.

Verander de code zoals hier onder (dit is de bovenste code in het formulier).

Private ArtCel As Range
Private Sub cmb_Aanpassen_Click()
'r = MsgBox("Aanpassen van gegevens kunnen niet ongedaan gemaakt worden.", vbYesNo, "Aanpassen gegevens")
'If r = vbYes Then
    ArtCel.Value = TextBox1.Value
    ArtCel.Offset(0, 1) = TextBox2.Value
    ArtCel.Offset(0, 2) = TextBox3.Value
    ArtCel.Offset(0, 3) = TextBox4.Value
    ArtCel.Offset(0, 4) = TextBox5.Value
    ArtCel.Offset(0, 5) = TextBox6.Value
    ArtCel.Offset(0, 6) = ComboBox7.Value
    ArtCel.Offset(0, 7) = TextBox8.Value
   
    cmbInvoer.RowSource = "Magazijn"
    cmbInvoer = ""
    'Else:  Exit Sub
'End If
    Frame3.Visible = False
    Cmd_Verwijderen.Visible = False
    cmb_Aanpassen.Visible = False
    
End Sub

 

[CygneVoler]

Ik voeg hierbij het aangepaste document toe met de wijzigingen opgenomen van de vraag hiervoor van Harry!

 

[CygneVoler]

Harry het opslaan gaat idd nu goed met de aanpassing bovenin de formule. Het verwijderen gaat alleen nog niet. Nog suggesties?

 

[HSV]

Ik dacht door het gegeven van ActiveCell → ArtCel dat je het nu wel zonder mijn hulp kon doen.

 

[CygneVoler]

De oplossing lag voor handen! Bedankt voor je hulp. Allemaal trouwens, ook Edmond hartelijk dank. Ik ga en kan weer verder stoeien! Wellicht tot later:d

 

[CygneVoler]

Harry nog ff en vraag: wil je me ajb uitleggen of er verschil is in de werking van 'Activecell' t.o.v 'ArtCel' ?

 

[HSV]

Set Artcel is de cel afgeleid van de combobox_listindex.

 

[CygneVoler]

Iedereen hartelijk dank voor de input, adviezen en hulp!