DavidRoger
Board Regular
- Joined
- Oct 2, 2011
- Messages
- 135
Hi all,
Need to simplify a few minor task together.
First is copy paste value the selected cell. Then move 10 cells to the right and copy paste value. Last move 6 cells to the left.
Below is macro recorded:
Thanks.
Need to simplify a few minor task together.
First is copy paste value the selected cell. Then move 10 cells to the right and copy paste value. Last move 6 cells to the left.
Below is macro recorded:
Code:
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(0, 10).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
ActiveCell.Offset(0, -6).Range("A1").Select
End Sub
Thanks.