• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Rijen verwijderen op basis van datum

Status
Niet open voor verdere reacties.
R

rickb1977

Gebruiker
Lid geworden
2 dec 2015
Berichten
53
Hallo forumleden,

In bijgevoegd bestand filter ik op basis van de waarde in cel B1 (Today) de werknemers weg die al uit dienst zijn.
Is het ook mogelijk om deze rijen niet te filteren maar deze te verwijderen?

Zo ja, hoe kan ik dat het beste aanpakken?

In het voorbeeldbestand heb ik het gedeelte van de macro waarin de filtering plaatsvind toegevoegd.
Alvast bedankt voor jullie reacties!
 

Bijlagen

  • voorbeeld einddatum.xlsm
    15,3 KB · Weergaven: 22
Om oude werknemers na peildatum te verwijderen:
 

Bijlagen

  • voorbeeld einddatum_1.xlsm
    19,6 KB · Weergaven: 30
@Ad: bedankt voor je reactie. Jouw oplossing maakt de rijen leeg maar laat deze lege rijen nog wel staan.
Ik heb onderstaande oplossing ook nog gevonden op het forum. Deze verwijderd de hele rij.
Zijn er nog voor/nadelen van de ene oplossing ten opzichte van de andere?


Code: 
  With Sheets("voorbeeld").Cells(5, 1).CurrentRegion
    .AutoFilter 3, "<" & Format(.Parent.Cells(1, 2), "m-d-yyyy")
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
 
de code die je op het forum hebt gevonden zal bij grote bestanden sneller werken.
 
Rick,

Ik heb er een sorteer functie bijgezet, met de macro recorder dus die zal best wel wat ingekort kunnen worden.
Maar ik ben helemaal geen VBA specialist ;)
 

Bijlagen

  • voorbeeld einddatum_2.xlsm
    20,8 KB · Weergaven: 24
Sjon en Ad, bedankt voor jullie reacties. Ik ga ermee experimenteren.
Moet lukken op deze manier.

:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan