Hi all
I have several individual sheets which are populated with data by the users during the week. This data needs to be collated into a single sheet on a weekly basis.
I would like to have a macro perfrom this task. I have attempted to record a macro for this task and perhaps amend it where it may be failing.
This is an example of what has been recorded: (note, only one of the individual sheets is shown in this code, also the number of items to be copied over will vary, hence the code should be able to copy a dynamic range):
Workbooks.Open Filename:= _
"N:\EVERYONE\Account Opening\CONTROL TOOLS\Updated Logs Oct 08\Assigned Work Items - Suneel Bhandari updated.xls"
Range("A2:AR" & Range("A" & Rows.Count)).Select
ActiveWindow.LargeScroll ToRight:=-4
ActiveWindow.SmallScroll Down:=-69
Selection.Copy
Windows("Completed Items Consolidated.xls").Activate
Windows("Consolidated sheet.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Any and all help on this matter is much appreciated!
I have several individual sheets which are populated with data by the users during the week. This data needs to be collated into a single sheet on a weekly basis.
I would like to have a macro perfrom this task. I have attempted to record a macro for this task and perhaps amend it where it may be failing.
This is an example of what has been recorded: (note, only one of the individual sheets is shown in this code, also the number of items to be copied over will vary, hence the code should be able to copy a dynamic range):
Workbooks.Open Filename:= _
"N:\EVERYONE\Account Opening\CONTROL TOOLS\Updated Logs Oct 08\Assigned Work Items - Suneel Bhandari updated.xls"
Range("A2:AR" & Range("A" & Rows.Count)).Select
ActiveWindow.LargeScroll ToRight:=-4
ActiveWindow.SmallScroll Down:=-69
Selection.Copy
Windows("Completed Items Consolidated.xls").Activate
Windows("Consolidated sheet.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Any and all help on this matter is much appreciated!
