S
Stav19
Hi All
What i would like to do is to select 4 sheets and copy them into a new
workbook. I would like the sheets to be values and to have the same
page layout as the original sheets. The worksheets I'm copying are
formula driven, so I have to copy and paste value those sheets first,
and then move them to a new workbook, the problem is that I don't know
how to undo that "copy and paste value" in my original workbook
without closing the file and opening it again, which is a little
annoying.
The code I have so far is just from the macro recorder:
Sub CPVNW()
'
' CPVNW Macro
'
'
Sheets(Array("Client Wkly Mvmts - EUR", "Client Wkly Mvmts - GBP",
_
"Client Wkly Mvmts - USD", "Daily Movements")).Select
Sheets("Client Wkly Mvmts - EUR").Activate
Cells.Select
Range("B4").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets(Array("Client Wkly Mvmts - EUR", "Client Wkly Mvmts - GBP",
_
"Client Wkly Mvmts - USD", "Daily Movements")).Select
Sheets("Client Wkly Mvmts - EUR").Activate
Application.CutCopyMode = False
Sheets(Array("Client Wkly Mvmts - EUR", "Client Wkly Mvmts - GBP",
_
"Client Wkly Mvmts - USD", "Daily Movements")).Copy
End Sub
I'm pretty sure there's a way of copying the data without having to
actually do it to the file i'm working on, can anyone suggest the best
way to do that pls?
Thanks!
What i would like to do is to select 4 sheets and copy them into a new
workbook. I would like the sheets to be values and to have the same
page layout as the original sheets. The worksheets I'm copying are
formula driven, so I have to copy and paste value those sheets first,
and then move them to a new workbook, the problem is that I don't know
how to undo that "copy and paste value" in my original workbook
without closing the file and opening it again, which is a little
annoying.
The code I have so far is just from the macro recorder:
Sub CPVNW()
'
' CPVNW Macro
'
'
Sheets(Array("Client Wkly Mvmts - EUR", "Client Wkly Mvmts - GBP",
_
"Client Wkly Mvmts - USD", "Daily Movements")).Select
Sheets("Client Wkly Mvmts - EUR").Activate
Cells.Select
Range("B4").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets(Array("Client Wkly Mvmts - EUR", "Client Wkly Mvmts - GBP",
_
"Client Wkly Mvmts - USD", "Daily Movements")).Select
Sheets("Client Wkly Mvmts - EUR").Activate
Application.CutCopyMode = False
Sheets(Array("Client Wkly Mvmts - EUR", "Client Wkly Mvmts - GBP",
_
"Client Wkly Mvmts - USD", "Daily Movements")).Copy
End Sub
I'm pretty sure there's a way of copying the data without having to
actually do it to the file i'm working on, can anyone suggest the best
way to do that pls?
Thanks!