ࡱ> +H*  !"#$%&'()-./012;456789:,<=>?@ACDEFGJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root EntryFK>΂LM B Book N_VBA_PROJECT0606dir` _ Worksheet&Tools&WindowChart&Tools&WindowVisual Basic Module&Tools&Window\p Edward Chowchneider BYear1 AdEquipment AdIndirect InsertPI NewBudgetYears+ Year1ACAD01:'Year1by: * Year1CAL01:* Year1cncmt<* Year1cndol:0 * Year1cpcmt<* Year1cpdol:1 * Year1csdol:? * Year1dccmt<"""* Year1docmt<%%%* Year1dodol:% , Year1equip01:!0Year1equipcmnt01<!!!/Year1equipdol01:!* Year1fbcmt<* Year1fbdol: * Year1focmt<&&&* Year1fodol:& * Year1gscmt<* Year1gscnt:* Year1gsdol: /Year1idircmnt01<%%%.Year1idirdol01:8/Year1idirname01:8/Year1idirrate01:8* Year1macmt<* Year1madol:. * Year1odcmt< * Year1oddol:3 + Year1odtcmt<!!!* Year1opaca:* Year1opcal:* Year1opcmt<* Year1opcnt:* Year1opdol: * Year1opsum: + Year1orgdte:C+ Year1orgnme:C* Year1otcmt<* Year1otcnt:* Year1otdol: + Year1othcmt<+ Year1othdol:+* Year1pdaca:* Year1pdcal:* Year1pdcmt<* Year1pdcnt:* Year1pddol: * Year1pdsum: , Year1PIDOL01: .Year1PIFNAME01:.Year1PILNAME01:.Year1PIMNAME01:.Year1PITITLE01:* Year1pucmt<* Year1pudol:/ * Year1rsdol:= * Year1sccmt<* Year1sccnt:* Year1scdol: + Year1sigdte:A+ Year1signme:A* Year1stcmt<* Year1stdol:(+ Year1subcmt<+ Year1subdol:2 * Year1sucmt<* Year1sudol:*+ Year1SUMR01: * Year1tpcnt:,* Year1trcmt<* Year1trdol:)* Year1tscmt<+ Year1tsfcmt<* Year1ugcmt<* Year1ugcnt:* Year1ugdol: =x=/I818@"1Geneva1Geneva1Geneva1Geneva1Geneva1Helv1Helv1Helv1Helv1Helv1Helv1Helv1Helv1 Helv1scdol1Arial"$"#,##0_);\("$"#,##0\)"$"#,##0_);[Red]\("$"#,##0\) "$"#,##0.00_);\("$"#,##0.00\)%""$"#,##0.00_);[Red]\("$"#,##0.00\)5*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_),))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)=,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)4+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)0.\(0\)# "$"#,##0.0_);[Red]\("$"#,##0.0\)0.0;8_("$"* #,##0.0_);_("$"* \(#,##0.0\);_("$"* "-"??_);_(@_)74_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"??_);_(@_) "$"#,##0 "$"#,##0.0#,##0.0_);[Red]\(#,##0.0\) "$"#,##0.00                ( &     & @& &  @ & @& & B & @& @  @@ @ @ & @& @@ & @@  @   @& @& ! @ & @   @@ @ @ @  @ & & @     @  & & @  & &  & @# @" @ @@ " @@ & @ ! @@! @! @@  Q Q    # # @@& @& @@ & & @ @  " @ " @" @  Q # @ & @ "  #  "  @ #  # ! & & & " "  @ ! @@   @ @ @@ !  & "   " " @@ " @ !  @  ! A" A@ & A@ " AI@ " AA & A@ !P  & A@ # A  "\ " " A@ & A@ & AA & A& A " @# A @@& A   @@    A &  " "  ! @  8 ``i̜̙3f3333f3ffff333ff333f33f33BBB !Year1lMModule1 _ E#J7GJ  dMbP?_*+%87&L&"Palatino,Italic"NSF 96-115&R&"Palatino,Italic"Smith&C&"Palatino,Regular"F-&P&333333?'333333?(?)?MHP LaserJet IIIlar"F-&P6-115&R&@gxH*wlwi0i0@MSUDNHP LaserJet IIId "WxH333333??U} } $} $} } m} I}  }  } } $ } } } m}  p}   E      '  @  @@@@@@@@@@@@@@[SInstructions to NSF Submitters: The functions below work on this spreadsheet only. Notes: If you delete a row created with the buttons, prior to using the buttons again you must remove the labels that were created with the row.E=These functions may not work properly if you add any columns.` XDo not enter anything in the red cells unless you intend to override the formula values.LDThese functions will add the necessary labels required for each row.[ SYou should be entering the values you want Fastlane to receive in the yellow cells.Q IFastLane will ignore all data in cells that are not either yellow or red. If you want to create additional years based on the data in a first year, then do not press the "create new budget years" button until you have filled out the data that you want to copy.f ^The "create new budget years" button will copy all data from budget year1 to subsequent years./ 'PLEASE DO NOT ENTER CENTS IN ANY FIELD!  cYEAR~  ? FOR NSF USE ONLY %  ORGANIZATION   PROPOSAL NO.   DURATION(MONTHS) ,* # !Your Organization goes here !!!!!"##$  #Proposed 5 &Granted qq/ ('PRINCIPAL INVESTIGATOR/PROJECT DIRECTOR ) AWARD NO. *+*  <Funds -7 ./0000001234  <Granted by NSF 67$(w777777x77*<-7$(w777777x77*<-7Q(IA.SENIOR PERSONNEL: PI/PD, Co-PIS, Faculty and Other Senior Associates 777879: NSF Funded *;<   Funds  >=*(G8?(List each separately with title, A.7. show number in brackets)77779> Person-months #$  < Requested By ,k=*~ ?@ First Name 0M0 Last Name 0TitleA BCAL BACAD  $SUMR >Proposer $@C*D?D/y FirstNamePI yXy LastNamePI yTitlejzzz  M~  {  @tr"DEEEEEFsssMN@t  L(!? %B&0)TOTAL SENIOR PERSONNEL (1-6)000Asss !  % pL  @t 5.-B.OTHER PERSONNEL (SHOW NUMBERS IN BRACKETS) 00000AGGGWW@H  D1. (~ "0)POST DOCTORAL ASSOCIATES000Azzz  M~  {  @T  D2. (~ <04)OTHER PROFESSIONALS (TECHNICIAN, PROGRAMMER, ETC.)0000|}}  M~  {  @T  D3. (~ E)GRADUATE STUDENTS00_0llmM ~  {  @T  D4. (~  E)UNDERGRADUATE STUDENTS00_0llmM ~  {  @T  D5. (~ 6E.)SECRETARIAL - CLERICAL (IF CHARGED DIRECTLY)000000AM ~  ~  @T  D6. (~ E)OTHER000000AM ~  {  @T D&ETOTAL SALARIES AND WAGES (A+B)E000000AM .  % U@D @  @T 7./C.FRINGE BENEFITS (IF CHARGED AS DIRECT COSTS)00000X0AM ~  {  IT .9E1TOTAL SALARIES, WAGES AND FRINGE BENEFITS (A+B+C)0000000AM ! 4 % U  IT BXUj32wJ((4kv @!@"@#@$@%@&@'@(@)@*@+@,@-@.@/@0@1@2@3@4@5@6@7@8@9@:@;@<@ =@ >@ ?@ [ (SD.PERMANENT EQUIPMENT (LIST ITEM AND DOLLAR AMOUNT FOR EACH ITEM EXCEEDING $5,000) 9IIIJ  !(n!equipment item 1~ !!oO9IIIJ ! "(a" 9IIvJ "#(# 9II@J #$.$ETOTAL EQUIPMENT$0000000AZ !$ , %!$|g $ @i $%. E.TRAVEL %00?%071.DOMESTIC (INCL. CANADA, MEXICO AND U.S. POSSESSIONS)%00000AM ~ % % IT % &.00&0 2.FOREIGN&00000AM ~ & { & IT &$'(F.PARTICIPANT SUPPORT COSTS '777777779IIIJ '(((71.STIPENDS (7K~ ((7779IIIJ ()()7 2.TRAVEL )77~ ))779IIIJ )*(*73.SUBSISTENCE *77~ **7779IIGJ *+(+74.OTHER +77~ ++7779II@Ju ,L(~ ,&,E)TOTAL NUMBER OF PARTICIPANTS,00v000AM !, 5 %(+U, @T*u-.G.OTHER DIRECT COSTS$-00000000AGG@H*u..!.01.MATERIALS AND SUPPLIES.0000000AM ~ . {. @T*u/.8/002.PUBLICATION COSTS/DOCUMENTATION/DISSEMINATION/0000000AM ~ / {/ @T*u0.003.CONSULTANT SERVICES00000000AM ~ 0 {0 @T7u1.104.COMPUTERS SERVICES10000000AM ~ 1 {1 @T`u2.20 5.SUBAWARDS20000000AM ~ 2 { 2 @T 2u3.306.OTHER3000_000AM ~ 3 { 3 @T 4.0 40TOTAL OTHER DIRECT COSTS4000000AM !4 $ %.3  4 IT +5.#H.TOTAL DIRECT COSTS (A THROUGH G)500000000AM 05 < D@ %$@&@ D,@ D4@  5 IT 26(* I.INDIRECT COSTS (SPECIFY RATE AND BASE) 6777777779YYUJ 7(7"77Name of indirect cost item 77777Amount77 77Rate779YY@J 8(8FirstIndirectCostItem8\~ 88]~ 8 8; D8D88 9YY@J 9(9\^][9 9YY@J :(:\^][: 9YY@J ;.TOTAL INDIRECT COSTS;00000000AZ ";  %8: ; @V 0<.(J.TOTAL DIRECT AND INDIRECT COSTS (H+I)<00000000AM < > D5@ D;@  < gT X=.PK.RESIDUAL FUNDS (IF FOR FURTHER SUPPORT OF CURRENT PROJECTS SEE GPG II.D.7.j.)=00000000AM ~ = = 4T 4>Q,L.AMOUNT OF THIS REQUEST (J) OR (J MINUS K)>222222223d > g22 D<@ D=@  > #h ,?Q$M.COST SHARING: PROPOSED LEVEL ?2222f#?2AGREED LEVEL IF DIFFERENT $?224d ~ ? ? #e Dl^0,hZjejZIkhgdVZ00r@@A@ B@C@ D@@( PI/PD NAME@E @-DATE@PFOR NSF USE ONLY@#### @ O Initials-ORG@ C A.0Av PIFullName A003~ A`@'A#INDIRECT COST RATE VERIFICATIONA####2C B(ORG. REP. NAMEBR B-DATEBO Date CheckedB,B ODate Rate of Sheet B O, B = CQ2CInstRepFullName C22b~ C`@C23223 C 6DRRRRSDFD `>*SIGNATURES REQUIRED ONLY FOR REVISED BUDGET (GPG III.B)Pe]I_d S S$dt!9=!eCreate New Budget Year(s)ys]Year][r S S$8u!9 888" _&APage &PMHP LaserJet IIIf33f33BBB@g,,0w@MSUDNHP LaserJet IIId "d,,??=x=/I818> x=/I818 23f71952c3+SummaryInformation(IpDocumentSummaryInformation8&CompObj)f  !"#$%'(*"*(@`"dh2p$ 4 8D LPT\dl$, *<X`"d<h" X,DTX`tSub modyrprefix() total = Names.CountLFor counter = 1 To totaln. If Left(Names(counter).Name, 4) = "Year" ThenH myvalue = InputBox("replace - " & Names(counter).Name, "hello", "yes")d If (myvalue = "yes") ThenR Names(counter).Name = Left(Names(counter).Name, 5) & Mid(Names(counter).Name, 7)End IfIf (myvalue = "end") Then End End Ife End Ifn Next counterEnd SubcY, T `!j. T$`!t T+J T T `!j) T$JYear1~ T$JYear10~ T$JYear11~e T$J$`B@g TkX% read all names into array of stringsk then go thru each string in the array and change the name of the original keyed by the string in the array) Y Year1' T `!jv T$`!t T+J Tz T `!j,  T$J ~ T$J ~ T$J } ' T$J  T$J$`(tcegg TE k !' !t'b = "Year1" 'debugging onlyin:Row = InputBox("Enter the Row# to insert above", "", "21")' T `!jri T$`!t PIFNAME | T$`!t |la T$`!t$ T$`!$#REF!me T$`!t$' T' gg T $`!' ( $|'    '* * '4))  '  0 'gC 4'@ @$JB@ T!`B@jStA 4'@ @$JB@ $ @$J(tC 4'@= !R 4C3' @$JB@ FirstName @$J(t ! PIFNAME ' t  !`B@D 4'@ @$JB@X @$J(t ! PIMNAME '= !R 4C4' t  !`B@E 4'@ @$JB@LastName @$J(t  ! PILNAME '= !R 4C5' t  !`B@F 4'@ @$JB@ @$J(t" ! PITITLE '= !R 4C6' t  !`B@H 4'@ @$JB@ @$J(t! ! CAL '= !R 4C8' t  !`B@!I 4'@ @$JB@ @$J(t ! ACAD ' = !R 4C9' t  !`B@J 4'@ @$JB@ @$J(t ! 0N7NN+#4X@   JP8 Ax ɂ  J `  :fC D8Mng pdam Tpm  MEJ44TN X P \ |" $",r |  .8hlpx"|  "@FF`(8HX\l|&*,Xx*& 0@*\&* &0 X x   & &   , < &P &x     & ( D d t  ( (   "     "( @L   F F 8 T \ ` d l           >\ l(*&4\|,($"( , 8"D@hFF Tpx|(&8`.p* * &Lt*&<T dp  SUMR '= !R 4C10' t  !`B@ L 4'@ @$JB@ @$J(t ! PIDOL '= !R 4C12' t  !`B@k !' !t'b = "Year1" 'debugging only:Row = InputBox("Enter the Row# to insert above", "", "21")' T `!jng T$`!t equipdol | T$`!t |ig T$`!t$ T$`!$#REF!es T$`!t$' T' gg T $`!' $|'    '* * '4  'st  0 'gC 4'@ @$JB@ T!`B@j= !R 4C3'what is this for? @$JB@Equipment Item @$J(t ! equip ' t  !`B@1F 4'@ @$JB@ @$J(t# ! equipdol '= !R 4C6' t  !`B@P 4'@ @$JB@ @$J(t3 !  equipcmnt '= !R 4C16' t  !`B@k !' !t'b = "Year1" 'debugging only:Row = InputBox("Enter the Row# to insert above", "", "21")' T `!j T$`!t idirname | T$`!t | T$`!t$ T$`!$#REF! T$`!t$' T' gg T $`!'4 $|'    '* * '4  '  0 'gC 4'@ @$JB@ T!`B@j= !R 4C3'or @$JB@New Indirect Item goes here @$J(t ! idirname ' t  !`B@@F 4'@ @$JB@ @$J(t ! idirdol '= !R 4C6' t  !`B@sH 4'@ @$JB@ @$J(t ! idirrate '= !R 4C8' t  !`B@I 4 '@ @$JB@ TB@$I 4'@ @$JB@ B@ (P 4'@ @$JB@Comments go here @$J(t# ! idircmnt '$= !R 4C16' t  !`B@kD'Enter number of years to add$ '  '  T *!j T$*!tYear  '  .If Mid(Sheets(counter).Name, 5, 2) > test Then   'gg T '4 '@Year1$*B@ 4$*JYear1$*B@ Year1 (2)$*B@Year @  Year1 (2)$*(t @ year1by$J(t#need to change labels at this pointYear @ A@ kpCreate New Budget Year(s)Year1$`%j(tkY2' T `!j T$`!t05|0And 'InStr(Names(counter).Name, "PI")) Then T$`!t +  'g T T  T$$`B@ka] m*\G{000204F3-0000-0000-C000-000000000046}#1.0#9#C:\WINDOWS\SYSTEM32\VBAEN32.OLB#Visual Basic For Applicationsoma>*\G{00020813-0000-0000-C000-000000000046}#1.0#409#xl5en32.olb#\*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE AutomationQ #4 23f71952c 13f71952c*D*4*4`@j@  TT** 4 JJ`` jJtjtt@T+ `b (2,:BLOοJ0vPVAx\zd@arf@5X%NʪYh :S-CR6d$3( 4Z:eDrNKV\frvcz@ƿ*4h:Ջ 1 M p$X.T4\@]LT