none
Macro to filter range based on DATE - Equal to or After TODAY() RRS feed

Answers

  • Try this:

    Sub FilterOnDate()
        ActiveSheet.Range("B1").CurrentRegion.AutoFilter _
            Field:=2, Criteria1:=">=" & CLng(Date)
    End Sub


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    Monday, October 23, 2017 2:50 PM

All replies

  • Try this:

    Sub FilterOnDate()
        ActiveSheet.Range("B1").CurrentRegion.AutoFilter _
            Field:=2, Criteria1:=">=" & CLng(Date)
    End Sub


    Regards, Hans Vogelaar (http://www.eileenslounge.com)

    Monday, October 23, 2017 2:50 PM
  • Hi,

    This is the forum to discuss questions and feedback for Microsoft Excel features, I'll move your question to the MSDN forum for Excel

    https://social.msdn.microsoft.com/Forums/en-US/home?forum=exceldev

    The reason why we recommend posting appropriately is you will get the most qualified pool of respondents, and other partners who read the forums regularly can either share their knowledge or learn from your interaction with us. Thank you for your understanding.


    Regards,
    Emi Zhang
    TechNet Community Support

    Please remember to mark the replies as answers if they helped.
    If you have feedback for TechNet Subscriber Support, contact tnmff@microsoft.com.

    Tuesday, October 24, 2017 8:51 AM
  • That works beautifully!! Thankyou :D
    Tuesday, October 24, 2017 9:55 AM