Excel İle Kredi Hesaplama

Bu konuyu okuyanlar

evowinds

Müdavim
Emektar
Katılım
2 Kasım 2008
Mesajlar
9,100
Reaksiyon puanı
174
Puanları
63
Evet arkadaşlar;

Elimde hazır kredi hesaplama için hazırlanmış bir çalışma sayfası var ve sizinle paylaşmak istedim.

Parametreleri değiştirin ve istediğiniz sonucu alın. Banka sitelerine uğramanıza gerek yok.
Formülleri incelerseniz sizde daha gelişmişini veya özelleştirilmişini yapabilirsiniz.

İşinize yaraması temennisi ile.

@online destek;

Ben elimdekini paylaşıyorum. Daha önceki paylaşımlardan farklı. Umarım işini görür.
 

7/24

Müdavim
Katılım
5 Kasım 2007
Mesajlar
3,816
Reaksiyon puanı
51
Puanları
48
Birde excel formülleri vardı, buradan paylaşmıştı bir üye hatırlıyor musunuz, o link lazım bana.


Paylaşımın için teşekkürler.
 

onilegema

Öğrenci
Katılım
23 Aralık 2010
Mesajlar
1
Reaksiyon puanı
0
Puanları
0
kredi hesaplama araçları için güzel olmuş.Ellerinize sağlık.
 

_Cheff_06_

Öğrenci
Katılım
23 Eylül 2017
Mesajlar
8
Reaksiyon puanı
0
Puanları
1
Yaş
54
Rica etsem aynı işlemi diğer hücrelere nasıl uygulayabilirim örnek B33 hücresinin değerine göre c sütunun rengi değişsin bunları aynı kod sayfasında(A33 hücresinin değerine göre b sütunu rengi değiştiği)yazabilirmiyiz aşağıdaki gibi;
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[C3:C26,C28:C33].Interior.Color = 12611584
ElseIf Target > 500 Then
[C3:C26,C28:C33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[C3:C26,C28:C33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[C3:C26,C28:C33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[C3:C26,C28:C33].Interior.Color = 13382655
ElseIf Target > -750 Then
[C3:C26,C28:C33].Interior.Color = vbRed
End If
End If
End Sub
While[
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C33]) Is Nothing Then
Exit Sub
End If
If Target <> "" Then
If Target > 750 Then
[D3:D26,D28:D33].Interior.Color = 12611584
ElseIf Target > 500 Then
[D3:D26,D28:D33].Interior.Color = vbBlue
ElseIf Target > 250 Then
[D3:D26,D28:D33].Interior.Color = vbGreen
ElseIf Target > -250 Then
[D3:D26,D28:D33].Interior.Color = vbYellow
ElseIf Target > -500 Then
[D3:D26,D28:D33].Interior.Color = 13382655
ElseIf Target > -750 Then
[D3:D26,D28:D33].Interior.Color = vbRed
End If
End If
End Sub
 
Üst