K
Kashyap
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
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