çoklu iç içe ıf

[kan-nas]

Vadesi 180'e eşit kuru TRY ise A1 deki rakamdan %4 kuru USD ise %1
Vadesi 180 den büyük 1 yıldan küçük kuru TRY ise %7 kuru USD %2
Vadesi 2 yıldan büyük 3 yıldan küçük kuru TRY ise %10 kuru USD %3
Vadesi 3 yıldan büyük 4 yıldan küçük kuru TRY ise %10 kuru USD %4
Vadesi 4 yıldan büyük 5 yıldan küçük kuru TRY ise %11 kuru USD %5
Vadesi 5 yıldan büyük 6 yıldan küçük kuru TRY ise %11 kuru USD %6
Vadesi 6 yıldan büyük 7 yıldan küçük kuru TRY ise %14 kuru USD %6
Vadesi 7 yıldan büyük 8 yıldan küçük kuru TRY ise %14 kuru USD %7
Vadesi 8 yıldan büyük 9 yıldan küçük kuru TRY ise %15 kuru USD %8
Vadesi 9 yıldan büyük 10 yıldan küçük kuru TRY ise %16 kuru USD %9
Vadesi 10 yıldan büyük kuru TRY ise %16 kuru USd ise %9

A1de rakam
A2 de başlandış tarihi
A3de bitiş tarihi var.
Yukarıdaki şartlara göre A1 deki rakamdan % oranındaki tutarı hesaplatmasını istiyorum.
Forumda bir çok örnek inceledim ama bir türlü yapamadım.
Yardımınız için.

 

[Ömer]

Merhaba,

Sorunuz net değil. Döviz kurundan bahsetmişsiniz, kura nereden bakacağız. Dosya yapınızı görmek için sorunuzu küçük bir örnek dosya ile destekleyip açıklarmısınız.

 

[kan-nas]

dosya ektedir Üstadım.

 

[YUSUF44]

Siz dosyayı göndermeden ben ekteki gibi bir çalışma yapmıştım ama elektrik kesilince gönderememiştim. Bir inceleyin isterseniz. Yalnız listede 1 yıldan büyük 2 yıldan küçük olanı belirtmemişsiniz:

 

[halit3]

dosya ektedir Üstadım.

Alternatif olsun

Formul sayfasındaki J-N sutün aralığındaki tabloya bakarak D sutununda formül var ve F sutünundada kullanıcı tanımlı kod var kontrol edin

 

[halit3]

Buda farklı bir yöntem sayfaya eklemede yapabilirsiniz.

Function tutarbul(kur, gun)
sayfa = "formul"
For i = 2 To Worksheets(sayfa).Cells(Rows.Count, "J").End(3).Row
If kur = "TRY" Then
If gun > Sheets(sayfa).Cells(i, "k").Value And gun < Sheets(sayfa).Cells(i, "L").Value Then
tutarbul = Sheets(sayfa).Cells(i, "M").Value
End If
ElseIf kur = "USD" Then
If gun > Sheets(sayfa).Cells(i, "k").Value And gun < Sheets(sayfa).Cells(i, "L").Value Then
tutarbul = Sheets(sayfa).Cells(i, "n").Value
End If
End If
Next
End Function

 

[kan-nas]

Üstadlar çok teşekkür ederim.
Sadece içiçe If kullanılarak formülle yapılabilir mi.?

 

[YUSUF44]

Çok çok uzun bir formül olur ve bence gereksizdir. Çünkü ilerde oranlarda değişiklik olduğunda her formüldeki oranları ayrı ayrı uğraşarak değiştirmek zorunda kalırsınız. O uzun formülün içinde oranları bulup değiştirmek çok uğraştırır. Buna karşın örneğin benim yaptığım gibi yaparsanız oranlar değiştiğinde sadece tablodaki oranları kolayca değiştirirsiniz ve istediğiniz gibi kullanabilirsiniz.

 

[Ömer]

Alternatif olsun.

=A1*ARA((ETARİHLİ(B5;B6;"y")<1)*0,5+ETARİHLİ(B5;B6;"y")-(B6-B5<180)*0,5
 ;{0;0,5;1;2;3;4;5;6;7;8;9;10};EĞER([COLOR=darkgreen]B1[/COLOR]="usd"
  ;{1;2;[COLOR=blue]8[/COLOR];3;4;5;6;6;7;8;9;9};{4;7;[COLOR=red]8[/COLOR];10;10;11;11;14;14;15;16;16}))%

Eklediğiniz tabloya göre döviz cinsi B1 hücresinde düşünülmüştür. Bu kısmı boş bırakırsanız TL olarak algılar.

Not: "Vadesi 1 yıldan büyük 2 yıldan küçük" aralığını belirtmediğiniz için aşağıdaki gibi değerlendirdim. Siz kendinize uyarlarsınız.

TRY ise %8, USD ise %8

.

 

[chilekeshhh]

Merhaba

Merhaba Arkadaşlar
çoook uzun bir süreden sonra tekrar foruma girmeye başladım

Ekteki dosyada I2 hücresine iç içeli bir fonksiyon yazdım ama çalıştıramadım amacım E2 ve G2 deki verileri çarparak bulduğum değeri ( H2 ) aralıklar içindeki koşula göre I2 hücresine bu koşulun sonucunu yazmak.

örnek olarak ;

Eğer H2 deki değer 3000 den küçükse I2 ye 0 yaz
Eğer H2 deki değer 3000 ile 10000 arasında ise I2 ye direk E2 deki değeri yaz
Eğer H2 deki değer 10000 ile 25000 arasında ise I2 ye E2 deki değeri 2 ile çarp
Eğer H2 deki değer 25000 den büyükse I2 deki değeri 3 ile çarp

yardımcı olabilirseniz çok sevinirim.

Saygılarımla

 

[chilekeshhh]

Çözüm sunabilecek bir arkadaş yok mu

 

[YUSUF44]

Merhaba Arkadaşlar
çoook uzun bir süreden sonra tekrar foruma girmeye başladım

Ekteki dosyada I2 hücresine iç içeli bir fonksiyon yazdım ama çalıştıramadım amacım E2 ve G2 deki verileri çarparak bulduğum değeri ( H2 ) aralıklar içindeki koşula göre I2 hücresine bu koşulun sonucunu yazmak.

örnek olarak ;

Eğer H2 deki değer 3000 den küçükse I2 ye 0 yaz
Eğer H2 deki değer 3000 ile 10000 arasında ise I2 ye direk E2 deki değeri yaz
Eğer H2 deki değer 10000 ile 25000 arasında ise I2 ye E2 deki değeri 2 ile çarp
Eğer H2 deki değer 25000 den büyükse I2 deki değeri 3 ile çarp

yardımcı olabilirseniz çok sevinirim.

Saygılarımla

Aşağıdaki formül işinizi görebilir. bu formül

3000'den küçük (3000 hariç) için 0;
3000 dahil 10000 hariç için E2;
10000 dahil 25000 hariç için E2*2 ve
25000 dahil ve fazlası için E2*3 sonucunu verir.

bu sınırlamalarda farklılık olacaksa formülü değiştirebiliriz.

=EĞER(H2<3000;0;EĞER(H2<10000;E2;EĞER(H2<25000;E2*2;E2*3)))

 

[chilekeshhh]

Teşekkürler çalıştı