Copy Similar Heading Sheet
Results 1 to 6 of 6

Thread: Copy Similar Heading Sheet

  1. #1
    New Member
    Join Date
    Feb 2014
    Location
    Dhaka Bangladesh
    Posts
    16
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Copy Similar Heading Sheet

    How can i copy the same heading row from multiple sheet to one sheet.

  2. #2
    Board Regular My Aswer Is This's Avatar
    Join Date
    Jul 2014
    Posts
    15,734
    Post Thanks / Like
    Mentioned
    28 Post(s)
    Tagged
    13 Thread(s)

    Default Re: Copy Similar Heading Sheet

    Can I assume the heading row is row One

    And you want to copy row(1) from Multiple sheets to one sheet.

    We need to know from what sheets do we copy from and what sheet do we copy to.

    We need specific details.

    And are you willing to use Vba or are you wanting this done with a formula if there is one.
    Be sure and always test this script on sample data the first time you use this as to avoid any problems with your data. Always trying to learn more and help others where I can. I'm using Excel 2013.
    Patience please Iím not perfect yet. "Memories are forever"

  3. #3
    New Member
    Join Date
    Feb 2014
    Location
    Dhaka Bangladesh
    Posts
    16
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Copy Similar Heading Sheet

    Quote Originally Posted by My Aswer Is This View Post
    Can I assume the heading row is row One

    And you want to copy row(1) from Multiple sheets to one sheet.

    We need to know from what sheets do we copy from and what sheet do we copy to.

    We need specific details.

    And are you willing to use Vba or are you wanting this done with a formula if there is one.
    There are no of row. None of the sheet row no is fixed but no of column is fixed. Usually there 30 sheet. Individual sheet rows are copied in a summary sheet

  4. #4
    Board Regular My Aswer Is This's Avatar
    Join Date
    Jul 2014
    Posts
    15,734
    Post Thanks / Like
    Mentioned
    28 Post(s)
    Tagged
    13 Thread(s)

    Default Re: Copy Similar Heading Sheet

    I asked for specifics. I see none in your last posting

    Your original post said:
    How can i copy the same heading row from multiple sheet to one sheet.
    Be sure and always test this script on sample data the first time you use this as to avoid any problems with your data. Always trying to learn more and help others where I can. I'm using Excel 2013.
    Patience please Iím not perfect yet. "Memories are forever"

  5. #5
    New Member
    Join Date
    Feb 2014
    Location
    Dhaka Bangladesh
    Posts
    16
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: Copy Similar Heading Sheet

    1)There are 30 sheet in the workbook.

    2) Each Sheet have similiar heading in row no (1)

    3) Each Sheet have unlimited data under the same heading. There may be 30 to 100 row for data.

    4) From Each sheet i want to copy in summay sheet which heading will be same and in row (1) and each sheet data will be put one after another.

  6. #6
    Board Regular
    Join Date
    Feb 2010
    Location
    London, UK
    Posts
    9,277
    Post Thanks / Like
    Mentioned
    24 Post(s)
    Tagged
    3 Thread(s)

    Default Re: Copy Similar Heading Sheet

    Majhar, appreciate English may not be your first language.

    Make a copy of your file and then try following.
    Code:
    Sub Data_to_Summary()
    
        Dim w           As Long
        Dim x           As Long
        Dim y           As Long
        Dim wSummary    As Worksheet: Set wSummary = Sheets("Summary")
        
        Application.ScreenUpdating = False
        
        For w = 1 To Worksheets.Count
            With Sheets(w)
                If .Name <> wSummary.Name Then
                    x = .Cells(.Rows.Count, 1).End(xlUp).Row - 1
                    y = .Cells(1, .Columns.Count).End(xlToLeft).Column
                    wSummary.Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(x, y).Value = .Cells(2, 1).Resize(x, y).Value
                    If w = Worksheets.Count Then wSummary.Cells(1, 1).Resize(, y) = .Cells(1, 1).Resize(, y).Value
                End If
            End With
        Next w
        
        Application.ScreenUpdating = True
        
       Set wSummary = Nothing
    
    End Sub
    If it doesn't work, explain with details what is wrong - pretend everyone is blind and can't see your PC screen.
    Last edited by JackDanIce; Jul 11th, 2019 at 04:51 AM.


Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •