The Items Filtering Based On Dates (First-Last Date)
Ago ,the products are filled with unique items into combobox and sorted alfabetically.
For this, following codes were used:
Private Sub UserForm_Initialize()
Dim ComBoList As Variant, LastRow&, cell As Range
Dim ComBoTemp As Variant, x, j As Long
Application.ScreenUpdating = False
With Worksheets("Sayfa1")
On Error Resume Next
.ShowAllData
Err.Clear
LastRow = .Cells(Rows.Count, 3).End(xlUp).Row
.Range("C2:C" & LastRow).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
ComboBox1.Clear
For Each cell In .Range("C2:C" & LastRow).SpecialCells(12)
ComboBox1.AddItem cell.Value
Next cell
On Error Resume Next
.ShowAllData
Err.Clear
End With
ComBoList = Me.ComboBox1.List
For x = LBound(ComBoList) To UBound(ComBoList) - 1
For j = x + 1 To UBound(ComBoList)
If ComBoList(x, 0) > ComBoList(j, 0) Then
ComBoTemp = ComBoList(x, 0)
ComBoList(x, 0) = ComBoList(j, 0)
ComBoList(j, 0) = ComBoTemp
End If
Next j
Next x
End Sub
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.
The date userform is used to enter date automatically into text boxes.
