Soru Birikmeli Toplamda sadece Toplam Tutar nasıl gözükür

[assenucler]

Değerli Dostlar,


Ekteki dosyamın K sütununda, borçluların sadece birikmeli toplamı gözüksün istiyorum.

2000 satırlık bir veri tabanında, formül ve makroyla çözümü için yardımınızı rica ediyorum.

Saygılar,
Selim

 

[uzmanamele]

Merhaba

En iyi çözüm Pivot Tablodur.

 

[relaxim]

Merhabalar

Bu şekilde işinizi görür mü?

Saygılar....

 

[assenucler]

Sayın relaxim,


Gerek formül ve gerekse makroyla çözümde; eklediğim dosyada da görüleceği gibi, sarı renkli hücreler görülmemelidir.

Yine de ilginiz için teşekkür ederim.

 

[assenucler]

Sayın uzmanamele,


Özet tablo ile çözüme aşinayım. Formül ya da makro ile çözüme ait yanıt alabilmek ümidiyle yazdım.
Yine de zaman ayırdığınız için teşekkür ederim.

 

[Haluk]

Alternatif olarak, "Data-Veri" menüsü altında "Consolidate-Konsolide" çalıştırarak sonuç elde edilebilir....



.

 

[relaxim]

Sayın relaxim,


Gerek formül ve gerekse makroyla çözümde; eklediğim dosyada da görüleceği gibi, sarı renkli hücreler görülmemelidir.

Yine de ilginiz için teşekkür ederim.

K sütuna uygulayıp aşağı doğru çekebilirsiniz.
=EĞERHATA(EĞER(A4=A3;"";TOPLA.ÇARPIM((A$3:A3=A3)*(J$3:J3)));"")

 

[relaxim]

Merhaba

Formül örneğe uygulanmıştır.

 

[assenucler]

Sayın relaxim,


Sol gözümde sarı nokta dolayısıyla, görme kaybı yaşadığım için, halen yeterince dikkatimi veremiyorum.
İlginiz ve yardımınız için en içten teşekkürlerimi sunarım.

Sağlıklı günler ve hayırlı işler dilerim.

Saygılar,
Selim

 

[assenucler]

Sayın Haluk,


Üstadım değerli zamanınızı ayırarak, benim için farklı bir çözüm sundunuz. Yeni bir uygulamayı öğrenmiş oldum.
İlginiz, inceliğiniz ve yardımınız için, en içten teşekkürler. Allah'ım sizlerden razı olsun.

Saygılarımı sunarım.
Selim

 

[Korhan Ayhan]

Merhaba,

Bu işlem için ETOPLA fonksiyonu yeterli olacaktır.

=EĞER(A3=A4;"";ETOPLA($A$3:A3;A3;$J$3:J3))

Aynı formülü makro ile alana yazdırıp sonrasında değere çevirip kullanabilirsiniz.

Option Explicit

Sub E_Topla()
    Range("K3:K" & Rows.Count).ClearContents
    
    With Range("K3:K" & Cells(Rows.Count, 1).End(3).Row)
        .Formula = "=IF(A3=A4,"""",SUMIF($A$3:A3,A3,$J$3:J3))"
        .Value = .Value
    End With
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[relaxim]

Korhan Hocam merhaba,

Selim Bey sarı alanları boş istediği için Eğerhata, Eğer ve Topla.Çarpım kullandım. Benim yazdığım formulü kod olarak nasıl yazabiliriz. Öğrenmek için soruyorum.

saygılar...

 

[Korhan Ayhan]

Vermiş olduğum kod yapısını kullanabilirsiniz. FORMULA bölümüne kendi önerdiğiniz formülü VBA bölümüne uygun şekilde yazarak sonuca gidebilirsiniz.

Önerdiğim formüle ve koda boş olma koşulunu da ekledim.

 

[assenucler]

Sayın Korhan Ayhan,


Üstadım ilginiz için teşekkürler. Süper oldu. Sayenizde makroyla ile çözüm yöntemini de öğrendim.
Geçmiş bayramınızı da kutlarım. Sağlıklı günler ve bol kazançlar dilerim.

Hakkınızı nasıl ödeyeceğim, bilmiyorum. Rabbim sizden razı olsun.

Saygılar,
Selim