none
splitting data into separate sheets RRS feed

  • Question

  • I have a master sheet with the following headers

    name, D.O.B, ID, Term, ........etc

    I would like to split the data in the master sheet into separate sheets based on the Term. the Term column could have 4 different entries (Fall, Winter, Spring, Fall&Winter). if possible i would like Fall&Winter entries to be split and placed under Fall sheet and winter sheet. I would like this transfer of data to the new sheets to happen automatically

    I would also like be able to control what row the data entry begins on the new sheets. my sheets are already created and name according to the terms.

    Please and Thank you

    Tuesday, October 17, 2017 5:22 PM

Answers

  • Hi Hassan99,

    Thank you for sharing your file.
    I wrote a code in [Split data into separate sheets] button.
        

    Here is my code:
    Option Explicit
    
    ' ---[Split data into separete sheets] button
    Private Sub btn_SplitData_Click()
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        ' ---
        Dim rowSpring As Integer: rowSpring = 11  ' -- first row of Spring sheet
        Dim rowFall As Integer: rowFall = 11
        Dim rowWinter As Integer: rowWinter = 11
        Dim rowMaster As Integer    ' -- loop counter = row of Master
        Dim term As String          ' -- value of Term in Master
        ' ---
        For rowMaster = 15 To 1000  ' <<-- please modify according to your actual data
            term = Worksheets("Master").Cells(rowMaster, 10).Value
            If (term <> "") Then
                Select Case term
                    ' ---
                    Case Is = "Spring"
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Spring").Cells(rowSpring, 1)
                        Worksheets("Spring").Cells(rowSpring, 15).Value = term  ' --<< for debugging
                        rowSpring = rowSpring + 1
                    ' ---
                    Case Is = "Fall"
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Fall").Cells(rowFall, 1)
                        Worksheets("Fall").Cells(rowFall, 15).Value = term  ' --<< for debugging
                        rowFall = rowFall + 1
                    ' ---
                    Case Is = "Fall/Winter"
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Fall").Cells(rowFall, 1)
                        Worksheets("Fall").Cells(rowFall, 15).Value = term  ' --<< for debugging
                        rowFall = rowFall + 1
                        ' ---
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Winter").Cells(rowWinter, 1)
                        Worksheets("Winter").Cells(rowWinter, 15).Value = term  ' --<< for debugging
                        rowWinter = rowWinter + 1
                End Select
            End If
        Next
        ' ---
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        MsgBox "Splitting data into separete sheets: completed !!"
    End Sub
    
    Unnecessary statements (for debugging) are in this code.
    Please delete them or make them commented.

    Regards,

    Ashidacchi

    Thursday, October 19, 2017 5:38 AM
  • Hi Hassan99,

    I would like to confirm the meaning of "however i want the first 6 columns and the 13th"? 
    Does it mean that copy source is column (A-F) and column(P)? 

    If so, you can do it in two ways.
    (1) do "Copy & Paste" twice: firstly (A-F), secondly (P)
         This code is easy to read, but performance will get down a little. 
    (2) do it once, i.e. copy (A-F) and (P) as a whole.
         This code is somewhat tricky, is not easy to read.

    Here is (1):
    (1) do "Copy & Paste" twice: firstly (A-F), secondly (P)

    For rowMaster = 15 To 1000 ' <<-- please modify according to your actual data term = Worksheets("Master").Cells(rowMaster, 10).Value If (term <> "") Then Select Case term ' --- Case Is = "Spring" Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Spring").Cells(rowSpring, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Spring").Cells(rowSpring, 7) Worksheets("Spring").Cells(rowSpring, 15).Value = term ' --<< for debugging rowSpring = rowSpring + 1 ' --- Case Is = "Fall" Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Fall").Cells(rowFall, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Fall").Cells(rowSpring, 7) Worksheets("Fall").Cells(rowFall, 15).Value = term ' --<< for debugging rowFall = rowFall + 1 ' --- Case Is = "Fall/Winter" Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Fall").Cells(rowFall, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Fall").Cells(rowSpring, 7) Worksheets("Fall").Cells(rowFall, 15).Value = term ' --<< for debugging rowFall = rowFall + 1 ' --- Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Winter").Cells(rowWinter, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Winter").Cells(rowSpring, 7) Worksheets("Winter").Cells(rowWinter, 15).Value = term ' --<< for debugging rowWinter = rowWinter + 1 End Select End If Next ' ----


    I do not show code (2). It can be done, but I do not make it, i.e. it's only in my head.

    [Note]
    1. You did not specify where to be pasted, so I pasted it into continuous columns (A-G).
        You should specify pasted area (where to be pasted).

    2. It seems some Tables are there. It interferes code from working as I expect.

        (code) Dim lastRow As Integer: lastRow = Range("A65536").End(xlUp).Row
        The value of "lastRow" turns to 1000. It maybe causes from Table. 

    Regards,


    Ashidacchi

    P.S.
      I suppose the first row of column header is better to be uniformed between all sheets, i.e. column header in sheet "Spring", "Fall", and "Winter" is placed in row 14 (= "Master"). You can hide unnecessary rows.
    • Edited by Ashidacchi Saturday, October 28, 2017 12:24 AM
    • Marked as answer by Hassan99 Tuesday, October 31, 2017 2:02 PM
    Friday, October 27, 2017 11:52 PM

All replies

  • Hi Hassan99,

    Share your file via cloud storage such as OneDrive, Dropbox, etc, and I will try to do what you want.
    (To create a sample data/sheet is time-consuming task for me.)
    Remember to modify your private/important data adequately before sharing.

    Regards,

    Ashidacchi

    Wednesday, October 18, 2017 3:17 AM
  • It is highly unlikely that someone will write an entire program for you for free and if anyone offers then you should be very, very nice to them and follow their instructions very closely.


    Sam Hobbs
    SimpleSamples.Info

    Wednesday, October 18, 2017 5:11 AM
  • Hi Hassan99,

    you had mentioned that,"if possible i would like Fall&Winter entries to be split and placed under Fall sheet and winter sheet."

    do you mean that there will be only 3 sheets (1) Fall (2) Winter (3) Spring.

    and you have some record with value "Fall & Winter".

    and you want to split them in Fall Sheet and Winter Sheet.

    but you did not mentioned that how to decide whether record will be goes to Fall Sheet or Winter Sheet.

    so you need to provide complete details regarding how to decide which record is related to which sheet.

    other then that you can refer code below. which can able to split the data according to column values.

    you can my sheet below.

    after running the code below. records are copied to particular sheets.

    Sub SplitData()
        Const NameCol = "A"
        Const HeaderRow = 1
        Const FirstRow = 2
        Dim SrcSheet As Worksheet
        Dim TrgSheet As Worksheet
        Dim SrcRow As Long
        Dim LastRow As Long
        Dim TrgRow As Long
        Dim Student As String
        Application.ScreenUpdating = False
        Set SrcSheet = ActiveSheet
        LastRow = SrcSheet.Cells(SrcSheet.Rows.Count, NameCol).End(xlUp).Row
        For SrcRow = FirstRow To LastRow
            Student = SrcSheet.Cells(SrcRow, NameCol).Value
            Set TrgSheet = Nothing
            On Error Resume Next
            Set TrgSheet = Worksheets(Student)
            On Error GoTo 0
            If TrgSheet Is Nothing Then
                Set TrgSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
                TrgSheet.Name = Student
                SrcSheet.Rows(HeaderRow).Copy Destination:=TrgSheet.Rows(HeaderRow)
            End If
            TrgRow = TrgSheet.Cells(TrgSheet.Rows.Count, NameCol).End(xlUp).Row + 1
            SrcSheet.Rows(SrcRow).Copy Destination:=TrgSheet.Rows(TrgRow)
        Next SrcRow
        Application.ScreenUpdating = True
    End Sub

    Reference:

    Macro Code for Splitting one sheet data into multiples sheets

    so you can see that this code can able to split the data in to sheets.

    now further you can implement your logic to distinguish the data of that "Fall & Winter" to decide in which sheet particular record need to be move.

    you can modify the code according to your requirement.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Wednesday, October 18, 2017 8:22 AM
    Moderator
  • https://1drv.ms/x/s!AtM9F0Ei5wg7hAdycR_Lgws__AZQ

    Thanks for your help, i greatly appreciate it.

    Just to reiterate more clearly what i want to do 

    I want to be able to enter the data on the "master" sheet and have that data sorted and automatically duplicated on 3 separate sheets ("Spring", "Fall" and "Winter") based on the the "Term" column. 

    For the "Term" option of "Fall/Winter", i want to have that row duplicated on both the "Fall" and "Winter" sheets.

    Rather than having the entire row duplicated in the 3 other sheets, I would only need the following columns 

    Last name, First name, DOB, Student ID, Status, Course load. 

    I filled out the "master" sheet with samples to give you an idea of how it would look.

    Thanks once again 

    Wednesday, October 18, 2017 4:37 PM
  • Excel 2016 Pro Plus with Power Query (aka Get & Transform)
    http://www.mediafire.com/file/0vv1na035gfcit0/10_19_17.xlsx

    Thursday, October 19, 2017 2:47 AM
  • Hi Hassan99,

    I try to modify the code and it can fulfil your requirement.

    Sub SplitData()
        Const NameCol = "J"
        Const HeaderRow = 14
        Const FirstRow = 15
        Dim SrcSheet As Worksheet
        Dim TrgSheet As Worksheet
        Dim SrcRow As Long
        Dim LastRow As Long
        Dim TrgRow As Long
        Dim Student As String
        Application.ScreenUpdating = False
        Set SrcSheet = ActiveSheet
        LastRow = SrcSheet.Cells(SrcSheet.Rows.Count, NameCol).End(xlUp).Row
        For SrcRow = FirstRow To LastRow
            Student = SrcSheet.Cells(SrcRow, NameCol).Value
            If Student = "Fall/Winter" Then
                        Set TrgSheet = Nothing
                        On Error Resume Next
                        Set TrgSheet = Worksheets("Fall")
                        On Error GoTo 0
                        If TrgSheet Is Nothing Then
                            Set TrgSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
                            TrgSheet.Name = Student
                            SrcSheet.Rows(HeaderRow).Copy Destination:=TrgSheet.Rows(HeaderRow)
                        End If
                        TrgRow = TrgSheet.Cells(TrgSheet.Rows.Count, NameCol).End(xlUp).Row + 1
                        SrcSheet.Rows(SrcRow).Copy Destination:=TrgSheet.Rows(TrgRow)
    
     
                         Set TrgSheet = Nothing
                        On Error Resume Next
                        Set TrgSheet = Worksheets("Winter")
                        On Error GoTo 0
                        If TrgSheet Is Nothing Then
                            Set TrgSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
                            TrgSheet.Name = Student
                            SrcSheet.Rows(HeaderRow).Copy Destination:=TrgSheet.Rows(HeaderRow)
                        End If
                        TrgRow = TrgSheet.Cells(TrgSheet.Rows.Count, NameCol).End(xlUp).Row + 1
                        SrcSheet.Rows(SrcRow).Copy Destination:=TrgSheet.Rows(TrgRow)
            Else
                        Set TrgSheet = Nothing
                        On Error Resume Next
                        Set TrgSheet = Worksheets(Student)
                        On Error GoTo 0
                        If TrgSheet Is Nothing Then
                            Set TrgSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
                            TrgSheet.Name = Student
                            SrcSheet.Rows(HeaderRow).Copy Destination:=TrgSheet.Rows(HeaderRow)
                        End If
                        TrgRow = TrgSheet.Cells(TrgSheet.Rows.Count, NameCol).End(xlUp).Row + 1
                        SrcSheet.Rows(SrcRow).Copy Destination:=TrgSheet.Rows(TrgRow)
                        End If
            
            
           
        Next SrcRow
        Application.ScreenUpdating = True
    End Sub

    Note:

    you need to change the term name from "Fall/Winter" to "Fall Winter" or you can add the sign that is supported to include in sheet name. because when it will try to create a sheet then it can raise the error.

    other thing you need to modify the workbook.

    like it will paste the value in sheet after the colored rows so you can try to change it.

    you need to remove that colored rows. because Excel understand it as used rows. so it will try to loop through that empty rows and can raise the error as I mentioned above.

    currently it is copying whole row. you can try to modify the code to copy particular cell within that row.

    so I set the code to fulfil your requirement but you also need to understand it and make changes to your workbook to successfully run it.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.


    Thursday, October 19, 2017 5:08 AM
    Moderator
  • Hi Hassan99,

    Thank you for sharing your file.
    I wrote a code in [Split data into separate sheets] button.
        

    Here is my code:
    Option Explicit
    
    ' ---[Split data into separete sheets] button
    Private Sub btn_SplitData_Click()
        Application.ScreenUpdating = False
        Application.Calculation = xlCalculationManual
        ' ---
        Dim rowSpring As Integer: rowSpring = 11  ' -- first row of Spring sheet
        Dim rowFall As Integer: rowFall = 11
        Dim rowWinter As Integer: rowWinter = 11
        Dim rowMaster As Integer    ' -- loop counter = row of Master
        Dim term As String          ' -- value of Term in Master
        ' ---
        For rowMaster = 15 To 1000  ' <<-- please modify according to your actual data
            term = Worksheets("Master").Cells(rowMaster, 10).Value
            If (term <> "") Then
                Select Case term
                    ' ---
                    Case Is = "Spring"
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Spring").Cells(rowSpring, 1)
                        Worksheets("Spring").Cells(rowSpring, 15).Value = term  ' --<< for debugging
                        rowSpring = rowSpring + 1
                    ' ---
                    Case Is = "Fall"
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Fall").Cells(rowFall, 1)
                        Worksheets("Fall").Cells(rowFall, 15).Value = term  ' --<< for debugging
                        rowFall = rowFall + 1
                    ' ---
                    Case Is = "Fall/Winter"
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Fall").Cells(rowFall, 1)
                        Worksheets("Fall").Cells(rowFall, 15).Value = term  ' --<< for debugging
                        rowFall = rowFall + 1
                        ' ---
                        Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _
                        Worksheets("Winter").Cells(rowWinter, 1)
                        Worksheets("Winter").Cells(rowWinter, 15).Value = term  ' --<< for debugging
                        rowWinter = rowWinter + 1
                End Select
            End If
        Next
        ' ---
        Application.ScreenUpdating = True
        Application.Calculation = xlCalculationAutomatic
        MsgBox "Splitting data into separete sheets: completed !!"
    End Sub
    
    Unnecessary statements (for debugging) are in this code.
    Please delete them or make them commented.

    Regards,

    Ashidacchi

    Thursday, October 19, 2017 5:38 AM
  • Hi Ashidacchi

    thanks for your help so far. I must admit i have never used code in excel before and my attempts to get this running have failed so far. any chance you can provide a step-by-step explanation of how i load this code into excel and get it operational?


    Friday, October 20, 2017 5:14 PM
  • Hi Hassan99,

    You should not throw all things at me. I'm not a school teacher and can't explain all. 
    You must know something, and do not know something.
    Please specify what you don't know, clarify your question.

    Regards,

    Ashidacchi

    Friday, October 20, 2017 9:09 PM
  • Yeah, Hassan99. Have you tried to figure it out yourself? What have you tried to get the macro into Excel?

    Do you have the Developer toolbar? If not then you need to get that to show. It should be easy to figure out from looking at the Developer toolbar. In the Developer toolbar at the far left is "Visual Basic"; click that. You might need to save the workbook as macro-enabled; macro-enabled workbooks have a xlsm extension.



    Sam Hobbs
    SimpleSamples.Info

    Friday, October 20, 2017 9:18 PM
  • Yes i tried.

    I brought up the developers toolbar

    created a module 

    inputted the code provided

    I just can't get the macro to to run. I don't know what i'm doing wrong 

    Friday, October 20, 2017 9:26 PM
  • Hi Hassan99,

    In your [Module1], change "Private Sub CommandButton1_Click()" to
    "Sub myMacro", and run it.

    Regards,

    Ashidacchi



    • Edited by Ashidacchi Friday, October 20, 2017 9:42 PM
    Friday, October 20, 2017 9:41 PM
  • You might need to rename the macro as Ashidacchi says but the important thing is that you can put the cursor somewhere in the sub you want to execute then in the toolbar click on the Green arrow that points to the right.


    Sam Hobbs
    SimpleSamples.Info

    Friday, October 20, 2017 9:46 PM
  • That worked thanks. my last question is this 

    is there a way to have the macro run automatically so that it splits the inputted data without the need to have to click on the macro to run?

    Friday, October 20, 2017 9:51 PM
  • Hi Hassan99,

    You should specify WHEN the macro should be executed automatically.

    If it is when the Book is opened, you can write code like this:

    (A) in [ThisWorkbook], 
        Private Sub Workbook_Open()
          ... my code provided before ...
        End Sub

    (B) in standard Module ([Module1] in your case),
        Private Sub Suto_Open()
          ... my code provided before ...
        End Sub

    Regards,

    Ashidacchi

    Friday, October 20, 2017 10:04 PM
  • Hi Hassan99,

    How is your issue? Has it been resolved?
    I hope you will post.

    Regards,

    Ashidacchi

    • Marked as answer by Hassan99 Monday, October 23, 2017 4:49 PM
    • Unmarked as answer by Hassan99 Monday, October 23, 2017 4:50 PM
    Friday, October 20, 2017 11:30 PM
  • Hi Hassan99,

    from your last post , I can see that your issue is solved now.

    but you did not mark the answer.

    this thread is still open.

    I suggest you to mark appropriate suggestion as an answer which helped you to solve your issue.

    if you do mark the answer then this thread will remain open.

    if you have any further question then let us know about that.

    we will try to provide further suggestions to solve the issue.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Monday, October 23, 2017 1:01 AM
    Moderator
  • Hi Guys,

    I would like to make 1 last adjustment to the code. I was hoping you guys could help

    the code provided by Ashidacchi currently only copies the first 6 columns, which is what i want. however i want to adjust it so that it copies the first 6 columns and the 13th column specifically? 

    Thanks

    Thursday, October 26, 2017 5:04 PM
  • Hi Hassan99,

    I hope you will think it by yourself. It will make you improved. Only copy & paste is not a way you should do.
    I will provide a hint: Read some lines describing copy source ("Master" worksheet).Good Luck!!

    Regards,

    Ashidacchi

    Friday, October 27, 2017 12:03 AM
  • Hi Ashidacchi,

    I know that this line of code is the one that responsible for copying the first 6 columns 

    Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _

    and if i wanted to copy the first 5 or 10 columns it would be easy. i would just replace the 6 with the number of columns i want to copy. however i want the first 6 columns and the 13th. I don't know the syntax necessary to edit the code in this case. 

    unfortunately unlike you, my coding skill are clearly sub par.

    Regards

    Hassan

    Friday, October 27, 2017 4:00 PM
  • Hi Hassan99,

    I would like to confirm the meaning of "however i want the first 6 columns and the 13th"? 
    Does it mean that copy source is column (A-F) and column(P)? 

    If so, you can do it in two ways.
    (1) do "Copy & Paste" twice: firstly (A-F), secondly (P)
         This code is easy to read, but performance will get down a little. 
    (2) do it once, i.e. copy (A-F) and (P) as a whole.
         This code is somewhat tricky, is not easy to read.

    Here is (1):
    (1) do "Copy & Paste" twice: firstly (A-F), secondly (P)

    For rowMaster = 15 To 1000 ' <<-- please modify according to your actual data term = Worksheets("Master").Cells(rowMaster, 10).Value If (term <> "") Then Select Case term ' --- Case Is = "Spring" Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Spring").Cells(rowSpring, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Spring").Cells(rowSpring, 7) Worksheets("Spring").Cells(rowSpring, 15).Value = term ' --<< for debugging rowSpring = rowSpring + 1 ' --- Case Is = "Fall" Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Fall").Cells(rowFall, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Fall").Cells(rowSpring, 7) Worksheets("Fall").Cells(rowFall, 15).Value = term ' --<< for debugging rowFall = rowFall + 1 ' --- Case Is = "Fall/Winter" Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Fall").Cells(rowFall, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Fall").Cells(rowSpring, 7) Worksheets("Fall").Cells(rowFall, 15).Value = term ' --<< for debugging rowFall = rowFall + 1 ' --- Worksheets("Master").Range(Cells(rowMaster, 1), Cells(rowMaster, 6)).Copy _ Worksheets("Winter").Cells(rowWinter, 1) Worksheets("Master").Cells(rowMaster, 13).Copy _ Worksheets("Winter").Cells(rowSpring, 7) Worksheets("Winter").Cells(rowWinter, 15).Value = term ' --<< for debugging rowWinter = rowWinter + 1 End Select End If Next ' ----


    I do not show code (2). It can be done, but I do not make it, i.e. it's only in my head.

    [Note]
    1. You did not specify where to be pasted, so I pasted it into continuous columns (A-G).
        You should specify pasted area (where to be pasted).

    2. It seems some Tables are there. It interferes code from working as I expect.

        (code) Dim lastRow As Integer: lastRow = Range("A65536").End(xlUp).Row
        The value of "lastRow" turns to 1000. It maybe causes from Table. 

    Regards,


    Ashidacchi

    P.S.
      I suppose the first row of column header is better to be uniformed between all sheets, i.e. column header in sheet "Spring", "Fall", and "Winter" is placed in row 14 (= "Master"). You can hide unnecessary rows.
    • Edited by Ashidacchi Saturday, October 28, 2017 12:24 AM
    • Marked as answer by Hassan99 Tuesday, October 31, 2017 2:02 PM
    Friday, October 27, 2017 11:52 PM
  • Thanks, hopefully i won't bother you again with this.
    • Edited by Hassan99 Monday, October 30, 2017 3:35 PM
    Monday, October 30, 2017 3:35 PM
  • Has your issue been resolved?

    Ashidacchi

    Monday, October 30, 2017 10:08 PM