VBA: Simple Table Copy & Paste

[ExcelJacob]

Using Excel 2013 on current Windows: I need to copy an entire table ("Table1") and paste it to a range starting in "I2". I've tried ActiveSheet.ListObjects("Table1").Range.Copy ("I2"). It doesn't work. I can't paste the values only because I need to use and alter the formulas later. I've also tried other iterations of range.copy to no avail. I'm getting error message "Copy method of Range class failed."

Thank you for your help.

 

[njimack]

Range("Table1[#All]").Copy Range("I2")

 

[gallen]

You haven't qualified ("I2") in anyway

The correct line would be:

[COLOR=#333333] ActiveSheet.ListObjects("Table1").Range.Copy [/COLOR][COLOR=#333333]ActiveSheet.Range[/COLOR][COLOR=#333333]("I2")[/COLOR]

 

[My Aswer Is This]

Try this:

ActiveSheet.Range("Table1").Copy Destination:=ActiveSheet.Range("I2")

 

[gallen]

I think all solutions work here

 

[ExcelJacob]

Thank you guys! That worked. My next problem comes from the Macro recorder. I get "Subscript out of range" error message from


'ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleMedium6"


I'm just trying to make the two tables different colors really. In the end, I need a black table, blue table, orange table, and yellow table to represent different vendors.

 

[ExcelJacob]

Do I need to post this second question in a new thread?

Thank you guys! That worked. My next problem comes from the Macro recorder. I get "Subscript out of range" error message from


'ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleMedium6"


I'm just trying to make the two tables different colors really. In the end, I need a black table, blue table, orange table, and yellow table to represent different vendors.