Run-time error '1004': AutoFill method of Range class failed
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 |
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 |
Run-time error '1004': AutoFill method of Range class failed
Hello Sheeloo:
I've replaced your section into my macro and still getting the same error. Thanks Monika "Sheeloo" wrote: 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 |
Run-time error '1004': AutoFill method of Range class failed
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. "murkaboris" wrote: Hello Sheeloo: I've replaced your section into my macro and still getting the same error. Thanks Monika "Sheeloo" wrote: 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 |
All times are GMT +1. The time now is 11:49 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com