Rij in excel verplaatsen nadat waarde in een cel wordt geplaatst

[BeKa1957]

Goedemiddag.
De beste wensen allemaal voor 2025.

Ik heb een klein probleem wat al vaker hier aan de orde is geweest maar het lukt me niet om de aangeboden macro's in de andere discussie dermate te bewerken dat deze voor mijn bruikbaar zijn.

Ik had ooit een werkbare macro maar deze is helaas gecorrumpeerd.
Ik werk vrijwillig bij een stichting en leggen ieder jaar huisbezoeken af.
Op werkblad "2025"staan de nog te bezoeken adressen.
Op werkblad "klaar 2025"staan de bezocht adressen.

Als op werkblad "2025" bij kolom E ja wordt ingevuld dan zou de desbetreffende rij moeten verdwijnen en verplaatst worden naar het blad "Klaar 2025"

Kan iemand me hier behulpzaam bij zijn.
Mijn dank is groot.
Ui de bijlage zijn alle privacy gevoelige gegevens verwijderd.

Gr Ben

 

[edmoor]

Iets als dit?

 

[HSV]

De codes die al in het bestand aanwezig zijn mag je allemaal verwijderen.
Een Change-event hoort niet in een standaard module (die doet daar helemaal niets) maar in het werkblad-module van toepassing.

Onderstaande code dus in werkbladmodule 2025 plaatsen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
 If Target.Column = 5 And LCase(Target) = "ja" Then
   With Cells(Target.Row, "b").Resize(, 11)
     Sheets("klaar 2025").Cells(Rows.Count, "b").End(xlUp).Offset(1).Resize(, 11) = .Value
    .Delete
   End With
 End If
End If
End Sub

 

[BeKa1957]

Goedemorgen,

Helaas,
Beide reacties uitgeprobeerd maar krijg de macro's niet aan het lopen.
Ik voeg even het complete bestand toe. De informatie is niet privacy gevoelig want deze is gewoon op internet beschikbaar..
Het lukte slechts ten dele. de regel werd wel verplaatst naar tabblad "klaar 2025"maar de regel in tabblad "2025" bleef leeg achter. Deze zou eigenlijk ook moeten verdwijnen.
Alvast hartelijk dank voor jullie hulp.

 

[edmoor]

In je bijlage document zit niks van de aangeboden oplosingen.

 

[HSV]

Je hebt niet gedaan wat er is geschreven.

 

[edmoor]

Het lukte slechts ten dele. de regel werd wel verplaatst naar tabblad "klaar 2025"maar de regel in tabblad "2025" bleef leeg achter. Deze zou eigenlijk ook moeten verdwijnen.

Dat is met opzet zo gedaan en uiteraard eenvoudig aan te passen.

 

[BeKa1957]

Sorry, beste helpers,
Ik had de macro inmiddels verwijderd.
Had hem aangemaakt onder Ben.
Staat er nu wel in
Sorry.

 

[HSV]

De macro hoort daar niet thuis.
Dubbelklik in je VBAProject op blad2(2025) en plaats daar de code.

 

[edmoor]

Nog steeds hetzelfde.
Een Event macro hoort niet in een module, zoals al eerder gemeld.

 

[BeKa1957]

Sorry beiden,

Bedankt voor de aangeboden hulp maar mijn beperkte kennis van Macro's komt hier gewoon te kort.
Ik ga de regels wel weer handmatig verplaatsen.
Iets meer werk maar dat lukt wel.
Ik pak het nog wel een keer op als ik meer tijd heb.
Beste wensen.

 

[HSV]

We willen best helpen, dus hierbij het bestand van mij.
Kijk waar ik de code heb geplaatst.

 

[BeKa1957]

Allebei bedankt en het is zeker niet de bedoeling om aan te geven dat jullie niet willen helpen, in tegendeel. Echter mijn kennis van VBA schiet hier gewoon te kort.
Ik dacht even een macro te plakken maar dat gaat dus niet. Ik zal dit voorbeeld bewaren en me er verder in gaan verdiepen.
Ik zie wel dat het perfect werkt maar krijg het niet geplaatst in het document.
Wil ik er wat van leren zal ik het toch een keer moeten uitvogelen.
Komt goed en bedankt voor de hulp.

 

[edmoor]

Tip:
Een Sub waarvan de naam begint met Worksheet_ hoort achter het betreffende werkblad, niet in een Module. Het is een Event (Gebeurtenis) routine.

 

[HSV]

Je leert er het meest van om het zelf te doen; vandaar de suggesties en geen bijlage.
Dat is ook geen onwil van ons hier.
In onderstaande plaatje kun je zien waar de code staat (blauw).
Ik heb alle andere codes en modules verwijderd.