Excel İle Kredi Hesaplama

Konu bilgisi

11cevap

13 bingörüntüleme

21.07.2010açıldı

27.09.2017son cevap

#1
21.07.2010 16:40

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.

Cevaplar

7/24

#2
21.07.2010 16:46

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.

keklik

#3
23.07.2010 08:01

Teşekkürler

S_T_A_L_K_E_R

#4
26.07.2010 03:15

Teşekkürler...

Persona Grata

#5
26.07.2010 03:21

online destek dedi: ↑
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.

Aradığınız konu bu mu acaba?

http://forum.shiftdelete.net/ofis-yazilimlari/63825-excel-formulleri-ve-aciklamalari.html

derdenak

#6
07.08.2010 01:20

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

10u®

#7
07.08.2010 01:48

çok teşekkürler

onilegema

#8
23.12.2010 21:32

kredi hesaplama araçları için güzel olmuş.Ellerinize sağlık.

reddevilx

#9
08.01.2011 02:23

tşk ler gzl paylaşım

adaletinsesi

#10
12.02.2011 22:46

eline sağlık arkadaşım

spybot

#11
12.02.2011 22:48

Tesekkurler.

_Cheff_06_

#12
27.09.2017 15:12

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

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.