For Each Loop problem

Hi All, Hoping you can help.

I am trying to create a repayment schedule for a loan using VBA. The loan has a number of variables - amount, grace period, repayment frequency. In the attached example the loan is for $20,000,000 and there will be no repayments for 52 weeks and thereafter repayments will be equal amounts every 4 weeks. I have been trying to do this with a For Each loop looping through the cells to be populated.

I attach a spreadsheet which hopefully makes the problem clearer.

Many thanks in advance,

Andrew

Just to be clear, interest is not a factor I simply want to divide the principal by the appropriate number of payments and populate the range.

TIA,

Andrew

Hi Ollie,

Yes that is another variable. In the example the loan is to be repaid over 10 years.

Andrew

Hi Ollie,

I require the amounts to be populated in row 9. I don't need any code to add more dates. In the example file I just cut them out.

My intention is that the relevant cells in row 9 will form a named range. The cells will be populated with the formula if the relevant date is further away than the grace period and then only every 4 weeks (or whatever value is contained in cell C7). If you can provide some code for the loop then I think have enough VBA knowledge to be able to adjust it to meet my specific requirements.

Your continuing interest in my problem is very much appreciated.

Andrew

Ollie, Thanks very much for this -the second version looks a bit easier for me to work with. I can't, however, see within the code where the grace period of 52 weeks is dealt with.

Andrew