Page History

In VBAProject, in [Modules]>Module2 Code section, I find these macros that were, probably, auto-recorded by Rob when carefully running through the canonical set of keystrokes in Macro recorder.  Evidently the [Modules]>Module1 section has the code for the results autoformatting, which in the etc-surveys sheet at least was not being used.  But it is concatenated to the list of routines below.

Sub ResultsAutoFormatWeek()
'
' Autoformatweek Macro
' Macro recorded 3/2/2004 by smyser -- auto formats this weeks comments table
'
' Keyboard Shortcut: Ctrl+f
'
    Selection.AutoFormat Format:=xlRangeAutoFormatList3, Number:=True, Font:= _
        True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
    Columns("C:C").ColumnWidth = 6.14
'    ActiveWorkbook.Save
End Sub

Sub MakeSurveyRegisterEntries()
'
' NewerMakeSurveyRegisterEntries Macro
'

'
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("o2"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 9), Array(6, 9), _
        Array(7, 9), Array(8, 9)), TrailingMinusNumbers:=True
    Selection.End(xlUp).Select
    Range("o2:q2").Select
    Range(Selection, Selection.End(xlDown)).Select
End Sub

Sub MakeSurveyMailtos()
'
' NewerMakeSurveyMailtos Macro
'

'
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.End(xlUp).Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.End(xlUp).Select
End Sub

Sub ResultsUpdateDB()
'
' UpdateDB Macro
' Macro recorded 2/24/2004 by smyser
'
' Keyboard Shortcut: Ctrl+u
'
    Range("A28:W28").Select
    Selection.Insert Shift:=xlDown
    Range("A27:W27").Select
    Selection.Copy
    Range("A28").Select
    ActiveSheet.Paste
    Range("A3:W27").Select
    Range("A27").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Range("A27").Select
    Selection.End(xlUp).Select
    Range("A2").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    Range("A27:W27").Select
    Selection.Delete Shift:=xlUp
    Range("A27").Select
End Sub