Date Filter Before Date/Time Value in Cell

[FrenchCelt]

Hello,

I'm trying to write some VBA code that filters Column M for date/time values before the date/time value in cell U1. Does anyone have any suggestions?

 

[Joe4]

What do you need VBA to do it, instead of just use the old fashioned Filters, or the new Filter function available in newer versions of Excel (included in 365)?

 

[FrenchCelt]

It's part of a larger macro that takes a raw report and refines it into something more specific for others to use.

 

[Joe4]

You can still use VBA to apply those tools/functions.

Your question is extremely general/generic.
Exactly what is giving you trouble?

 

[FrenchCelt]

I can't figure out the code to make it work. Column M has rows of dates/times and I want to filter them down to only show dates/times before the date/time displayed in cell U1. When I record it to see the code, it's too specific to that given date and time in that cell, but it's going to be different every time.

 

[Joe4]

What I would recommend in these cases is to turn on your Macro Recorder, and record yourself doing it manually once, then stopping the Macro Recorder.
Then view your code. You can usually use this as the basis of the VBA code you need, you usually just then need to generalize it at that point.

Here is a link that shows you how to you use the FILTER function, if you are not familiar with it.

FILTER function - Microsoft Support

How to use the FILTER function in Excel to filter a range of data based on criteria you define.

support.microsoft.com

 

[Joe4]

If you need helping generalizing it after recording, let us know.

 

[MARK858]

When I record it to see the code, it's too specific to that given date and time in that cell, but it's going to be different every time.

Without knowing anything else about your sheet name/range/layout or if you have any other filters applying when the code runs, try as a basic filter...

Sub FilterDateTime()
    Application.ScreenUpdating = False
    Range("M1:M" & Range("M" & Rows.Count).End(xlUp).Row).AutoFilter 1, "<" & CDbl(Range("U1").Value)
End Sub