Eerst komende datum filteren

[Winkkie]

Hallo,

Ik ben bezig een pagina voor onze vereniging.

Ik heb een lijst met een compleet speel programma (240 wedstrijden)
Is het mogelijk dat de eerst komende wedstrijden uit het lijst wordt getoond
ik toon ze nu met een filter maar wil dit eigenlijk automatiseren maar weet niet precies hoe.

Ik wil graag dat het in de huidige kolommen blijft aangezien ik de uitslagen dan ook gewoon kan invullen


Winkkie

PS dit ie een gedeelte uit het orgineel

 

[JEC.]

Sub volgendewedstrijd()
With ActiveSheet
       lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row
End With
Application.Goto reference:=Cells(lastrow + 1, 1), Scroll:=True
End Sub

Ik denk dat dit wel voldoet.

 

[Winkkie]

Thanks

Prima zo

 

[HSV]

Dit doet precies hetzelfde.

Sub volgendewedstrijd()
Application.Goto Cells(Rows.Count, 7).End(xlUp).Offset(1, -6), True
End Sub

 

[VenA]

Waarbij de eerst komende wedstrijden natuurlijk wel anders is dan de laatste ingevulde standen. Dan wordt het zoiets.

Sub VenA()
  Application.Goto Cells(Application.Match(CDbl(Date), Columns(3), 1), 3), True
End Sub