Verberg verlopen datums en sorteer de rest

[TinusvD]

Hallo

Is het mogelijk om datums te sorteren op volgorde en de oude datums automatisch te verbergen door de huidige datum van vandaag?

 

[HSV]

Zet kopteksten bovenaan op de eerste rij.
Voor het sorteren maakt het niet uit, maar voor de filter wel.

Sub hsv()
With Cells(1).CurrentRegion
  .Sort [A1], , [b1], , , , , 1
  .AutoFilter 2, ">" & Format(Now, "mm/dd/yyyy")
  End With
End Sub

 

[TinusvD]

Ik heb deze in een macro gezet.
Maar hoe start deze automatisch?

 

[HSV]

Wat is automatisch in jouw beleving?
Er naar kijken en zeggen toe maar, op een knopje drukken of bij nieuwe invoer?

 

[TinusvD]

Haha, zo had ik het automatische deel nog niet bekeken..

Ik bedoel eigenlijk bij het opnieuw opstarten of activeren.

 

[HSV]

In Thisworkbook-module.

Sheets("blad1") dan aanpassen.

Private Sub Workbook_Open()
With Sheets("blad1").Cells(1).CurrentRegion
  .Sort [A1], , [b1], , , , , 1
  .AutoFilter 2, ">" & Format(Now, "mm/dd/yyyy")
  End With
End Sub

Of in de werkblad-module van toepassing.

Private Sub Worksheet_Activate()
 With Cells(1).CurrentRegion
  .Sort [A1], , [b1], , , , , 1
  .AutoFilter 2, ">" & Format(Now, "mm/dd/yyyy")
 End With
End Sub

 

[TinusvD]

Werkt prima..

Dankje :thumb:

 

[TinusvD]

Mag slotje op..

 

[HSV]

Kan alleen jij doen in je openingspost.

Succes.