View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Kashyap Kashyap is offline
external usenet poster
 
Posts: 131
Default Copy paste - Values - formula - Optimise

Hi have have code as below and I am looking to Optimise the same.. something
like..

sheets("calc").Range("B1:B200").Value=
sheets("IndBIDs").Range("A1:A200").Value

sheets("calc").Range("A1:A200") = sheets("calc").Range("A1:A200").Value

But range will be dynamic as per below code..

1st............

Sheets("IndBIDs").Select
Application.Goto Reference:="R1C1"
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("calc").Select
Application.Goto Reference:="R2C1"
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False


2nd...........

Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False