Filter column between 2 dates from cells in differnt sheet

[kayibey]

Hi All,

My first post here and a novice at VBA. Please can you help me with this.

1. I have a sheet called "Control", in that sheet I have a 'starting date' in cell "K2" (01/04/2022) in DD/MM/YYYY format and 'ending date' in cell "K3"
2. I have a set of data in another sheet called "Data Q" between Columns "A" to "J", around 9000 rows.
3. I am trying to filter "Data Q" column "J" using the date range from the 2 cells mentioned in point 1

Please help

 

[Joe4]

Welcome to the Board!

Have you tried Advanced Filters?
See: How to Set Up Excel Advanced Filter Criteria - Examples

 

[kevin9999]

If you didn't want to use Advanced Filters, here's a VBA solution that assumes your sheet "Data Q" has headers in row 1, data starting from row 2.

Option Explicit
Sub Between_Dates()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim StartDate As Date, EndDate As Date
    Set ws1 = Worksheets("Control")
    Set ws2 = Worksheets("Data Q")
   
    StartDate = ws1.Range("K2").Value2
    EndDate = ws1.Range("K3").Value2
   
    With ws2.Range("J:J")
        .AutoFilter 1, ">=" & CLng(StartDate), 1, "<=" & CLng(EndDate)
    End With
   
End Sub

 

[kayibey]

If you didn't want to use Advanced Filters, here's a VBA solution that assumes your sheet "Data Q" has headers in row 1, data starting from row 2.

Option Explicit
Sub Between_Dates()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim StartDate As Date, EndDate As Date
    Set ws1 = Worksheets("Control")
    Set ws2 = Worksheets("Data Q")
  
    StartDate = ws1.Range("K2").Value2
    EndDate = ws1.Range("K3").Value2
  
    With ws2.Range("J:J")
        .AutoFilter 1, ">=" & CLng(StartDate), 1, "<=" & CLng(EndDate)
    End With
  
End Sub

And as simple as that. Brilliant. You are a legend. Thank you

 

[kayibey]

Welcome to the Board!

Have you tried Advanced Filters?
See: How to Set Up Excel Advanced Filter Criteria - Examples

Thank you for your reply, I actually needed a VBA code.

 

[kevin9999]

And as simple as that. Brilliant. You are a legend. Thank you

Far from legendary, just a tenacious researcher who follows the creed of try, try again Glad we could help.