Kredi tablosu özeti oluşturma

[cagdaskc]

Arkadaşlar merhaba,

Ekte "krediler günlük detay" sheetinde bulunan L sütunundaki "toplam ödeme TL" tutarlarının, ilgili kriterler dahilinde "FTK Toplam" sheetinde yıllık olarak banka kırılımlı toplanarak özet oluşturmak istiyorum.

Aşağıdaki detaylar dahilinde yardımcı olabilirseniz çok sevinirim.
1. Kredi günlük detay sheetinde bulunan kredi tipi sütunundaki "Rotatif faiz" kredileri, FTK Toplam içerisindeki Rotatif Satırına denk gelmesi gerekmektedir.
2. FTK Toplam sheetinde bulunan Kısa vade krediler 01/01/2019-31/12/2019 aralığında olmalıdır.
3. FTK Toplam sheetinde bulunan Uzun vade krediler 01/01/2020 ve sonrası aralığında olmalıdır.
4. FTK Toplam sheeti yaşayan bir dosya halinde olmalı, her gün kredi taksit tarihini 1 yıl altı veya üstü şeklinde güncellemelidir.
5. Kredi günlük detay sheetinde bulunan kredi tipi sütunundaki "Faktoring Spot" kredileri, FTK Toplam sheetinde Faktoring sütunu altında toplanması gerekmektedir.

Bu detayda yardımcı olabilecek olan var ise desteğiniz benim için çok önemli olacak.
Şimdiden çok teşekkürler.
Çağdaş

 

[muygun]

Merhaba;
FTK Toplam sayfası biraz karışık yada otomasyona uygun değil.
Bu nedenle biraz değişiklik yaptım. FTK Toplam sayfası bu haliyle size uygun değilse FTK Toplam sayfasındaki veriler 3. bir sayfada düzenlenebilir.
İyi çalışmalar.

 

[cagdaskc]

Merhaba,
Öncelikle detay çalışmanız için teşekkür ederim.
işlem butonuna bastığımda aşağıdaki hatayı alıyorum. Bu normal midir?
"cagdaskc-tarihsel analiz.xls'!işlem" makrosu çalıştırılamıyor. Makro bu çalışma kitabında olmayabilir veya tüm makrolar devre dışı bırakılmış olabilir."

Ayrıca burada yapmaya çalıştığım şey, kredi tablolarının yıllara göre dağılımı ve bunların taksitli-rotatif-faktoring ödeme kırılımlarıyla görünmesi. Kısa vade ve uzun vade ayrımı bilanço takibi için önemli olduğundan günlük dosyayı açtığımda 1 yıldan az ve fazla olan kredileri güncellemesi gerekmektedir.

İyi çalışmalar dilerim.

 

[muygun]

Dosyayı açarken makroları etkinleştirerek açın.

 

[cagdaskc]

Sanırım yapıda bir sıkıntı var. Makroyu etkinleştir dediğimde de aynı hatayı alıyorum.

 

[muygun]

dosyada makroları görebiliyormusunuz?
(Alt + F11 tuşlarına basın)
Makroyu göremiyorsanız İhtimalle makro güvenliğiniz yüksek seviyede bu nedenle makrolar siliniyor.
Birde bu eki deneyin.

 

[cagdaskc]

Makroları görebiliyorum. Farklı bir pc'den de denedim aynı uyarıyı alıyorum. Güvenlik ayarlarını da güncelledim.
Ancak yine de butona bastığımda sayılar güncellenmiyor.

 

[cagdaskc]

Konuyla ilgili alternatif yardım sunabilecek olan var mıdır?

 

[Ömer BARAN]

Merhaba.
Önce, aynı soru için bir'den fazla konu açmanızın forum işleyişi bakımından doğru olmadığını,
FORUM YÖNETİCİLERİnden, açılan mükerrer konunun silinmesini/birleştirilmesini istemenizin yerinde olacağını hatırlatayım.

Yanlış anlamıyorsam, vade tarihi;
-- içinde bulunulan yıl+1'den küçük olanlar dağıtıma tabi tutulmayacak,
-- içinde bulunulan yıl +1'e eşit olanlar türüne göre, FTK sayfasında 6 veya 28'inci satırda olacak,
-- içinde bulunulan yıl +2 ve sonrası ise türüne göre 8-12 ve 20-24'üncü satırlarda olacak,
-- yukarıdaki yıl kirterlerine uyan ROTATİF (C sütunu) ise 5 ve 17'nci satırda olacak.
NOT: Örnek belgedeki verilerde Rotatif Faiz olanların tümü 2018 yılına ait olduğundan dağıtım tablosuna aktarılacak veri yok.

UYARI:
Kod'u çalıştırmadan önce; FTK sayfası 4 ve 16'ncı satırlardaki BANKA ADLARInın, diğer sayfa B sütunundakilerle aynı olmasını sağlayınız.

Sub TASNIF_BRN()
Set ftk = Sheets("FTK TOPLAM"): Set k = Sheets("Krediler günlük detay")
kson = k.Cells(Rows.Count, 1).End(3).Row
ftk.Range("B5:I6, B8:I12, B17:I18, B20:I24").ClearContents
For ksat = 5 To kson
    If k.Cells(ksat, 1) = "FTK 1" Then fsat = 4
    If k.Cells(ksat, 1) = "FTK 2" Then fsat = 16
 
    If k.Cells(ksat, 3) = "TTK" Then
        fsut = WorksheetFunction.Match(k.Cells(ksat, 2), ftk.[C4:I4], 0) + 2
    ElseIf Len(k.Cells(ksat, 2)) <> Len(Replace(k.Cells(ksat, 2), "FAKTOR", "")) _
            Or k.Cells(ksat, 3) = "Faktoring Spot" Then
        fsut = 2
    End If
 
    If Year(k.Cells(ksat, 4)) = Year(Date) + 1 Then
        fsat = fsat + 2
    ElseIf Year(k.Cells(ksat, 4)) > Year(Date) + 1 Then
        fsat = fsat + (Year(k.Cells(ksat, 4)) - Year(Date) - 1) + 3
    End If
 
    If fsat <> 4 And fsat <> 16 Then ftk.Cells(fsat, fsut) = ftk.Cells(fsat, fsut) + k.Cells(ksat, 12)
Next: MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[cagdaskc]

Merhaba,

Öncelikle uyarınız için teşekkürler. Uyarını dikkate alarak diğer saydaki konuyu sildim.
Makroya gelecek olursak,
1. Rotatif kredileri 31/12/2019 olacak şekilde düzenlediğimizde, makroyu nasıl düzenleyebiliriz?
2. FTK sheetindeki tüm rakamları "milyon" olarak kısaltmak istiyorum. Örneğin; "59.071.511" yerine "59,1 Mio TL" yazılması gibi
Şimdiden desteğiniz için teşekkürler.
İyi çalışmalar

 

[Ömer BARAN]

Önce bir hatırlatma; belgede L sütunu üzerinden işlem yapıldığından döviz cinsi ve kur bilgisi kullanılmıyor.

-- Milyon olarak kısaltmak için; kod'un NEXT satırının hemen üstündeki satırına, kırmızı renklendirdiğim kısmı ekleyin.
(Sonuç yazılacak alanı, hücre biçimlendirme kısmından SAYI => ondalık basamak sayısı: 1 olarak ayarlayın)

If fsat <> 4 And fsat <> 16 Then ftk.Cells(fsat, fsut) = ftk.Cells(fsat, fsut) + k.Cells(ksat, 12) / 1000000

-- Rotatif için istediğiniz düzenlemeyi tam olarak anlamadım.
Gerekirse örnek belge verilerinde; B sütunu için factoring/banka, D sütunu için 2019 öncesi/2019/2019 sonrası gibi
muhtemel tüm senaryoların gerçekleşeceği veri eklemesi/değişikliği yapıp,
olması gereken sonuçları, olması gereken hücrelere elle yazdıktan sonra bu sonuçlara nasıl ulaştığına dair kısa ve net açıklama yazarak
örnek belgeyi yenilerseniz kod'da güncelleme yapılabilir elbette.
.

 

[cagdaskc]

Detay sheetinde bulunan kredi tipi Rotatif faiz seçildiğinde, gelen banka ve faktoringlerin, FTK sheetinde rotatif satırına yazılması benim için yeterli olacaktır. Vadeyi göz ardı edebiliriz.

 

[Ömer BARAN]

Tekrar merhaba.

Sub TASNIF_BRN()
Set ftk = Sheets("FTK TOPLAM"): Set k = Sheets("Krediler günlük detay")
kson = k.Cells(Rows.Count, 1).End(3).Row
ftk.Range("B5:I6, B8:I12, B17:I18, B20:I24").ClearContents
For ksat = 5 To kson
    If k.Cells(ksat, 1) = "FTK 1" Then fsat = 4
    If k.Cells(ksat, 1) = "FTK 2" Then fsat = 16
    
    If Len(k.Cells(ksat, 2)) <> Len(Replace(k.Cells(ksat, 2), "FAKTOR", "")) _
            Or k.Cells(ksat, 3) = "Faktoring Spot" Then
        fsut = 2
    ElseIf k.Cells(ksat, 3) = "TTK" Or k.Cells(ksat, 3) = "Rotatif Faiz" Then
        fsut = WorksheetFunction.Match(k.Cells(ksat, 2), ftk.[C4:I4], 0) + 2
    End If
    
    If k.Cells(ksat, 3) = "Rotatif Faiz" Then
        fsat = fsat + 1
    ElseIf Year(k.Cells(ksat, 4)) = Year(Date) + 1 Then
        fsat = fsat + 2
    ElseIf Year(k.Cells(ksat, 4)) > Year(Date) + 1 Then
        fsat = fsat + (Year(k.Cells(ksat, 4)) - Year(Date) - 1) + 3
    End If
    
    If fsat <> 4 And fsat <> 16 Then ftk.Cells(fsat, fsut) = ftk.Cells(fsat, fsut) + k.Cells(ksat, 12) / 1000000
Next: MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[cagdaskc]

Merhaba,
Güncellemiş olduğunuz son kodla giriş yaptığımda "400" diye bir hata alıyorum.

 

[Ömer BARAN]

Dosya ekte.

 

[cagdaskc]

Ömer Bey,
Destekleriniz için çok teşekkür ederim.
iyi çalışmalar.

 

[Ömer BARAN]

Kolay gelsin.