ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   copy tabs to one tab (https://www.excelbanter.com/excel-worksheet-functions/142809-copy-tabs-one-tab.html)

Little pete

copy tabs to one tab
 
i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent

Don Guillett

copy tabs to one tab
 
This can be done with a macro that loops for each sheet and copying to the
next available row on the master.
BUT, is there some reason you couldn't have had all on one sheet to start
and just use datafilterauto filter to get the breakdown?

--
Don Guillett
SalesAid Software

"LITTLE PETE" <LITTLE
wrote in message
...
i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent



AKphidelt

copy tabs to one tab
 
Do you know VBA? Because you can use something like this...

Sub Consol()

For i = 2 to Sheets.Count

Sheets(i).Activate
Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy
Sheets(1).Activate
ActiveSheet.Range("A3").End(xlDown).Offset(1,0).Pa steSpecial

Next i

End Sub

"LITTLE PETE" wrote:

i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent


Little pete

copy tabs to one tab
 
That would be nice - the project files have been handed to me in this state.
possible one of the things that gets changed

"Don Guillett" wrote:

This can be done with a macro that loops for each sheet and copying to the
next available row on the master.
BUT, is there some reason you couldn't have had all on one sheet to start
and just use datafilterauto filter to get the breakdown?

--
Don Guillett
SalesAid Software

"LITTLE PETE" <LITTLE
wrote in message
...
i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent




Little pete

copy tabs to one tab
 
not that hot VBA - when i pasted this into the module section a syntax error
came up?

"AKphidelt" wrote:

Do you know VBA? Because you can use something like this...

Sub Consol()

For i = 2 to Sheets.Count

Sheets(i).Activate
Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy
Sheets(1).Activate
ActiveSheet.Range("A3").End(xlDown).Offset(1,0).Pa steSpecial

Next i

End Sub

"LITTLE PETE" wrote:

i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent


AKphidelt

copy tabs to one tab
 
Alright, first off, make sure the sheet you want the data to be pasted to is
the first tab in the workbook. Then make sure that Range("A3") in that
worksheet has a value in it and a value below it.

If that doesn't work then click on the module and press F8. Keep pressing F8
until the error appears and let me know where the error came up.

"LITTLE PETE" wrote:

not that hot VBA - when i pasted this into the module section a syntax error
came up?

"AKphidelt" wrote:

Do you know VBA? Because you can use something like this...

Sub Consol()

For i = 2 to Sheets.Count

Sheets(i).Activate
Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy
Sheets(1).Activate
ActiveSheet.Range("A3").End(xlDown).Offset(1,0).Pa steSpecial

Next i

End Sub

"LITTLE PETE" wrote:

i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent


Little pete

copy tabs to one tab
 

hi

it errors on the following line

compile error:
syntax error

Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy



"AKphidelt" wrote:

Alright, first off, make sure the sheet you want the data to be pasted to is
the first tab in the workbook. Then make sure that Range("A3") in that
worksheet has a value in it and a value below it.

If that doesn't work then click on the module and press F8. Keep pressing F8
until the error appears and let me know where the error came up.

"LITTLE PETE" wrote:

not that hot VBA - when i pasted this into the module section a syntax error
came up?

"AKphidelt" wrote:

Do you know VBA? Because you can use something like this...

Sub Consol()

For i = 2 to Sheets.Count

Sheets(i).Activate
Range(Range("A3").End(xlDown),Range("A3").End(xlTo Right).Copy
Sheets(1).Activate
ActiveSheet.Range("A3").End(xlDown).Offset(1,0).Pa steSpecial

Next i

End Sub

"LITTLE PETE" wrote:

i have several tabs with various projects being tracked against them. each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent


Don Guillett

copy tabs to one tab
 
Assumes a3:a6 has no blanks. If your data goes beyond row 6 then you will
need to modify this

Sub makemaster()
Sheets.Add befo=Sheet1
ActiveSheet.Name = "Master"
For Each sh In ActiveWorkbook.Sheets
If sh.Name < "Master" Then
mlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
Cells(mlr, "a").Value = sh.Name
mlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
sh.Range("a3:m6").Copy Cells(mlr, "a")
End If
Next sh
End Sub
--
Don Guillett
SalesAid Software

"LITTLE PETE" wrote in message
...
That would be nice - the project files have been handed to me in this
state.
possible one of the things that gets changed

"Don Guillett" wrote:

This can be done with a macro that loops for each sheet and copying to
the
next available row on the master.
BUT, is there some reason you couldn't have had all on one sheet to start
and just use datafilterauto filter to get the breakdown?

--
Don Guillett
SalesAid Software

"LITTLE PETE" <LITTLE
wrote in message
...
i have several tabs with various projects being tracked against them.
each
week i need to sum up what each of the projects are doing.

so each project (tab) is made up into 5 components. an example is
first tab
Tab name "Pinner"
Data set it between A3 and M6.

second tab
Tab name "Ruislip"
Data set it between A3 and M6.

I want to somehow quickly bring these data sets together onto the one
tab
but also include the tab name some where, i.e have a line between them.

Any help would be excellent






All times are GMT +1. The time now is 03:22 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com