Regel van tabel kopieren obv datum

Status
Niet open voor verdere reacties.
J

Jeannette2509

Gebruiker
Lid geworden
11 nov 2019
Berichten
39
Graag zou ik willen dat de hele regel waarvan de vervaldatum kleiner of gelijk is aan de datum van vandaag, gekopieerd worden naar
het werkblad "TO DO" (liefst met knop en behoud van opmaak). De volgende dag, zouden dan eerst alle “oude” gegevens uit ‘TO DO’
met diezelfde knop verwijderd moeten worden.

Alvast bedankt voor jullie hulp.
 

Bijlagen

  • Voorbeeldje.xlsx
    11,6 KB · Weergaven: 28
Waarom niet filteren op kleiner of gelijk aan vandaag?
 

Bijlagen

  • Voorbeeldje.xlsx
    12,1 KB · Weergaven: 24
Dank voor je reactie.

Filteren kopieert niet naar ander werkblad en het is de bedoeling dat het werkblad met de data straks verborgen is
 
Dus je wil in een verborgen blad op een knop klikken? Bijzonder.

Code: 
Sub VenA()
  With Sheets("TO DO")
    If .ListObjects.Count Then .ListObjects(1).Delete
    Sheets("Blad1").Cells(2, 26).FormulaR1C1 = "=RC[-23]<=TODAY()"
    Sheets("Blad1").ListObjects(1).Range.AdvancedFilter xlFilterCopy, Sheets("Blad1").Range("Z1:Z2"), .Cells(1)
    .ListObjects.Add(xlSrcRange, .Cells(1).CurrentRegion, , xlYes).Name = "TblToDo"
    .Columns.AutoFit
  End With
End Sub
 
Hartelijk bedankt en werkt perfect!

Oei, over die knop heb ik dus niet voldoende nagedacht...
 
Ik heb het naam van het werkblad gewijzigd in 13-02-2020, maar loop nu tegen een ander probleem in mijn routine..

Wekelijks wordt komt er een update in (nieuwe) klanten.
Ik kopieer dan het werkblad 13-02-2020 en plak deze als bijv. 20-02-2020. In de 20-02-2020 zet ik dan de update

Dit zou dan de sheet moeten worden die kopieert naar de TO DO
Is er een mogelijkheid dat de macro dan "meegaat"?
 

Bijlagen

  • Voorbeeldje.xlsm
    25,6 KB · Weergaven: 38
Niet dat ik veel van het proces begrijp maar het is flauwekul om te stellen dat je daar niet aan ontkomt. Maar is blijkbaar iets wat onmogelijk is om bepaalde mensen aan het verstand te brengen.:confused:

Als je het 1 na laatste tabje als basis wil hebben dan gebruik je sheets(sheet.count-1)
 
Bedankt voor uw reactie.

Het werkblad "TO DO" bevindt zich ALTIJD voor het werkblad "Rapportage" (niet in voorbeeldje)
Zou dat nog een mogelijkheid kunnen bieden?
 
Niet dat ik veel van het verhaal begrijp.


Het te kopiëren blad moet voor blad To Do staan in dit voorbeeld.

Code: 
Sub TO_DO()
  With Sheets(Sheets("TO DO").Index - 1)
    If ActiveSheet.ListObjects.Count Then ActiveSheet.ListObjects(1).Delete
     .Cells(2, 26).FormulaR1C1 = "=RC[-23]<=TODAY()"
     .ListObjects(1).Range.AdvancedFilter xlFilterCopy, .Range("Z1:Z2"), Cells(1)
    ActiveSheet.ListObjects.Add(xlSrcRange, Cells(1).CurrentRegion, , xlYes).Name = "TblToDo"
    Columns.AutoFit
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan