EagerToLearn
New Member
- Joined
- Jan 20, 2011
- Messages
- 20
Hello there,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com
ffice
ffice" /><o
></o
>
I am still a beginner and need help form the pros,<o
></o
>
Where I work, I have a big excel book contains of like 45 tabs.<o
></o
>
I need to copy and paste certain section form each tab and consolidate it in one tab (on top of each other, like to start pasting the section at the row where you end pasting last section).<o
></o
>
I was kind of able to do that. <o
></o
>
My problems when I had to change the tabs name in the second line on the below code to manually key in every other tab name (in this case 1100, then 1200 and so on)<o
></o
>
Is there smarter way to do that?<o
></o
>
Thanks for your help.![Eek! :eek: :eek:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
<o
></o
>
ActiveCell.Select
Sheets("1100").Select
Range("A6:P255").Select
Selection.Copy
Sheets("BudgetUpload").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=225
ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
I am still a beginner and need help form the pros,<o
Where I work, I have a big excel book contains of like 45 tabs.<o
I need to copy and paste certain section form each tab and consolidate it in one tab (on top of each other, like to start pasting the section at the row where you end pasting last section).<o
I was kind of able to do that. <o
My problems when I had to change the tabs name in the second line on the below code to manually key in every other tab name (in this case 1100, then 1200 and so on)<o
Is there smarter way to do that?<o
Thanks for your help.
<o
ActiveCell.Select
Sheets("1100").Select
Range("A6:P255").Select
Selection.Copy
Sheets("BudgetUpload").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=225
ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select