Sub FilterByDateTime() | |
Dim dDate As Date | |
Dim dbDate As Double | |
If IsDate(Range("B1")) Then | |
dbDate = Range("B1") | |
dbDate = DateSerial(Year(dbDate), Month(dbDate), Day(dbDate)) + _ | |
TimeSerial(Hour(dbDate), Minute(dbDate), Second(dbDate)) | |
Range("A1").AutoFilter | |
Range("A1").AutoFilter Field:=1, Criteria1:=">" & dbDate | |
End If | |
End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment