Results 1 to 3 of 3

Macro to copy data from one worksheet and paste to another worksheet

Threaded View

  1. #1
    Registered User
    Join Date
    04-24-2012
    Location
    Philadelphia
    MS-Off Ver
    Excel 2003
    Posts
    10

    Macro to copy data from one worksheet and paste to another worksheet

    Hopefully I coded this correctly...if not, I apologize. Still becoming familiar with the forum.

    I'm not sure if this is possible, so I figured I'd ask and see. I'm attempting to create a macro to copy data from one worksheet and paste to another worksheet without having the other worksheet open. Is this possible and if so, how do I do it? Here is a shot of my macro as it stands now, however I would need to have both worksheets open in order for the macro to work correctly:

    Sub LADBBulkUpload()
    '
    ' LADBBulkUpload Macro
    ' Macro recorded 1/25/2013 by Rob MIller
    '
    
    '
        Range("C2").Select
        ActiveWindow.SmallScroll Down:=-21
        Sheets("LADB Bulk Upload").Select
        Range("A2:AX2").Select
        ActiveWindow.ScrollColumn = 35
        ActiveWindow.ScrollColumn = 34
        ActiveWindow.ScrollColumn = 33
        ActiveWindow.ScrollColumn = 31
        ActiveWindow.ScrollColumn = 29
        ActiveWindow.ScrollColumn = 27
        ActiveWindow.ScrollColumn = 25
        ActiveWindow.ScrollColumn = 23
        ActiveWindow.ScrollColumn = 20
        ActiveWindow.ScrollColumn = 18
        ActiveWindow.ScrollColumn = 13
        ActiveWindow.ScrollColumn = 11
        ActiveWindow.ScrollColumn = 9
        ActiveWindow.ScrollColumn = 7
        ActiveWindow.ScrollColumn = 5
        ActiveWindow.ScrollColumn = 4
        ActiveWindow.ScrollColumn = 2
        ActiveWindow.ScrollColumn = 1
        Rows("2:2").Select
        Selection.Copy
        Windows("VA Bulk Upload Template.xls").Activate
        Range("A2").Select
        ActiveSheet.Paste
        Rows("2:2").Select
        Application.CutCopyMode = False
        Selection.Insert Shift:=xlDown
        Range("A2").Select
        Windows("LADB Test File - LA Book.xls").Activate
        Range("A2").Select
        Sheets("LA Mtr").Select
        Range("C2").Select
    End Sub
    Last edited by robertmiller; 01-30-2013 at 04:18 PM.

Thread Information

Users Browsing this Thread

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

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