i need to either make this from scratch or change it to suit my needs.
Firstly a link to the template it is from
http://www.exinfm.com/excel%20files/FY2000WhatIf.xls

the code is
Sub projection()

Dim revgrowth As Single, costpercent As Single, smgrowth As Single
devgrowth As Single, gagrowth As Single
Dim intincome As Integer, noncontitems As Integer, otherexps A
Integer
Dim taxrate As Single, avgshares As Integer

'dialog box gets displayed
With DialogSheets("dialog3")
If .Show = False Then
Exit Sub
End If

revgrowth = .EditBoxes(1).Text
costpercent = .EditBoxes(2).Text
smgrowth = .EditBoxes(3).Text
devgrowth = .EditBoxes(4).Text
gagrowth = .EditBoxes(5).Text
intincome = .EditBoxes(6).Text
otherexps = .EditBoxes(7).Text
taxrate = .EditBoxes(8).Text
avgshares = .EditBoxes(9).Text
End With

'calculations of projected values
Range("rev97").Value = (Range("rev96").Value + (Range("rev96").Value
revgrowth))
Range("cost97").Value = (Range("rev97").Value * costpercent)
Range("rand97").Value = (Range("rand96").Value + (Range("rand96").Valu
* devgrowth))
Range("sandm97").Value = (Range("sandm96").Value
(Range("sandm96").Value * smgrowth))
Range("ganda97").Value = (Range("ganda96").Value
(Range("ganda96").Value * gagrowth))
Range("intinc97").Value = intincome
Range("othexp97").Value = otherexps
Range("tax").Value = (Range("incb4tx").Value * taxrate)
Range("avgshares").Value = avgshares

Worksheets("income statements").Range("k3:O3").EntireColumn.Hidden
False
End Sub

and it looks like this

[image: http://i2.photobucket.com/albums/y10.../094c74ca.jpg]

thank you for any hel

--
dispelthemyt
-----------------------------------------------------------------------
dispelthemyth's Profile: http://www.excelforum.com/member.php...fo&userid=3247
View this thread: http://www.excelforum.com/showthread.php?threadid=52337

so what is the question?

Are you looking for someone you can hire to modify it?

--
Regards,
Tom Ogilvy


"dispelthemyth" wrote:


i need to either make this from scratch or change it to suit my needs.
Firstly a link to the template it is from
http://www.exinfm.com/excel%20files/FY2000WhatIf.xls

the code is
Sub projection()

Dim revgrowth As Single, costpercent As Single, smgrowth As Single,
devgrowth As Single, gagrowth As Single
Dim intincome As Integer, noncontitems As Integer, otherexps As
Integer
Dim taxrate As Single, avgshares As Integer

'dialog box gets displayed
With DialogSheets("dialog3")
If .Show = False Then
Exit Sub
End If

revgrowth = .EditBoxes(1).Text
costpercent = .EditBoxes(2).Text
smgrowth = .EditBoxes(3).Text
devgrowth = .EditBoxes(4).Text
gagrowth = .EditBoxes(5).Text
intincome = .EditBoxes(6).Text
otherexps = .EditBoxes(7).Text
taxrate = .EditBoxes(8).Text
avgshares = .EditBoxes(9).Text
End With

'calculations of projected values
Range("rev97").Value = (Range("rev96").Value + (Range("rev96").Value *
revgrowth))
Range("cost97").Value = (Range("rev97").Value * costpercent)
Range("rand97").Value = (Range("rand96").Value + (Range("rand96").Value
* devgrowth))
Range("sandm97").Value = (Range("sandm96").Value +
(Range("sandm96").Value * smgrowth))
Range("ganda97").Value = (Range("ganda96").Value +
(Range("ganda96").Value * gagrowth))
Range("intinc97").Value = intincome
Range("othexp97").Value = otherexps
Range("tax").Value = (Range("incb4tx").Value * taxrate)
Range("avgshares").Value = avgshares

Worksheets("income statements").Range("k3:O3").EntireColumn.Hidden =
False
End Sub

and it looks like this

[image: http://i2.photobucket.com/albums/y10.../094c74ca.jpg]

thank you for any help


--
dispelthemyth
------------------------------------------------------------------------
dispelthemyth's Profile: http://www.excelforum.com/member.php...o&userid=32479
View this thread: http://www.excelforum.com/showthread...hreadid=523374