Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy cells & sheet name to master sheet
Hello and HELP!
I need to copy some cells in various rows and also return the sheet name to a master sheet where all will be layed out in a row. I'm running into problems because some of the cells I need to get are merged and plus I don't know what I'm doing anyway. I was able to get the sheet name back where I needed it, but am unsure how to proceed with the rest without actually selecting the master sheet and making that the active sheet. This is the layout I've been given; cells C8, C10, C11, and C12 are merged. I need any data after the : such as "Accounts Payable". A8 C8 Application: Accounts Payable A9 C9 D9 E9 Business Process: Purchase to Pay Business Sub-Process: All F9 G9 Business Activity: Verify Batch A10 C10 Lawson Sub-System: Accounts Payable A11 C11 Test Number: AP520.1 A12 C12 Test Objective: Create a job for the Batch Release AP520.1 This is the code I have so far; please be kind to those more unfortunate than you! For Each Wks In ActiveWorkbook.Worksheets With Wks myName = ActiveSheet.Name Range("C8").Copy Range("C9").Copy Sheets("Sheet1").Select Range("a2").Select ActiveCell = myName Range("B2").Select ActiveSheet.Paste Application.CutCopyMode = False End With Next Wks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy cells & sheet name to master sheet
Never mind; I've figured out most of what I need. Thanks.
"cottage6" wrote: Hello and HELP! I need to copy some cells in various rows and also return the sheet name to a master sheet where all will be layed out in a row. I'm running into problems because some of the cells I need to get are merged and plus I don't know what I'm doing anyway. I was able to get the sheet name back where I needed it, but am unsure how to proceed with the rest without actually selecting the master sheet and making that the active sheet. This is the layout I've been given; cells C8, C10, C11, and C12 are merged. I need any data after the : such as "Accounts Payable". A8 C8 Application: Accounts Payable A9 C9 D9 E9 Business Process: Purchase to Pay Business Sub-Process: All F9 G9 Business Activity: Verify Batch A10 C10 Lawson Sub-System: Accounts Payable A11 C11 Test Number: AP520.1 A12 C12 Test Objective: Create a job for the Batch Release AP520.1 This is the code I have so far; please be kind to those more unfortunate than you! For Each Wks In ActiveWorkbook.Worksheets With Wks myName = ActiveSheet.Name Range("C8").Copy Range("C9").Copy Sheets("Sheet1").Select Range("a2").Select ActiveCell = myName Range("B2").Select ActiveSheet.Paste Application.CutCopyMode = False End With Next Wks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy data from master sheet | New Users to Excel | |||
copy data from master sheet | Excel Discussion (Misc queries) | |||
copy data from master sheet | Excel Discussion (Misc queries) | |||
Master sheet to split sheets back to another master sheet | Excel Programming | |||
copy data to master sheet | Excel Programming |