Advanced Filtering With Userform

The Items Filtering Based On Dates (First-Last Date)

Ago ,the products  are filled  with unique items into combobox and sorted alfabetically.

       When the dates (first date,last date) are entered in text boxes and if report button is pressed  the userform elongation effect is activated and listbox appears. Products can be filtered on listbox.

Dim tarih1, tarih2 As Date: Dim ara As Range, LastRow As Long
    Dim s1 As Worksheet
    Application.ScreenUpdating = False
    Set s1 = Worksheets("Sayfa1")
    If TextBox1.Value = "" Or TextBox2.Value = "" Then
    MsgBox "Please Enter Date", vbDefaultButton1
    Exit Sub
    End If
    If ComboBox1.Value = "" Then
    MsgBox "Please Choose Product", vbDefaultButton1
    Exit Sub
    End If
    tarih1 = VBA.Format(TextBox1.Value, "dd.mm.yyyy")
    tarih2 = VBA.Format(TextBox2.Value, "dd.mm.yyyy")
 
    ListBox1.Clear
    ListBox1.ColumnCount = 9
    ListBox1.ColumnWidths = "30;170;40;70;60;90;110;50;100"
 
    LastRow = s1.Range("B" & Rows.Count).End(xlUp).Row
    For Each ara In s1.Range("B2:B" & LastRow)
    If CLng(CDate(ara.Value)) >= CLng(CDate(tarih1)) And _
    CLng(CDate(ara.Value)) <= CLng(CDate(tarih2)) And _
    CStr(ara.Offset(0, 1).Value) = CStr(ComboBox1.Text) Then
ListBox1.AddItem
            ListBox1.List(ListBox1.ListCount - 1, 1) = ara
            ListBox1.List(ListBox1.ListCount - 1, 0) = ara.Offset(0, -1)
            ListBox1.List(ListBox1.ListCount - 1, 1) = ara.Offset(0, 1)
            ListBox1.List(ListBox1.ListCount - 1, 2) = ara.Offset(0, 2)
            ListBox1.List(ListBox1.ListCount - 1, 3) = ara.Offset(0, 3)
            ListBox1.List(ListBox1.ListCount - 1, 4) = VBA.Format(ara.Offset(0, 4), "#,##.00")
            ListBox1.List(ListBox1.ListCount - 1, 5) = ara.Offset(0, 5)
            ListBox1.List(ListBox1.ListCount - 1, 6) = VBA.Format(ara.Offset(0, 6), "#,##.00")
            ListBox1.List(ListBox1.ListCount - 1, 7) = ara.Offset(0, 7)
            ListBox1.List(ListBox1.ListCount - 1, 8) = ara.Offset(0, 8)
         
        End If
 Next ara
 Call uzat
 Application.ScreenUpdating = True

The date userform is used  to enter date automatically into text boxes.

Before listing the filtered data in the listbox, the userform elongation effect increases the height of the userform and the listbox appears.

The updated Excel workbook can be viewed and downloaded here