gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,341
- Office Version
- 365
- Platform
- Windows
is there a shorter way to right this code? I am copying a column from a table. I am doing this for multiple columns, so it would be helpful if there was a shorter version. Note, I cannot copy and paste the entire table because not all column get pasted to the other location. And the order of the columns are different.
Thanks
Thanks
Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[TASK ID]").Select
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Material ID]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Ref ID]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Resource]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Amount]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("L3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Link Qty]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Link Spead]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("N3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Curve]").Select
Application.CutCopyMode = False
Selection.Copy
Range("T3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("PP_Material_Assoc_Costs").Select
Range("PP_Material_Assoc_Costs[Spread Method]").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Material Assoc Costs").Select
Range("U3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub