Excel İle Kredi Hesaplama

Konusu 'Ofis Yazılımları' forumundadır ve evowinds tarafından 21 Temmuz 2010 başlatılmıştır.


  1. evowinds

    evowinds Dekan Onursal Üye

    Katılım:
    2 Kasım 2008
    Mesajlar:
    9.141
    Beğenileri:
    157
    Ödül Puanları:
    63

    - Excel İle Kredi Hesaplama

    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.
     


  2. 7/24

    7/24 Profesör

    Katılım:
    5 Kasım 2007
    Mesajlar:
    3.846
    Beğenileri:
    44
    Ödül Puanları:
    48
    Cinsiyet:
    Erkek
    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.
     
  3. keklik

    keklik Üyecik

    Katılım:
    5 Kasım 2005
    Mesajlar:
    2
    Beğenileri:
    0
    Ödül Puanları:
    1
  4. S_T_A_L_K_E_R

    S_T_A_L_K_E_R Profesör

    Katılım:
    19 Aralık 2009
    Mesajlar:
    2.946
    Beğenileri:
    38
    Ödül Puanları:
    0
  5. Persona Grata

    Persona Grata Profesör Onursal Üye

    Katılım:
    21 Aralık 2009
    Mesajlar:
    3.530
    Beğenileri:
    52
    Ödül Puanları:
    48
  6. derdenak

    derdenak Üyecik

    Katılım:
    26 Kasım 2009
    Mesajlar:
    15
    Beğenileri:
    1
    Ödül Puanları:
    0
    Paylaşımın için teşekkürler.
     
  7. 10u®

    10u® Asistan

    Katılım:
    13 Mart 2007
    Mesajlar:
    143
    Beğenileri:
    0
    Ödül Puanları:
    16
  8. onilegema

    onilegema Üyecik

    Katılım:
    23 Aralık 2010
    Mesajlar:
    1
    Beğenileri:
    0
    Ödül Puanları:
    0
    kredi hesaplama araçları için güzel olmuş.Ellerinize sağlık.
     
  9. reddevilx

    reddevilx Üyecik

    Katılım:
    7 Ocak 2011
    Mesajlar:
    13
    Beğenileri:
    0
    Ödül Puanları:
    0
    tşk ler gzl paylaşım
     
  10. adaletinsesi

    adaletinsesi Üyecik

    Katılım:
    11 Şubat 2011
    Mesajlar:
    4
    Beğenileri:
    0
    Ödül Puanları:
    0
    eline sağlık arkadaşım
     
  11. spybot

    spybot Guru Onursal Üye

    Katılım:
    1 Kasım 2008
    Mesajlar:
    46.763
    Beğenileri:
    306
    Ödül Puanları:
    83
    Cinsiyet:
    Erkek


  12. _Cheff_06_

    _Cheff_06_ Üyecik

    Katılım:
    23 Eylül 2017
    Mesajlar:
    7
    Beğenileri:
    0
    Ödül Puanları:
    1
    Cinsiyet:
    Erkek
    Meslek:
    Özel Güvenlikçi
    Yer:
    Ankara
    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
     
Taslak kaydedildi Taslak silindi

Sayfayı Paylaş