Waarden plaatsen in ander werkblad op basis van datum van vandaag

[JohnSnoei]

Is het mogelijk om uit een werkblad "Totaal" alle kolommen met de datums vanaf vandaag tijdelijk te plaatsen in ander werkblad zodat je deze kan printen. Daarnaast dienen de regels met status "Geannuleerd" in kolom G niet meegenomen te worden. De wens is om dat werkblad "Temp" iedere keer wordt overschreven als het Excel bestand wordt geopend op basis van criteria. Heb dit geprobeerd met een macro maar dat lukt me helaas niet

John

 

[snb]

Waarom geen combinatie van autofilter en selectie afdrukken ?

 

[JohnSnoei]

De gebruiker(s) wil(len) graag zonder een handeling een direct overzicht hebben, om in te zien en om te kunnen verspreiden onder de vrijwilligers, maar ook een totaaloverzicht van het jaar. Dan moet men de filter weer verwijderen. Mag ook in hetzelfde werkblad als dat kan?

 

[AD1957]

Zo ?

Sub FilterPrint()
    With Cells(1).CurrentRegion
        .AutoFilter 5, ">=" & 1 * Date
        .AutoFilter 7, "<>Geannuleerd"
        .PrintPreview
        .AutoFilter
    End With
End Sub

kijk ook eens hier: http://www.snb-vba.eu/VBA_Autofilter.html

of maak er een dynamische tabel van:

With Sheets("Totaal").ListObjects(1).Range
    .AutoFilter 5, ">=" & 1 * Date
    .AutoFilter 7, "<>Geannuleerd"
    .PrintPreview
    .AutoFilter
End With

 

[JohnSnoei]

Dank je wel werkt prima ook nog bij de link gekeken bij de autofilter hier nog wat van gebruikt en de link heb ik opgeslagen data kan je veel mee thanks