Döngü Kullanarak sütunlara koşula göre veri girme

[turk-x]

Slm
Aşağıdaki hesaplamayı bir döngü kurarak hücrelere yazdırmak istiyorum.Döngü en fazla 20 yıla kadar işlemleri yapacak yıl değişkenini süreden alacak
1. yıldan sonraki her yıl için tarih2 değerini 1 yıl artıracak her yeni yıl için arada 3 sutun boş bırakılıyor. ve süre değişkenine göre 2 yıl....3. yıl......şeklinde devam edecek.
Bu konuda yardımcı olabilecek arkadaşlardan yardım bekliyorum.

---------------//Değişkenler//-------------
tarih2=tarih.value (dd/mm/yyyy)
tutar=toplam.value (500,00)
sure=yil.value (5)
t1="01/01/2007"
t2="20/05/2007"
t3="10/06/2007"
t4="28/09/2007"
pay=tutar/süre
son = [D65536].End(3).Row + 1
------------------------------------------------------------------

-----------------// 1 Yıl İçin Hesaplama///-------------------------
if sure=1 then
Cells(son, 4) =tarih2
Cells(son, 5) = pay
if date>t1 then
parca=pay/4
cells(son,6)=parca
cells(son,8)=parca
cells(son,10)=parca
cells(son,12)=parca
elseif date>t2 then
parca=pay/3
cells(son,6)="yok"
cells(son,8)=parca
cells(son,10)=parca
cells(son,12)=parca
elseif date>t3 then
parca=pay/2
cells(son,6)="yok"
cells(son,8)="yok"
cells(son,10)=parca
cells(son,12)=parca
elseif date>t4 then
parca=pay
cells(son,6)="yok"
cells(son,8)="yok"
cells(son,10)="yok"
cells(son,12)=pay
else
cells(son,6)="yok"
cells(son,8)="yok"
cells(son,10)="yok"
cells(son,12)="yok"
End if
End if
---------------------------------------------

 

[turk-x]

Bu konuda yardımcı olacak arkadaşları bekliyorum

 

[Korhan Ayhan]

Selamlar,

Lütfen sorunuzu örnek bir dosya ile destekleyiniz. Bu şekilde çözüme ulaşmak kolaylaşacaktır.