• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Cari (Fatura) Yaşlandırma

  • Konbuyu başlatan Konbuyu başlatan hamit
  • Başlangıç tarihi Başlangıç tarihi
Ömer BARAN' Alıntı:
Önceki formül cevabını güncelledim.
Sayfayı yenileyerek kontrol edip deneyiniz.

Fomülün kısatılabileceğini sanıyorum ama şimdilik SONUÇ odaklı değerlendirelim.

Tarih olayının çözümü listenin;
-- birinci kriter FİRMA ADI.
-- ikinci kriter TARİH
olarak sıralanması yöntemiyle hallolacaktır.
.
Genişletmek için tıkla ...

Ömer bey
Tabloda borç veya alacak fazla olunca hatalı sonuç veriyor.
Kriter için dikkat ederim teşekkür ederim.
 

Ekli dosyalar

Tekrar merhaba.

Oluşturulan formül biraz uzun oldu ama önemli olan SONUÇ sanırım.
Belgeniz tek firmalık bilgileri içerseydi AD TANIMLAMAları kullanılarak formülün daha anlaşılır ve kısa olması sağlanabilirdi diye düşünüyorum.

Belgede, H ve I sütununda makro işlem yapıyor iken M ve N sütnunda formül ile çözüm oluşturuluyor.
K sütununda ise makro ve formül sonuçlarının birbirinden farklı olup olmadığına ilişkin, koşullu biçimlendirme ile desteklenen
ve formül ile yapılan doğruluk kontrolü var.

Ekli belgede, konu sayfasına eklediğiniz tüm örnek belge verileriyle denemeler yaptığımda herhangi bir tutarsızlığa rastlamadım.

Ekteki belgeyi gerçek verilerinizle deneyerek sonucunu konu sayfasına yazarsınız.
.
 

Ekli dosyalar

Ömer BARAN' Alıntı:
Tekrar merhaba.

Oluşturulan formül biraz uzun oldu ama önemli olan SONUÇ sanırım.
Belgeniz tek firmalık bilgileri içerseydi AD TANIMLAMAları kullanılarak formülün daha anlaşılır ve kısa olması sağlanabilirdi diye düşünüyorum.

Belgede, H ve I sütununda makro işlem yapıyor iken M ve N sütnunda formül ile çözüm oluşturuluyor.
K sütununda ise makro ve formül sonuçlarının birbirinden farklı olup olmadığına ilişkin, koşullu biçimlendirme ile desteklenen
ve formül ile yapılan doğruluk kontrolü var.

Ekli belgede, konu sayfasına eklediğiniz tüm örnek belge verileriyle denemeler yaptığımda herhangi bir tutarsızlığa rastlamadım.

Ekteki belgeyi gerçek verilerinizle deneyerek sonucunu konu sayfasına yazarsınız.
.
Genişletmek için tıkla ...

Ömer bey hem formülle hem de makro ile istenen sonuçlara ulaştık. Son eklediğiniz dosyada makro hatalı formül doğru. Bir önceki makro doğru çalışıyordu. Bir öncekinin makrosunu bunun da formülünü kullanıyorum. Amaç hasıl oldu.
Allah razı olsun. Emeğinize sağlık. Gönlümüzden size yemek ısmarlamak geçer ama etik olur bilmiyorum.
Her şey için çok teşekkür ederim. Hakkınızı helal edin.

Not: "konu sayfasına yazarsınız" derken farklı bir yere mi yazmalıyım?
 
Makro'da hatalı olan nedir?
Örneklendirerek, hatalı halde dosyayı yükleyin bakayım.
.
 
Sizin ihtiyacın karşılandığını zaten biliyorum.
Maksatım benzer ihtiyacı olanın sorunsuz çözüme ulaşmasını sağlamak.
Malum FORUMun anlamı, varlık nedeni; bilgi paylaşımı, paylaşarak bilgiyi çoğaltmak, yoksa kişisel soru-sorunların çözümü değil.
.
 
Ömer BARAN' Alıntı:
Sizin ihtiyacın karşılandığını zaten biliyorum.
Maksatım benzer ihtiyacı olanın sorunsuz çözüme ulaşmasını sağlamak.
Malum FORUMun anlamı, varlık nedeni; bilgi paylaşımı, paylaşarak bilgiyi çoğaltmak, yoksa kişisel soru-sorunların çözümü değil.
.
Genişletmek için tıkla ...

Ömer bey tekrar kontrol ettim. İlk testlerim de fazla ödeme yapınca hatalı veriyordu. Şimdi doğru çıkıyor. Defalarca kontrol ettim .Sıkıntı yok. Sebebini anlamadım. Ama şimdi sorun yok.
Tekrar teşekkürler.
 
Merhabalar

Belki işine yarayacak arkadaşlar olabilir hep formülle yapmaya çalıştım biraz boyutu büyük ama iş görüyor.
 

Ekli dosyalar

Tekrar merhaba.

22 numaralı cevabımın ekindeki dosya,
-- hem formül hem de makrolu çözüm içermesi,
-- hem alacak hem borç bakiyesi veren cari dökümünün birarada bulunduğu durumda da kullanılabiliyor olması,
-- bir'den fazla müşteri/satıcı cari dökümünün aynı veri yığını içerisinde iken de çalışıyor olması,
avantaj iken,
-- tarih kriterinin tam olarak kullanılmıyor olması ise (aslında bu durum yaşlandırma deyimiyle temelden çelişiyor bence ama konu sahibi veri yığınının durumunu sabitleyince hareket alanı biraz daraldı doğal olarak) dezavantaj.
-- işlemde gerçek bir yaşlandırma (vade dilimlerine göre alacağın/borcun ayrıştırılmaması / müşteri/satıcılar itibariyle özet bilgi ortaya çıkartılmaması nedeniyle müşteri-satıcı puanlama/performans katsayısı belirlemesinde kullanılamaması) işleminin olmaması da bir dezavantaj ama
elimizde ham veri olmadığından, eklenen belge formatının kaynağının bilinmiyor olması ve format değişikliğine ilişkin bir soru gelmemesi nedeniyle, gerçek bir yaşlandırma için ileriki aşamalara geçiş mümkün olmadı.

Ancak mevcut makro ve formül seçenekli çalışmanın, işlemin en azından gerçek anlamda yaşlandırma yönüne doğru evrilmesi için bir başlangıç/basamak olarak kullanılabilecek bir yapısının olduğunu düşünüyorum.


Sayın umit1907'nin eklediği dosyayı, elimde kulanabileceğim bir muavin kaydı olmadığından deneme şansım yok. Kendisi sorunsuz kullandığını belirttiğine göre iş görüyor demektir.

Gerçi FORUMda YAŞLANDIRMA içerikli açılmış, bir kısmının çözümünü benim hazırladığım konular zaten var.
FORUM'da, fatura dökümünün ayrı sayfada yer aldığı, doğrudan muavin üzerinden işlem yapan, yaşlandırma dilimlerinin esnek yapıda olduğu... vs bir'den fazla çözüm dosyası mevcut.

Cümleten iyi çalışmalar, verimli FORUMlar dilerim.
.
 
Ömer BARAN' Alıntı:
Tekrar merhaba.

22 numaralı cevabımın ekindeki dosya,
-- hem formül hem de makrolu çözüm içermesi,
-- hem alacak hem borç bakiyesi veren cari dökümünün birarada bulunduğu durumda da kullanılabiliyor olması,
-- bir'den fazla müşteri/satıcı cari dökümünün aynı veri yığını içerisinde iken de çalışıyor olması,
avantaj iken,
-- tarih kriterinin tam olarak kullanılmıyor olması ise (aslında bu durum yaşlandırma deyimiyle temelden çelişiyor bence ama konu sahibi veri yığınının durumunu sabitleyince hareket alanı biraz daraldı doğal olarak) dezavantaj.
-- işlemde gerçek bir yaşlandırma (vade dilimlerine göre alacağın/borcun ayrıştırılmaması / müşteri/satıcılar itibariyle özet bilgi ortaya çıkartılmaması nedeniyle müşteri-satıcı puanlama/performans katsayısı belirlemesinde kullanılamaması) işleminin olmaması da bir dezavantaj ama
elimizde ham veri olmadığından, eklenen belge formatının kaynağının bilinmiyor olması ve format değişikliğine ilişkin bir soru gelmemesi nedeniyle, gerçek bir yaşlandırma için ileriki aşamalara geçiş mümkün olmadı.

Ancak mevcut makro ve formül seçenekli çalışmanın, işlemin en azından gerçek anlamda yaşlandırma yönüne doğru evrilmesi için bir başlangıç/basamak olarak kullanılabilecek bir yapısının olduğunu düşünüyorum.


Sayın umit1907'nin eklediği dosyayı, elimde kulanabileceğim bir muavin kaydı olmadığından deneme şansım yok. Kendisi sorunsuz kullandığını belirttiğine göre iş görüyor demektir.

Gerçi FORUMda YAŞLANDIRMA içerikli açılmış, bir kısmının çözümünü benim hazırladığım konular zaten var.
FORUM'da, fatura dökümünün ayrı sayfada yer aldığı, doğrudan muavin üzerinden işlem yapan, yaşlandırma dilimlerinin esnek yapıda olduğu... vs bir'den fazla çözüm dosyası mevcut.

Cümleten iyi çalışmalar, verimli FORUMlar dilerim.
.
Genişletmek için tıkla ...

Ömer beyin samimiyeti ve iyi niyeti sebebi ile ham verilerin bazı kısımları değiştirilmiş ve daha kısa hali ile dosyayı ekliyorum. Yine buradan kendine teşekkürlerimi iletirim. Ayrıca yorumları benim için çok değerli. Farklı bir bakış açısı zenginlik katacaktır.

Veri kullanıcısının istediği vadesine göre haftalara dağıtılmış müşteri ve tedarikçilerin kümülatif bakiyelerini görmek istemektedir. Kesilen fatura ve ödemeleri de tablo halinde istemektedir. Benim çalışmam ektedir.
Saygılarımla.
 

Ekli dosyalar

Merhaba Sayın hamit, nihai belgenin bir kopyasını da paylaştığınız için teşekkürler.

Tek sıkıntı (sıkıntı dediğim, -kendi adıma- destek isteyen/bekleyen başka bir üyenin konusuyla bir an önce ilgilenme isteğimiz)
destek istenilen konunun, bütünün neresinde olduğunun bilinmemesiydi.

Netice itibariyle, maksat hasıl olduğuna göre mesele yok.

İyi çalışmalar, başarılar dilerim.

Bu arada, forumda mesajlaşırken önceki bir cevaptan alıntı yapma durumuyla ilgili şunu hatırlatayım;
-- sadece gerektiğinde alıntı yapınız,
-- alıntılanacak bir cevabın sadece ilgili kısmını alıntılamayı tercih ediniz
(alıntılanacak mesajın sadece ilgili parçalarını bırakıp gerekmeyen kısımlarını silerek alıntı yapmayı tercih edin).

Böylece forum sayfalarını daha verimli kullanmış, görüntü kirliliğine de neden olmamış oluruz.
.
 
Tekrar merhaba Sayın hamit.

23 numaralı cevaptaki yemek davetnizi şimdi gördüm teşekkürler, yemişle beraber.

Ama şunu söyleyeyim, genellikle her ayın ikinci veya üçüncü haftası İstanbul'da oluyorum (iş),
yemekle aramın pek iyi olduğunu söyleyemem ama, benim motor çay-sigara ile çalışıyor. :) :)

Sağlıcakla kalın, görüşmek dileğiyle (bu arada meslektaş sayılırız onu da belirteyim).
.
 
Merhaba.

Mevcut kodları (silme ve yazma) aşağıdakilerle değiştirin.
.
Kod: 
[B][COLOR="red"]Sub bakiye_yaslandirma()[/COLOR][/B]

sonsat = Cells(Rows.Count, 1).End(3).Row
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
If Cells(Rows.Count, "I").End(3).Row > 2 Then Range("H3:I" & sonsat).ClearContents
Range("A2:G" & sonsat).Sort Key1:=[B2], Order1:=1, Key2:=[C2], Order1:=1, Header:=xlYes
For s = 3 To sonsat
If Cells(s, 2) = "" Then Exit For
    brn1 = WorksheetFunction.Match(Cells(s, 2), [B:B], 0)
    brn2 = brn1 + WorksheetFunction.CountIf([B:B], Cells(s, 2)) - 1
    tf = WorksheetFunction.Sum(Range("F" & brn1 & ":F" & brn2))
    tg = WorksheetFunction.Sum(Range("G" & brn1 & ":G" & brn2))
    If tf >= tg Then: sut = 6: brn3 = tg: c = 1
    If tf < tg Then: sut = 7: brn3 = tf: c = -1
    For ss = brn1 To brn2
        Cells(ss, "H") = WorksheetFunction.SumIf(Range("B3:B" & ss), Cells(ss, 2), Range("F3:F" & ss)) - _
                        WorksheetFunction.SumIf(Range("B3:B" & ss), Cells(ss, 2), Range("G3:G" & ss))
        If Cells(ss, sut) = "" Then
            Cells(ss, "I") = ""
        ElseIf brn3 >= Cells(ss, sut) Then
            Cells(ss, "I") = 0: brn3 = brn3 - Cells(ss, sut)
        ElseIf brn3 > 0 And brn3 <= Cells(ss, sut) Then
            Cells(ss, "I") = c * (Cells(ss, sut) - brn3): brn3 = 0
        Else: Cells(ss, "I") = c * Cells(ss, sut): End If
    Next: s = ss - 1
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
[B][COLOR="red"]End Sub[/COLOR][/B]
[B][COLOR="red"]Sub temizle()[/COLOR][/B]
    sonsat = Cells(Rows.Count, 1).End(3).Row
    If Cells(Rows.Count, "I").End(3).Row > 2 Then Range("H3:I" & sonsat).ClearContents
[B][COLOR="Red"]End Sub[/COLOR][/B]
 
Ömer BARAN' Alıntı:
Merhaba.

Mevcut kodları (silme ve yazma) aşağıdakilerle değiştirin.
.
Kod: 
[B][COLOR="red"]Sub bakiye_yaslandirma()[/COLOR][/B]

sonsat = Cells(Rows.Count, 1).End(3).Row
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
If Cells(Rows.Count, "I").End(3).Row > 2 Then Range("H3:I" & sonsat).ClearContents
Range("A2:G" & sonsat).Sort Key1:=[B2], Order1:=1, Key2:=[C2], Order1:=1, Header:=xlYes
For s = 3 To sonsat
If Cells(s, 2) = "" Then Exit For
    brn1 = WorksheetFunction.Match(Cells(s, 2), [B:B], 0)
    brn2 = brn1 + WorksheetFunction.CountIf([B:B], Cells(s, 2)) - 1
    tf = WorksheetFunction.Sum(Range("F" & brn1 & ":F" & brn2))
    tg = WorksheetFunction.Sum(Range("G" & brn1 & ":G" & brn2))
    If tf >= tg Then: sut = 6: brn3 = tg: c = 1
    If tf < tg Then: sut = 7: brn3 = tf: c = -1
    For ss = brn1 To brn2
        Cells(ss, "H") = WorksheetFunction.SumIf(Range("B3:B" & ss), Cells(ss, 2), Range("F3:F" & ss)) - _
                        WorksheetFunction.SumIf(Range("B3:B" & ss), Cells(ss, 2), Range("G3:G" & ss))
        If Cells(ss, sut) = "" Then
            Cells(ss, "I") = ""
        ElseIf brn3 >= Cells(ss, sut) Then
            Cells(ss, "I") = 0: brn3 = brn3 - Cells(ss, sut)
        ElseIf brn3 > 0 And brn3 <= Cells(ss, sut) Then
            Cells(ss, "I") = c * (Cells(ss, sut) - brn3): brn3 = 0
        Else: Cells(ss, "I") = c * Cells(ss, sut): End If
    Next: s = ss - 1
Next
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
[B][COLOR="red"]End Sub
Sub temizle()[/COLOR][/B]
    sonsat = Cells(Rows.Count, 1).End(3).Row
    If Cells(Rows.Count, "I").End(3).Row > 2 Then Range("H3:I" & sonsat).ClearContents
[B][COLOR="Red"]End Sub[/COLOR][/B]
Genişletmek için tıkla ...
Ömer hocam merhaba;
Kod doğru çalışıyor fakat işlem hareketlerini rica etsem kodda açıklama yaparak anlatırmısınız
Zira ekli dosyamda sarı alanlar ödenmemiş açık bakiyeler olarak görüyorum ama kod nasıl hesaplıyor onu anlamaya çalışıyorum.mesela 12.ayda kesilen faturaların vadesi 90 gün martta kapanması gerekiyor ama eksik ödemeden kaynaklı olması gerekiyor diye düşünüyorum. Tablo kapamasını istiyor diye görünüyor.
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst