+ Reply to Thread
Results 1 to 3 of 3

Transferring information from a master worksheet into secondary worksheets.

Hybrid View

  1. #1
    Registered User
    Join Date
    03-27-2012
    Location
    Sulphur Springs, TX
    MS-Off Ver
    Excel 2010
    Posts
    7

    Transferring information from a master worksheet into secondary worksheets.

    I have a spreadsheet set up that we use to keep track of our job numbers.

    Each job has the job number, date started, description, etc. across the worksheet in a row so I need to copy the information for the entire row.

    I want to set it up so that the first column is the project manager's initials and the entire row is copied/transferred to a secondary worksheet for each Project Manager. I update this spreadsheet on a daily basis so I need it to feed the information to the secondary spreadsheets as I update.

    Is there a way to do this that is fairly simple? I am not a programmer and have no idea how to work with macros. I posted this before and got a code to use, but it didn't include updating it every day.
    Last edited by NFregia; 04-05-2012 at 12:20 PM. Reason: Add information

  2. #2
    Registered User
    Join Date
    03-27-2012
    Location
    Sulphur Springs, TX
    MS-Off Ver
    Excel 2010
    Posts
    7

    Re: Transferring information from a master worksheet into secondary worksheets.

    Here is an example of the file.
    Attached Files Attached Files

  3. #3
    Forum Expert
    Join Date
    12-15-2009
    Location
    Chicago, IL
    MS-Off Ver
    Microsoft Office 365
    Posts
    3,177

    Re: Transferring information from a master worksheet into secondary worksheets.

    Try this. You might need to edit the columns of the sub-sheets since the columns on those sheets are not 100% match to the master.

    Dim wsMaster As Worksheet: Set wsMaster = Worksheets("2012 Job List")
    Dim i As Long, j As Long, x As Long
    
    For i = 1 To Sheets.Count
        If Worksheets(i).Name <> "2012 Job List" Then
            x = 5
            With Worksheets(i)
                For j = 5 To wsMaster.Cells(Rows.Count, 1).End(xlUp).Row
                    If wsMaster.Cells(j, 1) = Worksheets(i).Name Then
                        wsMaster.Rows(j).Copy Worksheets(i).Rows(x)
                        x = x + 1
                    End If
                Next j
            End With
        End If
    Next i
    Attached Files Attached Files

+ Reply to Thread

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