• DİKKAT

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

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

A

assenucler

Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
3,588
Excel Vers. ve Dili
Ofis 365 TR 64 Windows 11 Pro x64 TR
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
 

Ekli dosyalar

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.
 
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.
 
Alternatif olarak, "Data-Veri" menüsü altında "Consolidate-Konsolide" çalıştırarak sonuç elde edilebilir....

TestHD.gif

.
 
assenucler' Alıntı:
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.
Genişletmek için tıkla ...

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)));"")
 
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
 
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
 
Merhaba,

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

C++: 
=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.

C++: 
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
 
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...
 
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.
 
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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst