Status selecteren moet hele rij verplaatsen naar andere tabblad en terug.

[Michael_B]

Beste,

Ik heb tot nu toe een VBA oplossing gevonden (online) voor het verplaatsen van een hele rij als de status middels een keuzelijst verandert van OPEN naar KLAAR. Dan gaat de hele rij naar het Tabblad Archief. Terug werkt ook. Al sorteert hij niet direct. Maar dat is minder belangrijk.

Nu wil ik dit ook voor de status HOLD. Alleen dan moet er een datum opgegeven kunnen worden wanneer deze dan weer automatisch terugkeert naar het Tabblad Actielijst. En daar loop ik vast.

Wie kan me helpen de juiste richting op te sturen?

Bestand toegevoegd waar het voorbeeld in staat.

Gr.
Michael

 

[AHulpje]

Probeer het hier eens mee.
Als de holddatum (kolom A van werkblad Hold?) verstreken is wordt de actie automatisch teruggezet op het moment dat het werkboek geopend wordt.

 

[Michael_B]

Hoi @AHulpje
Dankjewel. Dit werkt voor zover ik kan testen goed. De rij verplaatst naar Hold nadat er een Holddatum is opgegeven. Morgen even kijken of hij ze ook terugzet naar Actielijst. Waarschijnlijk precies zoals ik wilde. Top.

Zie alleen wel dat de Klaar status nu een foutmelding geeft als ik deze op Klaar zet.
De rij gaat desalniettemin wel naar het Archief tabblad en ook weer terug. Terug zonder foutmelding.

 

[AHulpje]

En wat is de foutmelding? Het lijkt meer op een breakpoint.
Ik ontdekte nog een foutje in de ThisWokbook module:

For r = 10 to lastrow

moet natuurlijk

For r = lastrow To 10 Step -1

zijn.
Je kunt het terugzetten ook testen door de datum in kolom A van het werkblad Hold op gisteren te zetten, het document op te slaan, te sluiten en weer te openen.

 

[popipipo]

Waarom steeds alles heen en weer verplaatsen

Neem 1 tabblad zet daar alles in en gebruik de functie 'FILTER' in een ander tabblad om de juiste gegevens te zien.