Kredi ödemeleri takip tablosu

muzaffer.sm · 3 Ocak 2017

Arkadaşlar Merhaba,

Muhasebe ve Finans alanında çok kullandığımız ve takip açısından herkesin bir şekilde programında olan bir konu üzerinde sizlerden yardım rica edeceğim. Bunun için temsili bir çalışma hazırladım. Çalışma kitabında gerekli notları yazdım. Zamanınız uygun olur da bakabilirseniz çok sevinirim. Teferruatlı bir tablo. Lakin biter ise bir çok kişi bunu kullanabilecektir. Şimdiden Teşekkürler.

Saygılarımla.

http://s2.dosya.tc/server4/29gs6e/kredi_tablosu_takibi.xlsx.html

Asri · 4 Ocak 2017

Kontrol ediniz.

Sayfa formatları aynı olmak şartı ile, sayfa sayısı ve satırları arttırılıp azaltılabilir.

https://upterabit.com/1KkL/kredi_tablosu_takibi.xlsm

Kod:

Dim veriler(10000, 9)
Dim verisay, taksittop, anaparatop, faiztop As Long
Dim j, topsatir As Integer
Public doviz1, doviz2, doviz3, doviz4 As String
Dim banka, doviz As String

Sub menu()
   Application.ScreenUpdating = False
   Call verileri_al
   Call verileri_yaz
   Call Baslik_Bicimle
   Call yillari_topla
   Application.ScreenUpdating = True
   MsgBox ("Rapor Tamamlandı ! ")
   [A1].Select
End Sub

Sub aratoplam(secimli As String, satir)
    Range(secimli).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("B" & satir).Value = "TOPLAM"
    Range("E" & satir).Value = taksittop
    Range("F" & satir).Value = anaparatop
    Range("G" & satir).Value = faiztop
    Range("H" & satir).Value = doviz
    Range(secimli).Select
    Range("H" & satir).Activate
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With
    Range("C" & satir).Select
End Sub

Sub yillari_topla()
   Sheets("AnaTablo").Select
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   If sonsatir = 9 Then Exit Sub
   basla = 10
   For j = 10 To 1000000
       banka = Cells(j, 2)
       referans = Cells(j, 3)
       vade = CDate(Cells(j, 4))
       vadeyil = Year(vade)
       If banka <> eskibanka Or eskivadeyil <> vadeyil And j <> 10 Then
        a = a
        Call aratoplam("B" & j & ":I" & j, j)
        taksittop = 0
        anaparatop = 0
        faiztop = 0
        GoTo son
       End If
       
       taksit = Cells(j, 5)
       taksittop = taksittop + taksit
       anapara = Cells(j, 6)
       anaparatop = anaparatop + anapara
       faiz = Cells(j, 7)
       faiztop = faiztop + faiz
       doviz = Cells(j, 8)
son:
       If banka = "TOPLAM" Then
          Exit For
       End If

       eskivadeyil = vadeyil
       eskibanka = banka
   Next j
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   formul = "=SUM(R[-" & j - 9 & "]C:R[-1]C)/2"
   Cells(sonsatir, 5).Select
   ActiveCell.FormulaR1C1 = formul
   Cells(sonsatir, 6).Select
   ActiveCell.FormulaR1C1 = formul
   Cells(sonsatir, 7).Select
   ActiveCell.FormulaR1C1 = formul
   
End Sub


Sub Baslik_Bicimle()
    Sheets("AnaTablo").Select
    sonsatir = Cells(Rows.Count, "B").End(3).Row + 1
    Range("B9:I9").Select
    Selection.Copy
    secim = "B" & sonsatir & ":I" & sonsatir
    Range(secim).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("G9").Select
    Selection.Copy
    Range("H9").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("H9").Select
    ActiveCell.FormulaR1C1 = "DÖVİZ"
    Range("B" & sonsatir).Select
    ActiveCell.FormulaR1C1 = "TOPLAM"
    cercevele ("B10:I" & sonsatir)
    Range("B25").Select
End Sub


Sub verileri_yaz()
   Sheets("AnaTablo").Select
   sonsatir = Cells(Rows.Count, "B").End(3).Row
   If sonsatir = 9 Then sonsatir = 10
   secim = "A10:I" & sonsatir
   Range(secim).Select
   Selection.Delete Shift:=xlUp
   Range("B10").Select
   For j = 1 To verisay
      Cells(j + 9, 2) = veriler(j, 1)
      Cells(j + 9, 3) = veriler(j, 3)
      Cells(j + 9, 4) = veriler(j, 5)
      Cells(j + 9, 5) = veriler(j, 6)
      Cells(j + 9, 6) = veriler(j, 7)
      Cells(j + 9, 7) = veriler(j, 8)
      Cells(j + 9, 8) = veriler(j, 2)
      Cells(j + 9, 9) = veriler(j, 9)
   Next j
   
End Sub

Sub verileri_al()
   Sheets("AnaTablo").Select
   If Sheets("AnaTablo").CheckBox1.Value Then doviz1 = "TL" Else doviz1 = ""
   If Sheets("AnaTablo").CheckBox2.Value Then doviz2 = "USD" Else doviz2 = ""
   If Sheets("AnaTablo").CheckBox3.Value Then doviz3 = "EURO" Else doviz3 = ""
   If Sheets("AnaTablo").CheckBox4.Value Then doviz4 = "DIGER" Else doviz4 = ""
   
   tarih1 = CDate([D1])
   tarih2 = CDate([D2])
   'doviz1 = [C3]
   'doviz2 = [C4]
   verisay = 0
   buguntarih = Date
   For i = 2 To Sheets.Count
      Sheets(i).Select
      sonsatir = Cells(Rows.Count, "A").End(3).Row
      For j = 2 To sonsatir
        banka = Cells(j, 1)
        doviz = Cells(j, 2)
        referans = Cells(j, 3)
        tahsis = Cells(j, 4)
        vade = CDate(Cells(j, 5))
        taksit = Cells(j, 6)
        anapara = Cells(j, 7)
        faiz = Cells(j, 8)
        If vade >= tarih1 And vade <= tarih2 And _
          ((doviz = doviz1 Or doviz = doviz2 Or doviz = doviz3) Or _
          (doviz4 = "DIGER" And (doviz <> "TL" And doviz <> "USD" And doviz <> "EURO"))) Then
           verisay = verisay + 1
           veriler(verisay, 1) = banka
           veriler(verisay, 2) = doviz
           veriler(verisay, 3) = referans
           veriler(verisay, 4) = tahsis
           veriler(verisay, 5) = vade
           veriler(verisay, 6) = taksit
           veriler(verisay, 7) = anapara
           veriler(verisay, 8) = faiz
           If vade < buguntarih Then veriler(verisay, 9) = "Ödendi" Else veriler(verisay, 9) = "Ödenmedi"
        End If
      Next j
   Next i

End Sub

Sub cercevele(secim As String)
    Sheets("AnaTablo").Select
    Range(secim).Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideVertical)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Range("B9").Select
End Sub

halit3 · 4 Ocak 2017

Alternatif kod

Kod:

Sub CommandButton1_Click()
Dim wsRap As Worksheet, ws As Worksheet
Dim i As Long, ss As Long

Dim baslangıc, bitis, aranan1, aranan2, bulunan1, deg1, deg2, yer1, yer2
baslangıc = Sheets("AnaTablo").Cells(1, "d").Value
bitis = Sheets("AnaTablo").Cells(2, "d").Value
aranan1 = Sheets("AnaTablo").Cells(3, "c").Value
aranan2 = Sheets("AnaTablo").Cells(4, "c").Value

If IsDate(baslangıc) <> True Then Exit Sub
If IsDate(bitis) <> True Then Exit Sub

deg1 = CDate(baslangıc)
deg2 = CDate(bitis)

If deg1 <= deg2 Then
yer1 = CDate(baslangıc)
yer2 = CDate(bitis)
Else
yer2 = CDate(baslangıc)
yer1 = CDate(bitis)
End If

Set wsRap = Worksheets("AnaTablo")
wsRap.Range("B9:H16").ClearContents

ss = 8
For Each ws In Worksheets
With ws
If .Name <> "AnaTablo" Then
For i = 2 To .Cells(.Rows.Count, "B").End(xlUp).Row

bulunan1 = .Cells(i, "B").Value

If CDate(yer1) <= CDate(.Cells(i, "E").Value) _
And CDate(yer2) >= CDate(.Cells(i, "E").Value) Then
If bulunan1 = aranan1 Or bulunan1 = aranan2 Then
ss = ss + 1
wsRap.Cells(ss, "b").Value = .Cells(i, "A").Value
wsRap.Cells(ss, "c").Value = .Cells(i, "C").Value
wsRap.Cells(ss, "d").Value = .Cells(i, "E").Value
wsRap.Cells(ss, "e").Value = .Cells(i, "F").Value
wsRap.Cells(ss, "f").Value = .Cells(i, "G").Value
wsRap.Cells(ss, "g").Value = .Cells(i, "H").Value
[COLOR="Red"]wsRap.Cells(ss, "h").Value = .Cells(i, "B").Value[/COLOR]
End If
End If

Next
End If
End With
Next

muzaffer.sm · 4 Ocak 2017

Sayın Asri merhaba,

Çalışmayı şimdi indirdim.Çok güzel.Deneme yapıyorum bir problem var mı diye. B sütununda TL.ibaresi sehven silinir ise bir hata oluşacak.TL.ibaresi olmaksızın kod işleyişi olur ise daha yerinde olur gibi.
Halit abinin yazdığı kodları da ayrı bir butona atadım. Fark olarak ortaya benim düşünmediğim bir nokta çıkmış seçilen Para birimleri ayrı bir sütunda raporlanmış
Sizin kodlarda TL. ibaresi yazılmadan kod işleyişi olur ise daha sağlıklı olacak gibi. Genel kullanıcılara hitap edersek bizim dışımızda herkes çok rahat kullanabilir diye düşünüyorum.
Çalışmanız ve emeğiniz çok teşekkür ediyorum.

http://i.hizliresim.com/zaGnk4.jpg

Asri · 4 Ocak 2017

muzaffer.sm' Alıntı:
Sayın Asri merhaba,

Çalışmayı şimdi indirdim.Çok güzel.Deneme yapıyorum bir problem var mı diye. B sütununda TL.ibaresi sehven silinir ise bir hata oluşacak.TL.ibaresi olmaksızın kod işleyişi olur ise daha yerinde olur gibi.

Halit abinin yazdığı kodları da ayrı bir butona atadım. Fark olarak ortaya benim düşünmediğim bir nokta çıkmış seçilen Para birimleri ayrı bir sütunda raporlanmış

Sizin kodlarda TL. ibaresi yazılmadan kod işleyişi olur ise daha sağlıklı olacak gibi. Genel kullanıcılara hitap edersek bizim dışımızda herkes çok rahat kullanabilir diye düşünüyorum.

http://i.hizliresim.com/zaGnk4.jpg

Gönderdiğiniz örnek tabloda alt alta iki ayrı tablo vardı. Diğer tablonun olmayacağını söyleseydiniz TL de kontrol edilmezdi zaten

muzaffer.sm · 4 Ocak 2017

Halit abi merhaba,

Size de ayrıca teşekkürler, epeydir sizi göremedim forumlarda umarım iyisinizdir.
Benim düşünmediğim noktayı ilave etmişsiniz bu çok güzel olmuş. Hangi paralı kredinin raporlandığı önemli.Bunu düşünememişim.

muzaffer.sm · 4 Ocak 2017

Sayın Asri,

Bende tabloyu yaparken şöyle düşünmüştüm, Yukarıda ki Tablo TL. aşağıdaki tablo ise Döviz raporu olsun şeklinde tasarlamıştım. Sorgulamada TL ve döviz gözetilerek rapor söz konusu idi. Yani iki ayrı tablo gibi düşünmüştüm. Bu tablonun böyle hızlı gelişeceğini bile düşünemiyordum doğrusu. İyi ki varsınız.

Asri · 4 Ocak 2017

İlk mesajımdaki dosya ve kodlar tek tablo ve Döviz kolonu olacak şekilde güncellendi.

muzaffer.sm · 4 Ocak 2017

asri' Alıntı:
İlk mesajımdaki dosya ve kodlar tek tablo ve Döviz kolonu olacak şekilde güncellendi.

Şimdi iki kodlama süper oldu. Halit abi ve sizin çalışmanız tam yerinde oldu. Şimdi bu dosya üzerinde bir iki farklı bir yapı çıkacak gibi. Müsaade ederseniz onları bir tasarı yapayım. Burada tekrar pek yanıltıcı olmadan sunayım. Bu tip bir tablo hiç bir yerde yok. Öyle ise herkes kullanacak şekle gelsin.

muzaffer.sm · 5 Ocak 2017

Sayın Asri Merhaba,

Çalışmayı biraz daha inceledim.Döviz cinslerini sorgularken listemizde 3 lü bir döviz mevcut.Bunu ben listede ilk ve son arası düşünüp yapmış idim.Yani "arasında" mantığı gibi düşünmüştüm.
Halbuki ilk listede TL son Listede döviz olunca aradaki döviz atlanmış oluyor. Çünkü excel bunu hücrede gördüğü iki tip parayı raporluyor. Üçüncü olan dövizi liste içinde hücreye taşınan bir değer yok.
Kısacası bende sayfaya check kutuları koydum. Buna göre tekrar bir düzenleme yapabilir misiniz ?
Akabinde bir kümüle raporda yapmak gerek gibi buna.Onu da ayrıca arz ederim.

https://upterabit.com/Uca/KREDİ_TAKİP_PROGRAMI__F1.xlsm

Asri · 5 Ocak 2017

muzaffer.sm' Alıntı:
Sayın Asri Merhaba,

Çalışmayı biraz daha inceledim......
https://upterabit.com/Uca/KREDİ_TAKİP_PROGRAMI__F1.xlsm

Dosyanız şifreli.

muzaffer.sm · 5 Ocak 2017

Özür dilerim Sayın Asri
Kusura bakmayın hemen yeniliyorum

muzaffer.sm · 5 Ocak 2017

Tekrar özür dilerim,
Buyrun

https://upterabit.com/Ucu/KREDİ_TAKİP_PROGRAMI__F1.xlsm

Asri · 5 Ocak 2017

muzaffer.sm' Alıntı:
Tekrar özür dilerim,
Buyrun

https://upterabit.com/Ucu/KREDİ_TAKİP_PROGRAMI__F1.xlsm

Bu defada indirirken soruyor. Neden bu kadar zora sokuyorsunuz ki.

dosya.tc yada dosya.co dan yükleyin bu sorunları yaşamayın yaşatmayın : )

3 lü döviz seçimi eklendi.

İlk meajımdaki dosya ve kodlar güncellendi.

http://dosya.co/s86or1bpfpjs/kredi_tablosu_takibi.xlsm.html

muzaffer.sm · 5 Ocak 2017

Sayın Asri,
Bu sitede kullandığım bir site neden böyle oldu bende anlayamadım.

Dosyada yaptığım şekiller böyle idi. Ben dosyanızı indiriyorum şimdi

http://s2.dosya.tc/server4/wn5axx/KREDI_TAKIP_PROGRAMI__F1.rar.html

Asri · 5 Ocak 2017

muzaffer.sm' Alıntı:
Sayın Asri,
Bu sitede kullandığım bir site neden böyle oldu bende anlayamadım.

Dosyada yaptığım şekiller böyle idi. Ben dosyanızı indiriyorum şimdi

http://s2.dosya.tc/server4/wn5axx/KREDI_TAKIP_PROGRAMI__F1.rar.html

ilk mesajım son gönderdiğiniz dosyaya göre güncellendi.

muzaffer.sm · 7 Ocak 2017

Merhaba Sayın Asri,

Son dosyada ki kodları çalışmaya kopyaladım. Önceden dediğim bir kaç genişletilir kısım daha olabilir demiştim. Eğer uygun görürseniz dosyayı ekleyip göndereyim. Bakabilir misiniz ?Benim ilave dediğim noktada çalışma parçalanmış oluyor.Şimdiden kusura bakmayın. Tümden şunlar olabilir mi demekte istemiyorum.

https://upterabit.com/1KfJ/kredi_takip_programı_06012017.xlsm

Asri · 7 Ocak 2017

muzaffer.sm' Alıntı:
Merhaba Sayın Asri,

Son dosyada ki kodları çalışmaya kopyaladım. Önceden dediğim bir kaç genişletilir kısım daha olabilir demiştim. Eğer uygun görürseniz dosyayı ekleyip göndereyim. Bakabilir misiniz ?Benim ilave dediğim noktada çalışma parçalanmış oluyor.Şimdiden kusura bakmayın. Tümden şunlar olabilir mi demekte istemiyorum.

https://upterabit.com/1KfJ/kredi_takip_programı_06012017.xlsm

Dahaf fazla ilerlemek için, krediler tablosunun bire bir örnek dosyası lazım.
Bu dosyada Hepsi Garanti bankası, hepsinde ref.no aynı döviz her bankada aynı gibi sorunlar var.

Her bankanın ayrı ayrı yıllık toplam kredileri mi listelenecek?
Banka bazında da ref.no ya göre ayrım yapılarak yıllık toplam kredi mi belirlenecek?

Her bankanın her döviz tipinde ayrı ayrı mı yıllık toplam kredileri listelenecek?

Kısaacası örnek bankalar iyi düzenlenmeli ve istenen kriterler tam olarak belirlenmeli.

muzaffer.sm · 7 Ocak 2017

Merhaba Sayın Asri,

Üç adet ayrı kredi var.Rakamlar plandaki gibi.Sadece USD olan temsili birim.Döviz olsun diye TL.yi usd yaptım. Onun dışında 3 ayrı referanslı kredi var orada.
Aynı bankaya ait bir çok kredi planı olabilir. Yani garanti bankasından 5 ve daha fazlası ağırlıklı mutlaka olur.
Bankalar farklı olsada ben taksitleri banka isimlerini ve referans nolarını belirterek bir örnek hazırlıyorum. Akabinde ekleyeceğim. Teşekkürler.

Saygılarımla

muzaffer.sm · 8 Ocak 2017

asri' Alıntı:
Dahaf fazla ilerlemek için, krediler tablosunun bire bir örnek dosyası lazım.
Bu dosyada Hepsi Garanti bankası, hepsinde ref.no aynı döviz her bankada aynı gibi sorunlar var.

Her bankanın ayrı ayrı yıllık toplam kredileri mi listelenecek?
Banka bazında da ref.no ya göre ayrım yapılarak yıllık toplam kredi mi belirlenecek?

Her bankanın her döviz tipinde ayrı ayrı mı yıllık toplam kredileri listelenecek?

Kısaacası örnek bankalar iyi düzenlenmeli ve istenen kriterler tam olarak belirlenmeli.

Merhaba Sayın Asri, İyi akşamlar.

Tablo üzerinde biraz teferruatlı bir açıklama yaptım. Umarım anlaşılır yazmışımdır. Örnek olarak bir banka üzerinden açıklama yaptım. Şekli ile dosyayı gönderiyorum.Şimdiden teşekkürler.
Saygılarımla.

https://upterabit.com/Ufq/kredi_takip_programı_08012017.xlsm

Kredi ödemeleri takip tablosu

Uzman