RichardLW
New Member
- Joined
- Jun 8, 2008
- Messages
- 25
I've been running this macro since Office 2011 for mac came out, and after updating today, it won't run on one workbook (another almost identical sheet continues to work with the same command). The command it stops at is where it has a range copied and moves over one column to paste the values of the other columns. I tried telling it to paste in F9:K340, which is where it goes, but that didn't help.
I need to post my weekly inventory and really don't want to re-do the macro.
move_weeks Macro
'
Range("L7").Select
Selection.Copy
Range("K7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("P9:P340").Select
Selection.Copy
Range("AM9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("G9:L340").Select
Application.CutCopyMode = False
Selection.Copy
Range("F9").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("L9:L340").Select
Selection.ClearContents
ActiveWindow.ScrollRow = 9
Range("U9:U340").Select
Selection.Copy
Range("AM9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("W8:W340").Select
Application.CutCopyMode = False
Selection.Copy
Range("U8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("Y8:Y340").Select
Application.CutCopyMode = False
Selection.Copy
Range("W8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AA8:AA340").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AC8:AC340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AA8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AE8:AE340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AG8:AG340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AE8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AI8:AI340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AI8:AI340").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.ScrollColumn = 6
Range("L9").Select
End Sub
I need to post my weekly inventory and really don't want to re-do the macro.
move_weeks Macro
'
Range("L7").Select
Selection.Copy
Range("K7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("P9:P340").Select
Selection.Copy
Range("AM9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("G9:L340").Select
Application.CutCopyMode = False
Selection.Copy
Range("F9").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Range("L9:L340").Select
Selection.ClearContents
ActiveWindow.ScrollRow = 9
Range("U9:U340").Select
Selection.Copy
Range("AM9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:= _
False, Transpose:=False
Range("W8:W340").Select
Application.CutCopyMode = False
Selection.Copy
Range("U8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("Y8:Y340").Select
Application.CutCopyMode = False
Selection.Copy
Range("W8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AA8:AA340").Select
Application.CutCopyMode = False
Selection.Copy
Range("Y8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AC8:AC340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AA8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AE8:AE340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AC8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AG8:AG340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AE8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AI8:AI340").Select
Application.CutCopyMode = False
Selection.Copy
Range("AG8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AI8:AI340").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.ScrollColumn = 6
Range("L9").Select
End Sub