Run time error '1004' application-defined or object-defined error

[DSEIDEN76]

I'm getting the run time error at the point of Auto fill code (noted in red below). I've used this code before with no issues. The Range seems to be defined correctly and the last row was defined earlier in the macro.


Sheets("DC_ORDER").Select
Range("G2").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-3]<=RC[10],""ORDER"",""XXX"")"
Range("G2").Select
Selection.AutoFill Destination:=Range("G2:G" & Cells(Rows.Count, "A").End(x1Up).Row)


With ActiveSheet

LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:AN" & LastRow).Select
End With

 

[Michael M]

just use

Sheets("DC_ORDER").Range("G2:G" & Sheets("DC_ORDER").Cells(Rows.Count, "A").End(xlUp).Row).Formula = "=IF(D2<=Q2,""ORDER"",""XXX"")"

no need to select the sheet OR the range !!

 

[Trebor76]

Hi DESEIDEN76,

Welcome to MrExcel!!

Just for reference the number one (bolded) in this line of code...

Selection.AutoFill Destination:=Range("G2:G" & Cells(Rows.Count, "A").End(x[B]1[/B]Up).Row)

...needs to be a l as in Excel:

Selection.AutoFill Destination:=Range("G2:G" & Cells(Rows.Count, "A").End(x[B]l[/B]Up).Row)

That said, Michael's nifty one-liner is the way to go IMO.

HTH

Robert