gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,347
- Office Version
- 365
- Platform
- Windows
Someone gave me this code and I am trying to use it in another workbook where the location of items are different.
I modified most of it successfully. But its putting the results in Columns A and B
I need it to put these values in R and S (its currently putting the results in the correct row - its just the columns I cant seen to adjust).
Thanks!
I modified most of it successfully. But its putting the results in Columns A and B
I need it to put these values in R and S (its currently putting the results in the correct row - its just the columns I cant seen to adjust).
Code:
Private Sub CommandButton1_Click()
'Changed
' Range("R8:S501").ClearContents
Application.Calculation = xlManual
Dim CurRow As Integer
Dim NumMonths As Integer
Dim Amount As Double
Dim Dcurv As Integer
'Changed
Dcurv = Cells(2, 19).Value
NumMonths = Cells(6, 19).Value
Amount = Cells(3, 19).Value
Range(Cells(8, 18), Cells(200, 19)).ClearContents
CurRow = 7
a = 1 / NumMonths
W = Amount
Min = 1
'All other curves-------------
BOG = 0.01 * Dcurv
S = BOG
For i = 1 To 40
S = Sqr(BOG / (3 - (2 * S)))
Next
p = 0
CL = 0
For K = 1 To NumMonths
Cells(K + CurRow, 1).Value = K
p = p + a
X = (1 - 2 * S) * p * (((-4 * p + 8) * p - 3) * p) + 2 * S * p
C = X * X * (3 - 2 * X)
XX = Min
Cells(K + CurRow, 2).Value = ((C - CL) * XX * W)
CL = C
If K = 1 Then
Cells(K + CurRow, 1).Formula = "=EOMONTH(S4,0)"
Cells(K + CurRow, 1).NumberFormat = "mmm-yy"
Else
Cells(K + CurRow, 1).FormulaR1C1 = "=EOMONTH(R[-1]C,1)"
Cells(K + CurRow, 1).NumberFormat = "mmm-yy"
End If
Next
End Sub
Thanks!