• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Fout in formule met filter

Status
Niet open voor verdere reacties.
V

vrouw

Terugkerende gebruiker
Lid geworden
27 mrt 2010
Berichten
1.434
Hoi all,

Ik krijg maar steeds een foutmelding op onderstaande rode regel.
Wat staat daar fout?

Code: 
Private Sub Workbook_Open()

With Sheets("2020").Cells(1).CurrentRegion
    [COLOR="#FF0000"].AutoFilter 1, "<" & Format = "[$-en-IN,1]dddd, d mmmm, yyyy;@"[/COLOR]
    .Offset(1).Copy Sheets("Verleden 2020").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub
 
Hierbij een voorbeeld bestandje.
 

Bijlagen

  • voorbeeld.xlsb
    46,5 KB · Weergaven: 29
Je wilt filteren op datums kleiner dan?
 
Probeer dit eens:

Code: 
Private Sub Workbook_Open()

With Sheets("2020").Cells(1).CurrentRegion
    .AutoFilter 1, "<" & Format("[$-en-IN,1]dddd, d mmmm, yyyy;@")
    .Offset(1).Copy Sheets("Verleden 2020").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub
 
Ik zit nu gewoon met het probleem dat alles verdwijnt naar het "verleden" tabblad in plaats van alles ouder dan vandaag.
Ook na de aanpassing van @mvdvlist
 
Laatst bewerkt:
Probeer dit eens met de verschillende notaties.
Daarnaast zijn er nog wel andere methodes.

Code: 
 .AutoFilter 1, "<" & cLng(date)
 
Dit lijkt er inderdaad op dat het beter gaat werken @HSV

wat kan dat nou de reden zijn?
 
De reden is dat een datum een getal is.

Datum vandaag is 9-10-2020.
Vandaag is Clng(date) = 44113.

Meestal gaat dat wel goed.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan