Results 1 to 5 of 5

ActiveSheet.Paste Link:= True Does Not Work After Awhile - 1004 MS Excel cannot paste data

Threaded View

  1. #1
    Registered User
    Join Date
    06-25-2013
    Location
    Minnesota
    MS-Off Ver
    Excel 2010
    Posts
    10

    ActiveSheet.Paste Link:= True Does Not Work After Awhile - 1004 MS Excel cannot paste data

    I have written a large macro to take information across a variable number of rows and columns, copy each set of rows to a new appropriately named worksheet, then copy the values on the new worksheet so that the master list then contains links to the sub-worksheets. So, in other words, assume a file with 100 records comprised of 5 companies with 20 records per company. My macro creates 5 new worksheets - each with the name of the company. The information from the original worksheet is pasted into the respective worksheets. But then it is copied back to the original master spreadsheet as links. So if anyone updates anything on the 5 individual company spreadsheets it will automatically be saved to the master. Please note that this macro works just fine if I just do a simple pasting of values instead of a paste link.

    Below is my code. It works until it seems to poop out after x no. of records. [I have also attached the Excel file as well.]

    I tried a few ideas I found on the web such as disabling GoToMyPC or gotoassist - but I do not think I have either on my machine. I also experimented a bit with removing Select statements as well. I admit to being rusty with the VBA programming. Any suggestions are welcome and appreciated. Happy to be a part of the forum.

    Thank you.

    Zach Feinstein
    zfeinstein@isgmn.com
    <Code below>

    Sheets("Sheet1").Select
    ActiveSheet.Range(Cells(RowNum, 1), Cells(RowNum, LastCol + (Attempt * 3))).Select
    Selection.Copy
    Sheets(Left(CoName, 30)).Select
    Range("A1").Offset(CoRowNum - 1, 0).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    Selection.Copy
    Sheets("Sheet1").Select
    ActiveSheet.Range(Cells(RowNum, 1), Cells(RowNum, LastCol + (Attempt * 3))).Select
    ActiveSheet.Paste Link:=True
    Application.CutCopyMode = False

    CoRowNum = CoRowNum + 1
    RowNum = RowNum + 1
    Loop
    Sheets("Sheet1").Select
    Range("A1").Select
    Attached Files Attached Files

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1