• 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.

Filter werk niet als ik "Datum, NL notatie" gebruik

  • Onderwerp starter Onderwerp starter ROSO
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

ROSO

Gebruiker
Lid geworden
4 nov 2009
Berichten
89
filter werkt niet als ik NL Datum notatie dd/mm/yyyy gebruik, wel als ik via userform als Amerikaan notatie mm/dd/yyyy bewaar.
Kan iemand mij hiermee helpen.

Alvast bedankt.

Code:
Dim Start
Dim Off


Start = DateValue(Me.txtDOTDate.Value)
Off = DateValue(Me.TxtRtnDate.Value)

MsgBox "" & Start
        
  'Clear Sheet CopyList
    Sheets("CopyList").Cells.ClearContents
  
      
    
    Application.Goto Sheets("Data").[A10]
    With Sheets("Data").Range("A10", ActiveCell.SpecialCells(xlLastCell))
        .AutoFilter Field:=14, Criteria1:=">=" & Start, Operator:=xlAnd, _
            Criteria2:="<=" & Off
    End With
    Sheets("Data").Range("A11", ActiveCell.SpecialCells(xlLastCell)).Copy
    With Sheets("CopyList")
        .[A2].PasteSpecial
        .Cells.EntireColumn.AutoFit
    End With
    Application.CutCopyMode = False
    ActiveSheet.[A14].AutoFilter
    Application.Goto Sheets("CopyList").[A1]
:confused:

Een ieder bedankt.

Oplossing als een ander ook wilt gebruiken:
--------- .AutoFilter Field:=14, Criteria1:=">=" & Format(Start, "m-d-yyyy") Operator:=xlAnd, _
Criteria2:="<=" & Format(Off, "m-d-yyyy")
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan