| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Run-time error '1004': AutoFill method of Range class failed | Excel Discussion (Misc queries) | |||
| Error 1004 Copy method of worksheet class failed | Excel Discussion (Misc queries) | |||
| Runtime 1004 error -- insert method of range class failed. | Excel Discussion (Misc queries) | |||
| Run-Time error '1004' : Select method of Range class failed | Excel Discussion (Misc queries) | |||
| Run-time error "1004" Select method of range class failed | Excel Discussion (Misc queries) | |||
Linear Mode
