Results 1 to 2 of 2

VBA code to consolidate coloumns in muliple sheets into multiple coloumns in one sheet?

Threaded View

BrettRCourtney VBA code to consolidate... 03-12-2013, 06:50 PM
JBeaucaire Re: VBA code to consolidate... 03-13-2013, 09:17 AM
  1. #1
    Registered User
    Join Date
    03-12-2013
    Location
    Palo Alto, CA
    MS-Off Ver
    Excel 2010
    Posts
    20

    VBA code to consolidate coloumns in muliple sheets into multiple coloumns in one sheet?

    I have multuple sheets in one workbook. I want to consolidate F1:F47 in each of the 4 sheets and list them in coloumns in the Summary sheet. I used the code below and I am able to get the results but they are sacked into one coloumn.



    Sub SummarizeSheets()
    Dim ws As Worksheet
    
    Application.ScreenUpdating = False
    Sheets("Summary").Activate
    
    For Each ws In Worksheets
        If ws.Name <> "Summary" Then
            ws.Range("F1:F47").Copy
            ActiveSheet.Paste Range("A65536").End(xlUp).Offset(2, 0)
        End If
    Next ws
    End Sub

    Please help

    Thanks,
    Brett
    Last edited by JBeaucaire; 03-13-2013 at 09:15 AM. Reason: Added code tags, as per forum rules. Don't forget!

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