Tuesday, July 12, 2011

Sub Insert()

Ended up working on the Sony Viao all morning, its poor fan whirring like a twin-prop airplane, so I could execute this macro on the Big Data Set. Going to need a macro solution for the Macbook eventually, which would appear to require 1) figuring out Applescript, 2) trying Keyboard Maestro, or 3) making better use of the Bootcamp partition. For good keeping, today's macro:

Sub Insert()
' Insert Macro
' Macro recorded 7/12/2011 by Derek Mueller
' Keyboard Shortcut: Ctrl+w
ActiveCell.Offset(-1, 0).Range("A1:M1").Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.Offset(0, 7).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "D"
ActiveCell.Offset(0, 3).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = " "
ActiveCell.Offset(0, 1).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "NAME"
ActiveCell.Offset(1, -11).Range("A1").Select
End Sub

Bookmark and Share Posted by at July 12, 2011 11:10 AM to Methods