Run-time error '1004': AutoFill method of Range class failed
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.
"murkaboris" wrote:
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
|