Excel Vba: Sub or Function not defined

Question

I have the following code

Sub CopyMacro()
'
' CopyData Macro
'
    Dim tableName As ListObject
    Set tableName = Worksheets("ToCopySheet").ListObjects(1)
    ListObjects("Table1").ListColumns("TaskUID").DataBodyRange.Copy tableName.ListColumns("TaskUID").DataBodyRange

End Sub

When I try to run this I get a compile error. Sub or Function not defined. I do not understand the issue here as I don't see anything wrong in this syntax.

The thing I'm trying to accomplish is to copy one column from one table to another table column in another sheet (ToCopySheet).

Could someone please help resolve this error

Storax · Accepted Answer · 2018-02-11 13:48:57Z

3

Maybe you mean

Sub CopyMacro()
'
' CopyData Macro
'
    Dim tableName As ListObject
    Set tableName = Worksheets("ToCopySheet").ListObjects(1)

    Dim ws As Worksheet
    Set ws = ActiveSheet
    ws.ListObjects("Table1").ListColumns("TaskUID").DataBodyRange.Copy tableName.ListColumns("TaskUID").DataBodyRange

End Sub

answered Feb 11, 2018 at 13:48

Storax

12.7k3 gold badges21 silver badges36 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Prashant Balasubramanyan Over a year ago

Thank you for the answer. I am getting a subscript out of range error when I use this code

Storax Over a year ago

I do not know your excel sheet but you need to have a table1 with a column TaskUID and on your second sheet "ToCopySheet" the first table should also contain a column "TaskUID"

Prashant Balasubramanyan Over a year ago

no sorry, it was my mistake with the table names etc. now its resolved

Collectives™ on Stack Overflow

Excel Vba: Sub or Function not defined

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related