Run-time error '1004': AutoFill method of Range class failed

[murkaboris]

Hello:

I wrote a macro that while being recorded returned the correct values, but
when I try to run it I'll get the run-time error '1004'.
Here is the excerpt from the macro that I'm trying to loop to run on
multiple worksheets of the workbook.

ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R3C1,'[ATF master file.xls]Orders OP'!R3C4:R55C15,2,FALSE)"
Selection.AutoFill Destination:=Range("C9:C16"), Type:=xlFillDefault
Range("C9:C16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With

The problematic row is the one starting with "Selection.AutoFill"....
I'm pretty new to macros so although I can record a simple one, I'm unable
to correct it.

Please help.
Thank you.

Monika

 

[murkaboris]

Hello Sheeloo:

I've replaced your section into my macro and still getting the same error.
Thanks

Monika

I have added ActiveCell.Select to the macro shared by you..
assuming you want to copy the formula in A1 to C9:C16
Try
Sub t()
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R3C1,Sheet2!R3C4:R55C15,2,FALSE)"
ActiveCell.Select
Selection.AutoFill Destination:=Range("C9:C16"), Type:=xlFillDefault
Range("C9:C16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone

End Sub
--
Pl click the YES button
(if you see it - don''''''''t worry if you don''t),
if this answer was helpful.

Hello:

I wrote a macro that while being recorded returned the correct values, but
when I try to run it I'll get the run-time error '1004'.
Here is the excerpt from the macro that I'm trying to loop to run on
multiple worksheets of the workbook.

ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R3C1,'[ATF master file.xls]Orders OP'!R3C4:R55C15,2,FALSE)"
Selection.AutoFill Destination:=Range("C9:C16"), Type:=xlFillDefault
Range("C9:C16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With

The problematic row is the one starting with "Selection.AutoFill"....
I'm pretty new to macros so although I can record a simple one, I'm unable
to correct it.

Please help.
Thank you.

Monika

 

[Sheeloo]

Sorry for incomplete instructions and testing...

Use your macro...but you HAVE to be in Cell C9 before running the macro...

--
Pl click the YES button
(if you see it - don''''''''t worry if you don''t),
if this answer was helpful.

Hello Sheeloo:

I've replaced your section into my macro and still getting the same error.
Thanks

Monika

I have added ActiveCell.Select to the macro shared by you..
assuming you want to copy the formula in A1 to C9:C16
Try
Sub t()
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R3C1,Sheet2!R3C4:R55C15,2,FALSE)"
ActiveCell.Select
Selection.AutoFill Destination:=Range("C9:C16"), Type:=xlFillDefault
Range("C9:C16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone

End Sub
--
Pl click the YES button
(if you see it - don''''''''t worry if you don''t),
if this answer was helpful.

Hello:

I wrote a macro that while being recorded returned the correct values, but
when I try to run it I'll get the run-time error '1004'.
Here is the excerpt from the macro that I'm trying to loop to run on
multiple worksheets of the workbook.

ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R3C1,'[ATF master file.xls]Orders OP'!R3C4:R55C15,2,FALSE)"
Selection.AutoFill Destination:=Range("C9:C16"), Type:=xlFillDefault
Range("C9:C16").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With

The problematic row is the one starting with "Selection.AutoFill"....
I'm pretty new to macros so although I can record a simple one, I'm unable
to correct it.

Please help.
Thank you.

Monika