Load filtered data to listbox instead of worksheet

[kelly mort]

Hello, I want to find out if this code below here can be made to load the data into a listbox instead of pasting it to the sheet. My knowledge is limited with the how. Thanks in advance.

Sub FilterDates()
  Dim rCrit As Range  
  Sheets("HOME").UsedRange.ClearContents
  With Sheets(“DATA”).UsedRange
    Set rCrit = .Offset(, .Columns.Count).Resize(2, 1)
    rCrit.Cells(2).Formula = "=SEARCH(TEXT(C2,""dd""),F2)"
    '.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rCrit, Unique:=False
    .AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rCrit, copytorange:=Sheets("HOME").Range("B1"), Unique:=False
  End With
  rCrit.Cells(2, 1).ClearContents
End Sub

 

[Yongle]

I will find a way to use some tricks in switching between years.
So now how do we get the filtered data into the listbox as before?

You could allow user to select month(s) on the userform

How do you want to filter?
- single month only
- range of months (example FROM Jan 2019 TO March 2019)
- whole of 2019
etc

 

[kelly mort]

Since the filter could handle for a single year, what I did was place a combobox and load it with "This Year" and "Last Year".

And adjacent it is other combobox with the months January to December. So when I select "This year" and then say January, then I set cell D1 value to 01-01-2019 before run the filter.

It's running cool and I am okay with that.

 

[Yongle]

So.... do you need further help?

 

[kelly mort]

So.... do you need further help?

No thanks. I will get back here when I get locked somewhere