<<Convert Excel Spreadsheets to Web Pages \| Trading Software That Operates Within Excel \| Convert Excel, Access & Other Databases \| Merge Excel Files>>

Use AutoFilter in Excel VBA to Filter by Date & Time

TRY OUT: Smart-VBA | Code-VBA | Analyzer-XL | Downloader-XL | Trader-XL| More Free Downloads.. Best Value: Finance Templates Bundle

AutoFilter by Date and Time

Got any Excel Questions? Free Excel Help .

See Also Links Below if Not Familiar With AutoFilter in VBA

Excel VBA & AutoFilter AutoFilter provides us with a MUCH faster alternative to loops of all kinds
Excel VBA AutoFilter Criteria How to add the criteria for AutoFilter in VBA.
Excel VBA AutoFilter Dates Using dates in AutoFilter can be tricky if not using the US date format.

AutoFilter by Date & Time With VBA

The 3 example codes below show how we can AutoFilter bydate and time withVBA code .

Sub ByDateTimeGreater()Dim dDate As Date, dTime As DateDim strDate As StringDim lDate As Long, dblTime As DoubleDim dDateTime As Double    dDate = DateSerial(2006, 9, 12)    lDate = dDate        dTime = TimeSerial(12, 8, 0)    dblTime = dTime        dDateTime = lDate + dblTime    Range("A1").AutoFilter    Range("A1").AutoFilter Field:=1, Criteria1:=">" & dDateTimeEnd SubSub ByCellDateTimeGreater()Dim dDate As Date, dTime As DateDim strDate As StringDim lDate As Long, dblTime As DoubleDim dDateTime As DoubleDim rDate As Range, rTime As RangeSet rDate = Sheet1.Range("G1") 'Cell housing date & time    If Not IsDate(rDate) Then 'Check if valid      MsgBox "Non valid date and time in Sheet1 G1)"      Exit Sub    End If        dDate = DateSerial(Year(rDate), Month(rDate), Day(rDate))    lDate = dDate        Set rTime = rDate    dTime = TimeSerial(Hour(rTime), Minute(rTime), Second(rTime))    dblTime = dTime        dDateTime = lDate + dblTime    Range("A1").AutoFilter    Range("A1").AutoFilter Field:=1, Criteria1:=">" & dDateTimeEnd SubSub ByDateTimeEqual()Dim dDate As Date, dTime As DateDim strDate As StringDim lDate As Long, dblTime As DoubleDim dDateTime As Double    dDate = DateSerial(2006, 9, 12)    lDate = dDate        dTime = TimeSerial(12, 8, 0)    dblTime = dTime        dDateTime = lDate + dblTime        '= to does not work for non US date systems. So as with dates, we use    'Greater than or Equal to and Less than or Equal to the SAME date & time.	Range("A1").AutoFilter    Range("A1").AutoFilter Field:=1, Criteria1:=">=" & dDateTime, Operator:= _        xlAnd, Criteria2:="<=" & dDateTimeEnd Sub

Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money

Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALLpurchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.

Instant Download and Money Back Guarantee on Most Software

Try out:Analyzer XL |Downloader XL |Smart VBA |Trader XL Pro (best value) |ConsoXL | MergeXL | O2OLAP for Excel | MORE>>

Excel Trader PackageTechnical Analysis in Excel With $139.00 of FREE software!

Microsoft � and Microsoft Excel � are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft