View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
PY & Associates[_2_] PY & Associates[_2_] is offline
external usenet poster
 
Posts: 38
Default Would like a more efficient way to Copy/PasteSpecial

On Mar 12, 9:11*am, StevenM wrote:
I was doing this:

* * Range("H1:H5").Select
* * Selection.Copy
* * Range("B1:B5").Select
* * ActiveSheet.Paste
* * Application.CutCopyMode = False

and then came across this technique which apparently
is more efficient:

* * Range("H1:H5").Copy Range("B1:B5")

Can you do the same thing when trying to PasteSpecial Values?
Is there a more efficient way to do this:
* * Range("H1:H5").Select
* * Selection.Copy
* * Range("B1:B5").Select
* * Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
* * * * SkipBlanks:=False, Transpose:=False
* * Application.CutCopyMode = False

Can you do something like?
* * Range("H1:H5").PasteSpecialPaste:=xlPasteFormats, Operation:=xlNone, _
* * * * SkipBlanks:=False, Transpose:=False * Range("B1:B5")


Not tested, but I think it should be two lines like this

Range("H1:H5").copy
Range("B1:B5").PasteSpecial