Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Recorded Macro
Here is my recorded Macro I need to turn it into VBA to speed it up. HELP.
Sub SumCert() ' ' SumCert Macro ' Macro recorded 10/12/2006 by J922703 ' ' Range("A11:A14").Select Selection.TextToColumns Destination:=Range("A11"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="¦", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array (4, 1), Array(5, _ 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True ActiveWindow.SmallScroll Down:=6 Range("A15:A36").Select Selection.TextToColumns Destination:=Range("A15"), DataType:=xlFixedWidth, _ OtherChar:="¦", FieldInfo:=Array(Array(0, 1), Array(19, 1), Array(35, 1), Array( _ 49, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(110, 1)), TrailingMinusNumbers _ :=True ActiveWindow.SmallScroll Down:=27 Range("A47:A50").Select Selection.TextToColumns Destination:=Range("A47"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ :="¦", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array (4, 1), Array(5, _ 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True ActiveWindow.SmallScroll Down:=15 Range("A51:A72").Select Selection.TextToColumns Destination:=Range("A51"), DataType:=xlFixedWidth, _ OtherChar:="¦", FieldInfo:=Array(Array(0, 1), Array(19, 1), Array(35, 1), Array( _ 49, 1), Array(64, 1), Array(79, 1), Array(94, 1), Array(110, 1)), TrailingMinusNumbers _ :=True ActiveWindow.SmallScroll Down:=-39 Columns("A:A").ColumnWidth = 10 Columns("A:A").ColumnWidth = 10.57 Columns("B:B").ColumnWidth = 9.86 Columns("B:B").ColumnWidth = 10.71 Columns("C:C").ColumnWidth = 9.29 Columns("C:C").ColumnWidth = 10.71 Columns("C:C").ColumnWidth = 11 Columns("D:D").ColumnWidth = 11.71 Columns("D:D").ColumnWidth = 10.71 Columns("E:E").ColumnWidth = 11 Columns("G:G").ColumnWidth = 9.71 End Sub -- Message posted via http://www.officekb.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Recorded Macro | New Users to Excel | |||
Creating a macro which presses a button containing a recorded macro | Excel Programming | |||
Recorded macro won't run | Excel Programming | |||
Recorded macro won't run | Excel Programming |