Error 1004

[mr_baz]

Hi guys,

I barely new with VBA and there's a problem with the code that I can't solve.

Here's the code ;

Sheets("Full list").Select
Selection.AutoFilter Field:=18, Criteria1:="OK"
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=18, Criteria1:="OK"
ActiveWindow.SmallScroll ToRight:=-13
Selection.AutoFilter Field:=99, Criteria1:="OK"
Range("F6:K3000").Select
Selection.Copy
Sheets("common parts").Select
Range("F1").Select
ActiveSheet.Paste
Sheets("Full list").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData

Excel highlight me ; Range("F6:K3000").Select
as an error for now.

Does someone have an idea?

Thanks for any help

 

[Richard Schollar]

Hi

Where do you have this code? In a standard module or a sheet module?

 

[mr_baz]

in a sheet module, with a macro that I created.

 

[Richard Schollar]

With sheet modules, any unqualified ranges (such as Range("F6:K3000") refer to the range on the sheet itself irrespective of whether this sheet is active or not. So you just need to qualify these ranges with the sheet on which they apppear:

Sheets("Full list").Select
Selection.AutoFilter Field:=18, Criteria1:="OK"
ActiveSheet.ShowAllData
Selection.AutoFilter Field:=18, Criteria1:="OK"
ActiveWindow.SmallScroll ToRight:=-13
Selection.AutoFilter Field:=99, Criteria1:="OK"
Sheets("Full list").Range("F6:K3000").Select
Selection.Copy
Sheets("common parts").Select
Sheets("common parts").Range("F1").Select
ActiveSheet.Paste
Sheets("Full list").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData

 

[mr_baz]

thank you very much!!