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

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