AGİ makrosu düzenlemesi

[burhancavus61]

Site içerisinden aldığım bir makroyu kendime göre biraz düzenledim. Fakat beceremediğim bir noktada yardımınıza ihtiyacım var.
Örnek çalışma kitabı içinde "kırmızı alan BEKAR ve sarı alan EVET olursa çocukları hesaplasın sarı alan HAYIR ve durum bekar olursa oran sadece 50 olmalı."
Bu kurguyuda makronun içerisine ilave edebilirsek AGİ oran hesabı çalışma örneğim için tam mevzuata uygun olacak. Yardımlarınızı bekliyorum.

Function cocuk(medeni, escalisma, cocuklar)
deger1 = 0
deger2 = 0
deger3 = 0

son = 6
If cocuklar > son Then cocuklar = son

ReDim veri(son)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 5
veri(4) = 5
veri(5) = 5
veri(6) = 5

If medeni = "EVLİ" And escalisma = "HAYIR" Then
deger2 = 10
End If

For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next

cocuk = deger2 + deger3 + 50
If deger2 + deger3 + 50 > 85 Then cocuk = 85

End Function

 

[Mdemir63]

Selamlar
Ekteki dosyayı incelermisiniz

 

[burhancavus61]

Teşekkür ederim fonksiyonla yapıyorum ama daha kullanışlı olması için makroya ihtiyacım var.

 

[burhancavus61]

Arkadaşlar kendimce sorunu çözdüm belki kodu kullanmak isteyen olursa diye son örnek dosyam ile aktarıyorum.

Function Agioran(medeni, escalisma, cocuklar, bakma)
deger1 = 50
deger2 = 0
deger3 = 0
deger4 = 0

son = 6
If cocuklar > son Then cocuklar = son

ReDim veri(son)
veri(1) = 7.5
veri(2) = 7.5
veri(3) = 5
veri(4) = 5
veri(5) = 5
veri(6) = 5

If medeni = "EVLİ" And escalisma = "HAYIR" Then
deger2 = 10
End If

For i = 1 To Val(cocuklar)
deger3 = deger3 + veri(i)
Next

If medeni = "BEKAR" And bakma = "HAYIR" Then
deger3 = 0
End If

Agioran = deger1 + deger2 + deger3
If deger1 + deger2 + deger3 > 85 Then Agioran = 85

End Function