Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
pull info from every sheet in a Workbook | Excel Worksheet Functions | |||
How do I append 20 worksheets in single sheet. | Excel Worksheet Functions | |||
Copy Info from 1 sheet to another within same workbook | Excel Worksheet Functions | |||
How do I set up a workbook that the worksheets update info | Excel Worksheet Functions | |||
How do I read info from different worksheets into a summary sheet? | Excel Worksheet Functions |