Results 1 to 30 of 30

Automatically updating multiple sheets to a master sheet

Threaded View

  1. #1
    Registered User
    Join Date
    09-10-2010
    Location
    Wales
    MS-Off Ver
    Excel 2003
    Posts
    15

    Automatically updating multiple sheets to a master sheet

    Hi

    I am trying to create a master budget sheet which gets automatically updated when data is inputted into individual project worksheets. I have found this code which is apparently meant to do it but I can't seem to adapt it to my workbook. I tried changing the ranges but it came up as an error.

    Sub Summarize()
    Dim ws As Worksheet
    Dim lastRng As Range
    Application.ScreenUpdating = False 'speed up code
    ThisWorkbook.Sheets("Master List").Rows("2:65536").ClearContents 'clear
    For Each ws In ThisWorkbook.Worksheets
    Set lastRng = ThisWorkbook.Sheets("Master List").Range("b65536").End(xlUp).Offset(1, 0)
        Select Case ws.Name
            Case "Master List" 'exlude
            'do nothing
            Case Else
            ws.Activate
                    
            'copy data from individual sheets
            Range("A5", Range("X65536").End(xlUp)).Copy lastRng
        End Select
    Next
    Application.CutCopyMode = False 'clear clipboard
    Application.ScreenUpdating = True
    Sheets("Master List").Activate
    End Sub
    I have attached my workbook. any help would be much appreciated
    Attached Files Attached Files
    Last edited by welshgirl89; 10-07-2010 at 05:45 AM. Reason: add code tags for newbie pm warning

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