Results 1 to 20 of 20

Copy from multiple sheets to one

Threaded View

  1. #1
    Registered User
    Join Date
    07-08-2013
    Location
    denmark
    MS-Off Ver
    Excel 2010
    Posts
    24

    Copy from multiple sheets to one

    Hi
    I would like to copy from multiple sheets to one "summary".
    I would like to copy sheet “store1”, “store2”, and “store2” to my sheet“overview”. So we can have a complete overview for the sheets.

    My code is below...but its pasting the values to the right? I want it to paste i down.

    Does any know how? It would a great help for me.



    Sub ()
        Dim ws As Worksheet
        Dim j As Integer, col As Integer
    
        Application.ScreenUpdating = False
    
        Sheets("Summary").Activate
    
    
        For Each ws In Worksheets
            If ws.Name <> "Summary" Then
                ws.Range("A1:E6").Copy
                col = Worksheets("Summary").Range("IV1").End(xlToLeft).Column + 1
                Worksheets("Summary").Cells(1, col).PasteSpecial xlPasteValues
                Application.CutCopyMode = False
    
            End If
    
        Next ws
        Columns(1).Delete
        Range("A1").Activate
        Application.ScreenUpdating = True
    End Sub
    Last edited by arlu1201; 07-08-2013 at 02:23 PM. Reason: Use code tags in future.

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