OK, had to make a few guesses & assumptions in order to do any testing.
Here's what I used.
On Sheet "Summary":
(1) I used an ActiveX ComboBox.
(2) I planted 4 ActiveX OptionButtons. For their captions I used 1000, 1500, 2000 & 2500, respectively.
In a standard module, I put this.
Code:
Public GetMnth As Date
Public CritChosn
In the sheet code module for Summary sheet, I used:
Code:
Private Sub ComboBox1_Change()
GetMnth = ComboBox1.Text & "/01/" & Year(Date)
End Sub
Private Sub OptionButton1_Click()
CritChosn = OptionButton1.Caption
End Sub
Private Sub OptionButton2_Click()
CritChosn = OptionButton2.Caption
End Sub
Private Sub OptionButton3_Click()
CritChosn = OptionButton3.Caption
End Sub
Private Sub OptionButton4_Click()
CritChosn = OptionButton4.Caption
End Sub
Then I just assigned this code to a Forms button:
Code:
Sub FilterAndCopyDemo()
Sheets("Report").Cells.Clear
With Sheets("ImportedData")
With .Columns("A:IV")
If Month(GetMnth) = 12 Then
.AutoFilter Field:=25, Criteria1:=">=" & Month(GetMnth) & "/1/" & Year(Date), _
Criteria2:="<" & Month(GetMnth) & "/31/" & Year(Date)
.AutoFilter Field:=15, Criteria1:=">" & CritChosn
Else
.AutoFilter Field:=25, Criteria1:=">=" & Month(GetMnth) & "/1/" & Year(Date), _
Criteria2:="<" & Month(GetMnth) + 1 & "/1/" & Year(Date)
.AutoFilter Field:=15, Criteria1:=">" & CritChosn
End If
End With
.Columns("Y").SpecialCells(xlVisible).Copy _
Sheets("Report").Cells(Rows.Count, 1).End(xlUp)(2, 1)
.Columns("F").SpecialCells(xlVisible).Copy _
Sheets("Report").Cells(Rows.Count, 2).End(xlUp)(2, 1)
.Columns("G").SpecialCells(xlVisible).Copy _
Sheets("Report").Cells(Rows.Count, 3).End(xlUp)(2, 1)
.Columns("N").SpecialCells(xlVisible).Copy _
Sheets("Report").Cells(Rows.Count, 4).End(xlUp)(2, 1)
.Columns("O").SpecialCells(xlVisible).Copy _
Sheets("Report").Cells(Rows.Count, 5).End(xlUp)(2, 1)
.AutoFilterMode = False
End With
End Sub
Now, when I use the combobox & select a number, the public variable "GetMnth" gets assigned the value of the selection. This determines which month was selected.
When I choose one of the optionbuttons, the public variable "CritChosn" is defined as the caption of the optionbutton I selected.
These two variables are used as the filtering criteria.
When I click the Forms button, sheet "ImportedData" gets filtered on column "Y" by the month that "GetMnth" refers to.
It then gets filtered again on column "O" by greater than the value of "CritChosn"
Then it copies the filtered results of column(s):
Y to col. A of Report sheet,
F to col. B of Report sheet,
G to col. C of Report sheet,
N to col. D of Report sheet,
O to col. E of Report sheet.
Even if this doesn't exactly match your layout/setup, it should be close, and should at least be good for some ideas.
Hope it helps.