Yanlış anlamadıysam listedeki bugünden sonraki kayıtların listelenmesini istiyorsunuz.
Bunun için alttaki kodları deneyiniz.
Kriter olarak istediğiniz başka tarihi de girebilirsiniz.
Kod:
Dim Kriter As Date
Kriter = Date
ActiveSheet.Range("C5").AutoFilter Field:=2, Criteria1:=">=" & CDbl(CDate(Kriter)), Operator:=xlAnd