Home Menu

Menu


ExcelBanter » Excel Newsgroups » Excel Discussion (Misc queries) > Adding to a Macro
 
 
LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #3   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
  
Posts: 389
Default Adding to a Macro
Here is the Macro:



Rows("3:3").Select
Selection.Delete Shift:=xlUp
Range("B1:AC1").Select
Selection.Cut
Range("B2").Select
ActiveSheet.Paste
Range("B2").Select
ActiveCell.FormulaR1C1 = "Total"
Range("K2").Select
ActiveCell.FormulaR1C1 = "CH"
Range("N2").Select
ActiveCell.FormulaR1C1 = "Campus"
Range("O2").Select
ActiveCell.FormulaR1C1 = "Dir"
Range("Q2").Select
ActiveCell.FormulaR1C1 = "Mgr"
Range("R2").Select
ActiveCell.FormulaR1C1 = "Team"
Range("T2").Select
ActiveCell.FormulaR1C1 = "Sub"
Range("V2").Select
ActiveCell.FormulaR1C1 = "Suffix"
Range("W2").Select
ActiveCell.FormulaR1C1 = "Supervisor"
Range("X2").Select
ActiveCell.FormulaR1C1 = "FC"
Range("W2").Select
ActiveCell.FormulaR1C1 = "FM"
Range("Y2").Select
ActiveCell.FormulaR1C1 = "Risk Code"
Range("Z2").Select
ActiveCell.FormulaR1C1 = "Days"
Range("AA2").Select
ActiveCell.FormulaR1C1 = "Acct Stat"
Range("AB2").Select
ActiveCell.FormulaR1C1 = "Cust Class"
Range("W3").Select
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Cells.Select
With Selection.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Rows("1:1").Select
Selection.Insert Shift:=xlDown
Rows("3:3").Select
Selection.AutoFilter
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A3").Select
ActiveCell.FormulaR1C1 = "Name"
With ActiveCell.Characters(Start:=1, Length:=4).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("J:J").Select
Selection.Cut
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
Columns("AB:AB").Select
Selection.Cut
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Columns("O:P").Select
Selection.Cut
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
Selection.ColumnWidth = 7.14
Selection.ColumnWidth = 3.43
Columns("D:D").Select
Selection.ColumnWidth = 5.14
Selection.ColumnWidth = 7.14
Selection.ColumnWidth = 6.71
Columns("Q:Q").Select
Selection.Delete Shift:=xlToLeft
Columns("Q:R").Select
Selection.Cut
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Columns("S:S").Select
Selection.Delete Shift:=xlToLeft
Selection.Cut
Columns("H:H").Select
Selection.Insert Shift:=xlToRight
Columns("T:T").Select
Selection.Delete Shift:=xlToLeft
Selection.Cut
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("I:I").Select
Selection.Insert Shift:=xlToRight
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
Columns("W:Y").Select
Selection.Cut
Range("Z55:AA60").Select
Range("AA55").Activate
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.SmallScroll Down:=-6
Columns("J:J").Select
Selection.Insert Shift:=xlToRight
Columns("L:L").Select
Selection.Cut
Application.CutCopyMode = False
Columns("F:F").ColumnWidth = 3.14
Columns("G:G").ColumnWidth = 5.14
Columns("H:H").ColumnWidth = 3.71
Columns("I:I").ColumnWidth = 6.86
Columns("J:J").ColumnWidth = 7
Columns("J:J").ColumnWidth = 9.71
Columns("R:R").Select
Selection.Insert Shift:=xlToRight
Range("R3").Select
ActiveCell.FormulaR1C1 = "66+ Days"
With ActiveCell.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("R4").Select
ActiveCell.FormulaR1C1 = "=RC[1]+RC[2]+RC[3]"
Range("R4").Select
Selection.AutoFill Destination:=Range("R4:R5854")
Range("R4:R5854").Select
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 96
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 456
ActiveWindow.ScrollRow = 552
ActiveWindow.ScrollRow = 596
ActiveWindow.ScrollRow = 691
ActiveWindow.ScrollRow = 706
ActiveWindow.ScrollRow = 735
ActiveWindow.ScrollRow = 779
ActiveWindow.ScrollRow = 809
ActiveWindow.ScrollRow = 845
ActiveWindow.ScrollRow = 882
ActiveWindow.ScrollRow = 1051
ActiveWindow.ScrollRow = 1095
ActiveWindow.ScrollRow = 1147
ActiveWindow.ScrollRow = 1198
ActiveWindow.ScrollRow = 1257
ActiveWindow.ScrollRow = 1293
ActiveWindow.ScrollRow = 1352
ActiveWindow.ScrollRow = 1492
ActiveWindow.ScrollRow = 1528
ActiveWindow.ScrollRow = 1543
ActiveWindow.ScrollRow = 1572
ActiveWindow.ScrollRow = 1719
ActiveWindow.ScrollRow = 1785
ActiveWindow.ScrollRow = 1851
ActiveWindow.ScrollRow = 1918
ActiveWindow.ScrollRow = 1991
ActiveWindow.ScrollRow = 2050
ActiveWindow.ScrollRow = 2226
ActiveWindow.ScrollRow = 2285
ActiveWindow.ScrollRow = 2351
ActiveWindow.ScrollRow = 2402
ActiveWindow.ScrollRow = 2490
ActiveWindow.ScrollRow = 2571
ActiveWindow.ScrollRow = 2769
ActiveWindow.ScrollRow = 2872
ActiveWindow.ScrollRow = 2968
ActiveWindow.ScrollRow = 3320
ActiveWindow.ScrollRow = 3401
ActiveWindow.ScrollRow = 3467
ActiveWindow.ScrollRow = 3533
ActiveWindow.ScrollRow = 3606
ActiveWindow.ScrollRow = 3680
ActiveWindow.ScrollRow = 3753
ActiveWindow.ScrollRow = 3812
ActiveWindow.ScrollRow = 3885
ActiveWindow.ScrollRow = 4128
ActiveWindow.ScrollRow = 4165
ActiveWindow.ScrollRow = 4209
ActiveWindow.ScrollRow = 4231
ActiveWindow.ScrollRow = 4282
ActiveWindow.ScrollRow = 4319
ActiveWindow.ScrollRow = 4355
ActiveWindow.ScrollRow = 4392
ActiveWindow.ScrollRow = 4458
ActiveWindow.ScrollRow = 4517
ActiveWindow.ScrollRow = 4554
ActiveWindow.ScrollRow = 4605
ActiveWindow.ScrollRow = 4649
ActiveWindow.ScrollRow = 4708
ActiveWindow.ScrollRow = 4818
ActiveWindow.ScrollRow = 4869
ActiveWindow.ScrollRow = 4921
ActiveWindow.ScrollRow = 5038
ActiveWindow.ScrollRow = 5090
ActiveWindow.ScrollRow = 5134
ActiveWindow.ScrollRow = 5244
ActiveWindow.ScrollRow = 5288
ActiveWindow.ScrollRow = 5332
ActiveWindow.ScrollRow = 5501
ActiveWindow.ScrollRow = 5530
ActiveWindow.ScrollRow = 5567
ActiveWindow.ScrollRow = 5611
ActiveWindow.ScrollRow = 5633
ActiveWindow.ScrollRow = 5751
ActiveWindow.ScrollRow = 5787
ActiveWindow.ScrollRow = 5802
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollRow = 5780
ActiveWindow.ScrollRow = 5751
ActiveWindow.ScrollRow = 5677
ActiveWindow.ScrollRow = 5552
ActiveWindow.ScrollRow = 5376
ActiveWindow.ScrollRow = 5273
ActiveWindow.ScrollRow = 5237
ActiveWindow.ScrollRow = 5200
ActiveWindow.ScrollRow = 5185
ActiveWindow.ScrollRow = 5163
ActiveWindow.ScrollRow = 5156
ActiveWindow.ScrollRow = 5148
ActiveWindow.ScrollRow = 5163
ActiveWindow.ScrollRow = 5178
ActiveWindow.ScrollRow = 5185
ActiveWindow.ScrollRow = 5193
ActiveWindow.ScrollRow = 5200
ActiveWindow.ScrollRow = 5207
ActiveWindow.ScrollRow = 5215
ActiveWindow.ScrollRow = 5237
ActiveWindow.ScrollRow = 5251
ActiveWindow.ScrollRow = 5259
ActiveWindow.ScrollRow = 5273
ActiveWindow.ScrollRow = 5303
ActiveWindow.ScrollRow = 5310
ActiveWindow.ScrollRow = 5332
ActiveWindow.ScrollRow = 5354
ActiveWindow.ScrollRow = 5383
ActiveWindow.ScrollRow = 5405
ActiveWindow.ScrollRow = 5442
ActiveWindow.ScrollRow = 5486
ActiveWindow.ScrollRow = 5516
ActiveWindow.ScrollRow = 5552
ActiveWindow.ScrollRow = 5596
ActiveWindow.ScrollRow = 5633
ActiveWindow.ScrollRow = 5677
ActiveWindow.ScrollRow = 5707
ActiveWindow.ScrollRow = 5758
ActiveWindow.ScrollRow = 5802
Selection.AutoFill Destination:=Range("R4:R8001"), Type:=xlFillDefault
Range("R4:R8001").Select
Calculate
Columns("S:T").Select
Selection.EntireColumn.Hidden = True
Columns("V:X").Select
Selection.ColumnWidth = 2.71
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveCell.FormulaR1C1 = "Input Student Count"
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
Range("B1:B2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("L1").Select
ActiveCell.FormulaR1C1 = "Total A/R"
Range("L2").Select
ActiveCell.FormulaR1C1 = "Per Student"
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Rows("4:4").Select
Selection.Font.Bold = True
Range("M1").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[4]C:R[49999]C)"
Range("M1").Select
Selection.AutoFill Destination:=Range("M1:U1"), Type:=xlFillDefault
Range("M1:U1").Select
Calculate
Selection.NumberFormat = "0.0"
Selection.NumberFormat = "0"
Range("M2").Select
ActiveCell.FormulaR1C1 = "=R[-1]C/R1C2"
Range("M2").Select
Selection.AutoFill Destination:=Range("M2:U2"), Type:=xlFillDefault
Range("M2:U2").Select
Range("N1").Select
Calculate
Range("A1:U2").Select
Selection.Font.Bold = True
Range("B1:B2").Select
ActiveCell.FormulaR1C1 = "10000"
Range("B3").Select
Calculate
Range("M2:U2").Select
Selection.NumberFormat = "0.00000"
Selection.NumberFormat = "0.0000"
Selection.NumberFormat = "0.000"
Selection.NumberFormat = "0.00"
Selection.NumberFormat = "0.0"
Selection.NumberFormat = "0"
Range("B1:B2").Select
Selection.ClearContents
Calculate
Columns("K:K").ColumnWidth = 4
Range("A1:A2").Select
ActiveCell.FormulaR1C1 = "Input Std Count"
With ActiveCell.Characters(Start:=1, Length:=15).Font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A3").Select
End Sub


"Pecoflyer" wrote:


First by adding your code to your post


--
Pecoflyer

Cheers - MS Excel Newbie
------------------------------------------------------------------------
Pecoflyer's Profile: http://www.thecodecage.com/forumz/member.php?userid=14
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=41088


Reply With QuoteReply With Quote
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes
Threaded Mode Threaded Mode

Posting Rules
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On

Similar Threads
Thread Thread Starter Forum Replies Last Post
Adding a macro to a toolbar Dudley Excel Discussion (Misc queries) 7 March 17th 09 03:42 PM
Adding a Macro to a Hyperlink Zee[_2_] Excel Discussion (Misc queries) 2 September 19th 08 03:14 PM
Adding a Tab in a Macro [email protected] Excel Discussion (Misc queries) 10 February 28th 06 09:57 PM
Adding Row to this macro Nigel Excel Discussion (Misc queries) 2 May 4th 05 05:27 PM
adding apostrophe macro? GolfGal Excel Discussion (Misc queries) 2 April 24th 05 04:39 PM


All times are GMT +1. The time now is 12:37 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"

 

Contact Us ExcelBanter forum home Privacy Statement