Run Time Error 1004

  • Thread starter Thread starter Syed Haider Ali
  • Start date Start date
S

Syed Haider Ali

Dear Friends,

I would like to show the filtered data in a combobox1. For this i am
using
the following codes.

Private sub userform_activate()

Dim tempws As Worksheet
Set tempws = ThisWorkbook.Worksheets.Add
tempws.Name = "Temp"
Sheets("code").Select
Range("a1:g1").Select
Selection.AutoFilter
Selection.AutoFilter
Selection.AutoFilter field:=4, criterial:="Cotton Suppliers"

Range("a1:b65531").Select
Selection.Copy
Sheets("temp").Select
Range("a1").Select
ActiveSheet.Paste

Sheets("temp").Activate

comboBox1.columnCount = 1
ComboBox1.RowSource = Range("b2", range("b2").end(Xldown)).address

End sub


But when i run it. It stops at

selection.AutoFilter field:=4, Criterial:="Cotton Suppliers"

with a message of run time error 1004.

How can i overcome the Problem. Further i would like to delete the
"Temp" Worksheet when close the userForm.

Thanks

Syed Haider Ali
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Copy Problem 1
Runtime error 1004 5
Help me4 2
Error Handle problem 4
Different Results from the Same Macro 2
Macro1 2
AutoFilter Criteria in VBA 5
Run-time error 1004 paste method of worksheet class failed 3

Back
Top