Private Sub CommandButton1_Click()
On Error Resume Next
If CheckBox1.Value And ComboBox1.Text = "" Then MsgBox "02 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
If CheckBox2.Value And ComboBox2.Text = "" Then MsgBox "03 Incorrect Filter Conditions", vbExclamation, "": Exit Sub
Application.ScreenUpdating = False
With Sheet8
If CheckBox1.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=3, Criteria1:=ComboBox1.Text
If CheckBox2.Value Then .Range(.[a2], .[h65535].End(3)).AutoFilter Field:=7, Criteria1:=ComboBox2.Text
.Range(.[a2], [h65536].End(3)).Copy
End With
Sheets.Add After:=Sheets(Sheets.Count)
If ComboBox1.Text <> "" Then
ActiveSheet.Name = ComboBox1.Text
Else
ActiveSheet.Name = ComboBox2.Text
End If
[a1].Select
ActiveSheet.Paste
Sheet8.Activate
Sheet8.Range([a1], [l65536].End(3)).AutoFilter
Sheets(ComboBox1.Text).Activate
Unload Me
Application.ScreenUpdating = True
End Sub
