Hi:

I am producing a basic financial model where the amount of debt and
capital is dependent on the cash flow, which must have a minimum value
of, let's say, 1000. This, of course, generates circularity because of
the financial costs of debt:

Cash-Flow (Without capital and debt) Year 1: -1200

If there as no interest cost, I would only have to distribute the
1200+1000 (minimum cash available) between capital and debt.
Unfortunately, we can't borrow for free, so interes messes up with
cash, tax, etc, etc.

I can only produce some recorded macros in excel, so I don't have the
knowledge to work this out better then producing an amount of paste
special values on top of the other.

Thank you

PS: Does anyone know where I can download a vb manual for excel?

Have a look at this page - it seems that this may work for you to avoid a
circular reference. It takes the value you input in A1 and adds/subtracts it
in a running total in B1.

http://www.mcgimpsey.com/excel/accumulator.html

Tom

" wrote:

Hi:

I am producing a basic financial model where the amount of debt and
capital is dependent on the cash flow, which must have a minimum value
of, let's say, 1000. This, of course, generates circularity because of
the financial costs of debt:

Cash-Flow (Without capital and debt) Year 1: -1200

If there as no interest cost, I would only have to distribute the
1200+1000 (minimum cash available) between capital and debt.
Unfortunately, we can't borrow for free, so interes messes up with
cash, tax, etc, etc.

I can only produce some recorded macros in excel, so I don't have the
knowledge to work this out better then producing an amount of paste
special values on top of the other.

Thank you

PS: Does anyone know where I can download a vb manual for excel?

Thank you Tom, but there seems to be any problem with this web page as
I can't access it. Though I'll keep trying, do you have any more ideas?

The code is as follows:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub


" wrote:

Thank you Tom, but there seems to be any problem with this web page as
I can't access it. Though I'll keep trying, do you have any more ideas?