Pasting filtered data from one worksheet to another

[JWILLEY]

My form makes sure all data is not filtered upon opening and closing.

I use a listbox6 to populate textbox1. Then textbox1 is used to filter worksheet(Part). However, I am unsuccessful in pasting the filtered data from worksheet(Part) to worksheet(FilterPaste).

I could really use some help. Below is the code I have managed to write so far.


Private Sub CloseForm_Click()
If Worksheets("Part").FilterMode Then
Worksheets("Part").ShowAllData
End If
Worksheets("Part").AutoFilterMode = False
Unload Me
End Sub
Private Sub FilterButton_Click()
If Worksheets("Part").FilterMode Then
Worksheets("Part").ShowAllData
End If
TextBox1 = ListBox6.Value
With Worksheets("Part")
.Range("A1:D1").AutoFilter Field:=4, Criteria1:=TextBox1
End With
With Worksheets("FilterPaste")
On Error Resume Next
'CLEAR EXTRACT RANGE AND CRITERIA RANGE
.Range("A1:D1041").Clear
'ADVANCE FILTER DATA
Range("PartList").ADVANCEFILTER _
Action:=x1FilterCopy, CopyToRange:=Range("A1")

End With
End Sub
<!-- / message -->