Is there a Better way Q
 

Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded?

Thanks



Sub Macro1()

Sheets("Sheet1").Select
Range("C51:C57").Select
Selection.Copy
Sheets("Copy").Select
Range("C51:D57").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C62:D64").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub

Is there a Better way Q
 

Option Explicit
Sub Macro1()

workSheets("Sheet1").Range("C51:C57").Copy
workSheets("Copy").Range("C51:D51").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

workSheets("Sheet1").Range("C62:C64").Copy
workSheets("Copy").Range("C62:D62").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.cutcopymode = false 'remove marching ants

End Sub

Sean wrote:

Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded?

Thanks

Sub Macro1()

Sheets("Sheet1").Select
Range("C51:C57").Select
Selection.Copy
Sheets("Copy").Select
Range("C51:D57").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C62:D64").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub

--

Dave Peterson

Is there a Better way Q
 

Thanks Dave, whats the last piece "'remove marching ants?? (just don't
get the joke)

On Jan 25, 9:52 pm, Dave Peterson wrote:
Option Explicit
Sub Macro1()

workSheets("Sheet1").Range("C51:C57").Copy
workSheets("Copy").Range("C51:D51").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

workSheets("Sheet1").Range("C62:C64").Copy
workSheets("Copy").Range("C62:D62").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.cutcopymode = false 'remove marching ants

End Sub





Sean wrote:

Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded?

Thanks

Sub Macro1()

Sheets("Sheet1").Select
Range("C51:C57").Select
Selection.Copy
Sheets("Copy").Select
Range("C51:D57").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C62:D64").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub--

Dave Peterson- Hide quoted text -- Show quoted text -

Is there a Better way Q
 

Not a joke.

Select a range (b3:C9 say)
edit|copy

You'll see that marquee effect around the copied cells.

Sean wrote:

Thanks Dave, whats the last piece "'remove marching ants?? (just don't
get the joke)

On Jan 25, 9:52 pm, Dave Peterson wrote:
Option Explicit
Sub Macro1()

workSheets("Sheet1").Range("C51:C57").Copy
workSheets("Copy").Range("C51:D51").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

workSheets("Sheet1").Range("C62:C64").Copy
workSheets("Copy").Range("C62:D62").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.cutcopymode = false 'remove marching ants

End Sub





Sean wrote:

Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded?

Thanks

Sub Macro1()

Sheets("Sheet1").Select
Range("C51:C57").Select
Selection.Copy
Sheets("Copy").Select
Range("C51:D57").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C62:D64").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub--

Dave Peterson- Hide quoted text -- Show quoted text -

--

Dave Peterson

Is there a Better way Q
 

aaaaah thats what it means, I gotta be a little bit sharper I guess.
Thanks again


On Jan 25, 10:02 pm, Dave Peterson wrote:
Not a joke.

Select a range (b3:C9 say)
edit|copy

You'll see that marquee effect around the copied cells.





Sean wrote:

Thanks Dave, whats the last piece "'remove marching ants?? (just don't
get the joke)

On Jan 25, 9:52 pm, Dave Peterson wrote:
Option Explicit
Sub Macro1()

workSheets("Sheet1").Range("C51:C57").Copy
workSheets("Copy").Range("C51:D51").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

workSheets("Sheet1").Range("C62:C64").Copy
workSheets("Copy").Range("C62:D62").PasteSpecial _
Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Application.cutcopymode = false 'remove marching ants

End Sub

Sean wrote:

Is there a better way (which I'm sure there is) of performing a simple
copy function as detailed below in a Macro I've recorded?

Thanks

Sub Macro1()

Sheets("Sheet1").Select
Range("C51:C57").Select
Selection.Copy
Sheets("Copy").Select
Range("C51:D57").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C62:C64").Select
Selection.Copy
Sheets("Copy").Select
Range("C62:D64").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").Select
End Sub--

Dave Peterson- Hide quoted text -- Show quoted text ---

Dave Peterson- Hide quoted text -- Show quoted text -