Yıllara sari anapara+faiz konsolide sheette gösterme

Katılım
29 Eylül 2017
Mesajlar
13
Excel Vers. ve Dili
English
Merhaba Arkadaşlar,

Ekte bulunan kredi taksit tablolarının ilk sheet'te bulunan yıl-ay bazlı kırılımını yapmaya çalışıyorum. İlgili ay-yıl kırılımı TL cinsinden olacaktır. Kredi taksit tabloları USD-EUR-TL olarak farklı parabirimlerindedir.

Destek olabilirseniz çok sevinirim. Şimdiden teşekkürler.
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Merhaba.

İşlem için makro kullanmak kolayıma geldi.
-- alt taraftan FTK TOPLAM sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- açılan VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın,
-- FTK TOPLAM sayfasına bir adet şekil/düğme/metin kutusu ekleyin,
-- eklediğiniz şekil/düğme/metin kutusuna fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- açılacak küçük ekranda HESAPLAMA makro adını seçip işlemi onaylayın.
FTK TOPLAM sayfasına eklediğiniz şekil/düğme/metin kutusuna fareyle tıkladığınızda istenilen işlem gerçekleşir.
Rich (BB code):
Sub HESAPLAMA()
Set ftop = Sheets("FTK TOPLAM")
ftop.Range("B5:D" & Rows.Count).ClearContents
For Each shf In ThisWorkbook.Sheets
    If shf.Name <> "FTK TOPLAM" Then
        If shf.[E4].NumberFormat = "#,##0.00 [$$-C0C]" Then kur = ftop.[F2]
        If shf.[E4].NumberFormat = "[$TRL] #,##0" Then kur = 1
        If shf.[E4].NumberFormat = "#,##0.00 [$€-82E]" Then kur = ftop.[G2]
            For ssat = 4 To shf.[A4].End(xlDown).Row
                vade = shf.Cells(ssat, "D"): yil = Year(vade): ay = Month(vade)
                Set ftar = ftop.[A:A].Find(yil)
                If Not ftar Is Nothing Then
                    faiz = kur * shf.Cells(ssat, "G")
                    anapara = kur * shf.Cells(ssat, "I")
                    ftop.Cells(ftar.Row + ay, "B") = ftop.Cells(ftar.Row + ay, "B") + faiz
                    ftop.Cells(ftar.Row + ay, "C") = ftop.Cells(ftar.Row + ay, "C") + anapara
                    ftop.Cells(ftar.Row + ay, "D") = ftop.Cells(ftar.Row + ay, "D") + anapara + faiz
                End If
            Next
    End If
Next: MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN :..."
End Sub
 
Son düzenleme:
Katılım
29 Eylül 2017
Mesajlar
13
Excel Vers. ve Dili
English
Desteğiniz için çok teşekkür ederim.
 
Üst