in excel VBA een berekende datum als criterium gebruiken

Status
Niet open voor verdere reacties.
D

driesvdb

Nieuwe gebruiker
Lid geworden
14 okt 2019
Berichten
2
Hallo, ik zou dagelijks in een excelblad (met een dagelijks wisselend aantal lijnen) enkel die lijnen moeten weerhouden waarvan de waarde in kolom J (=een datumveld) minstens 14 dagen in het verleden ligt


Ik heb me al suf gepuzzeld en geraak er niet uit ... Wie wil/kan er mij even helpen aub ? Dank u
 
Dat kan met DatumVeld <= Date - 14
 
Code: 
Dim Periode As Date
Dim lRow As Long

Periode = Format(Date - 14, "Short Date")

lRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.AutoFilterMode = False
ActiveSheet.Range("$A$1:$Y$" & lRow).AutoFilter Field:=10, Criteria1:="<" & Periode


ik probeer dus met autofilter maar die datums in veld 10 staan precies als "tekst"? Ik heb die al omgezet naar datum, maar autofilter wil nog steeds niet werken
 
Laatst bewerkt:
Plaats het bestand en zet code tussen codetags. Lees ook even de link in de handtekening van edmoor.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan