Error 1004

[mr_baz]

Hi there,

I can't figure out what's wrong with my code for my macro.

Sheets("NON OFFICIAL NON BPPL LIST").Select
ActiveSheet.Range("A29:H29").Select
Selection.AutoFill Destination:=Range("A29:H2050")
ActiveSheet.Range("A29:H2050").Select
Calculate
Columns("A:I").Select
Selection.Copy
Sheets("OFFICIAL NON BPPL LIST").Select
ActiveWindow.SmallScroll Down:=-4
ActiveWindow.LargeScroll Down:=-1
Selection.AutoFilter Field:=1, Criteria1:="<>"
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Sheets("NON OFFICIAL NON BPPL LIST").Select
Selection.Copy
Sheets("OFFICIAL NON BPPL LIST").Select
ActiveSheet.Columns("A:I").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.AutoFilter Field:=1, Criteria1:="<>"


The sentence Selection.AutoFill Destination:=Range("A29:H2050") is highlighted.

Can someone help me?

Regards

 

[Andrew Poulsom]

Your code (first 3 lines) worked for me in Excel 2003. Is the worksheet protected? What's in A29:H29?

 

[mr_baz]

worksheet is not protected. Cells A29 to H29 contains formulas that need to be copied until row 2050.

 

[Andrew Poulsom]

As I said your code worked for me. What is the text of the error?

 

[mr_baz]

Run-time error 1004

Autofill method of range class failed

 

[Norie]

What's in the cells you want to copy and the cells you want to autofill?

 

[mr_baz]

Different formulas in each colomn....formulas are all working properly.

here's an example

=IF(AND(StandardHardwareRequests!$Q5="4. NON BPPL",StandardHardwareRequests!$U5="4. NON BPPL"),StandardHardwareRequests!$F5,"")

many thanks to your help!

 

[Jonmo1]

Are there any merged cells in the range?

 

[mr_baz]

just try something...

I went to excel, I choose option, calculation and I put back automatic instead of manual and now it's working!

I put manual because there's a lot of calculation in this file and takes a while to calculate each time a data was entered.

Do you know why it wasn't working?

many thanks again!