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
>