Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Append info in all worksheets in workbook in one sheet

I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,123
Default Append info in all worksheets in workbook in one sheet

Hi Barb

Try
http://www.rondebruin.nl/copy2.htm

Or with formulas
http://www.rondebruin.nl/summary2.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Append info in all worksheets in workbook in one sheet

Ron,

I don't have a "MASTER" worksheet in the workbook and I'm getting a message
that it exists:

The first time I run through this

Debug.Print Len(ThisWorkbook.Worksheets.Item("Master").Name)
I get a value of 6

Suggestions?

Barb



"Ron de Bruin" wrote:

Hi Barb

Try
http://www.rondebruin.nl/copy2.htm

Or with formulas
http://www.rondebruin.nl/summary2.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt




  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Append info in all worksheets in workbook in one sheet

Oops, I see where it created the MASTER sheet. Never mind.

"Ron de Bruin" wrote:

Hi Barb

Try
http://www.rondebruin.nl/copy2.htm

Or with formulas
http://www.rondebruin.nl/summary2.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt




  #5   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Append info in all worksheets in workbook in one sheet

Ron,

I've got this snippet of code

DestSh.Cells(Last + 1, "A").Value = sh.Name
DestSh.Range("A" & Last).Copy

Last1 = lastrow(DestSh)
- Range("A" & Last & ":" & "A" & Last1).Select

Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


I get Runtime error 1004
Method "Range" of object "_worksheet" failed

at the line with the arrow. What am I missing?

Thanks,
Barb

"Ron de Bruin" wrote:

Hi Barb

Try
http://www.rondebruin.nl/copy2.htm

Or with formulas
http://www.rondebruin.nl/summary2.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt






  #6   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,123
Default Append info in all worksheets in workbook in one sheet

Hi Barb

Show me the complete macro that you use

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
Ron,

I've got this snippet of code

DestSh.Cells(Last + 1, "A").Value = sh.Name
DestSh.Range("A" & Last).Copy

Last1 = lastrow(DestSh)
- Range("A" & Last & ":" & "A" & Last1).Select

Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


I get Runtime error 1004
Method "Range" of object "_worksheet" failed

at the line with the arrow. What am I missing?

Thanks,
Barb

"Ron de Bruin" wrote:

Hi Barb

Try
http://www.rondebruin.nl/copy2.htm

Or with formulas
http://www.rondebruin.nl/summary2.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt






  #7   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 3,355
Default Append info in all worksheets in workbook in one sheet

I got it figured out. Thanks

"Ron de Bruin" wrote:

Hi Barb

Show me the complete macro that you use

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
Ron,

I've got this snippet of code

DestSh.Cells(Last + 1, "A").Value = sh.Name
DestSh.Range("A" & Last).Copy

Last1 = lastrow(DestSh)
- Range("A" & Last & ":" & "A" & Last1).Select

Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


I get Runtime error 1004
Method "Range" of object "_worksheet" failed

at the line with the arrow. What am I missing?

Thanks,
Barb

"Ron de Bruin" wrote:

Hi Barb

Try
http://www.rondebruin.nl/copy2.htm

Or with formulas
http://www.rondebruin.nl/summary2.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Barb Reinhardt" wrote in message
...
I have a workbook that has about 20 worksheets within it. I'd like to
append the information from each worksheet into one worksheet and in column
A, I'd like the name of the source worksheet to be displayed. I'm not sure
where to start.

Thanks in advance,
Barb Reinhardt






Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
pull info from every sheet in a Workbook fenway022 Excel Worksheet Functions 0 December 13th 10 09:06 PM
How do I append 20 worksheets in single sheet. Rahul Excel Worksheet Functions 2 August 3rd 08 03:08 PM
Copy Info from 1 sheet to another within same workbook Julie Excel Worksheet Functions 1 July 12th 08 12:17 AM
How do I set up a workbook that the worksheets update info Mike Excel Worksheet Functions 0 February 15th 06 12:23 AM
How do I read info from different worksheets into a summary sheet? Waterh2o Excel Worksheet Functions 3 December 15th 05 09:01 AM


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

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"