aynı tarihlerdeki aynı olan değerleri toplama

[nnnk]

Merhaba elimdeki listede a hücresinde tarih b hücretsinde açıklama c hücresindede toplamlar yazıyor istediğim
10/01/2023 müşteri ödemesi 250 Tl
10/01/2023 müşteri ödemesi 500 Tl
10/01/2023 kasa ödemesi 100 TL
10/02/2023 müşteri ödemesi 750 tl
istediğim tarihleri tek tek seçip açıklamaya göre toplamakla uğraşmadan bir yolu varmı

başka sayfada bana 10/01/2023 d emüşteri ödemesi şukadar
kasa ödemesi bukadar diye toplamları göstersin

 

[Muzaffer Ali]

Merhaba.
Alt toplam formülü ile yapabilirsiniz.

Örnek formül: =ALTTOPLAM(9;C2:C8) 9 toplama anlamına geliyor değiştirmeyiniz, adres kısmını kendinize göre değiştirebilirsiniz.

Formülü yazdıktan sonra filtre ile istediğiniz filtreyi yapıp filtre toplamını alabilirsiniz.

 

[1Al2Ver]

Merhaba,

Alternatif Çözüm,

Link ;

İndir Aynı Tarihlerdeki Değerlerin Detaylı Toplamı (nnnk)

Dosyayı indir Aynı Tarihlerdeki Değerlerin Detaylı Toplamı (nnnk)

dosya.co

 

[nnnk]

Merhaba.
Alt toplam formülü ile yapabilirsiniz.

Örnek formül: =ALTTOPLAM(9;C2:C8) 9 toplama anlamına geliyor değiştirmeyiniz, adres kısmını kendinize göre değiştirebilirsiniz.

Formülü yazdıktan sonra filtre ile istediğiniz filtreyi yapıp filtre toplamını alabilirsiniz.

Merhaba yaptım fakat seçtiğim hücrelerin hepsini topladı benim istediğim her tarihi ayrı toplasın 10/01/2023 müşteri ödemesi 1300 20/01/2023 müşteri ödemesi 1500 10/01/2023 kasa ödemesi 2500 gibi

 

[nnnk]

Merhaba,

Alternatif Çözüm,

Link ;

İndir Aynı Tarihlerdeki Değerlerin Detaylı Toplamı (nnnk)

Dosyayı indir Aynı Tarihlerdeki Değerlerin Detaylı Toplamı (nnnk)

dosya.co

açamadım altın üyelik istiyor

 

[Muzaffer Ali]

Merhaba yaptım fakat seçtiğim hücrelerin hepsini topladı benim istediğim her tarihi ayrı toplasın 10/01/2023 müşteri ödemesi 1300 20/01/2023 müşteri ödemesi 1500 10/01/2023 kasa ödemesi 2500 gibi

Tarihi de filtre yaparsanız olur.

 

[Korhan Ayhan]

Merhaba,

Sizin için en kolay yöntem ÖZET TABLO kullanmaktır.

Linkleri inceleyebilirsiniz.

Özet Tablo
Özet Tablo

 

[excelokyanus500]

Deneyin..
Açıklama : Sayfa1 nisimli sayfadaki A sütununda bulunan tarihleri kriter kabul ederek C sütununu toplar. C sütununda "TL" gibi yazılar varsa hata verecektir. Alternatiftir.

Sub Kriterle_Topla()
    Dim x As Long
    Dim dict As Object
    Dim ozet As String
    Set dict = CreateObject("Scripting.Dictionary")
  

     ozet = "Toplam" ' Özet Sayfası
  
     If CreateSheetIf(ozet) Then

     Else
     Sheets("Toplam").Cells.ClearContents
     End If
  
  
      Sheets("Sayfa1").Select
      For x = 1 To Sheets("Sayfa1").Range("A" & Rows.Count).End(xlUp).Row
        dict(Cells(x, 1).Value) = dict(Cells(x, 1).Value) + Cells(x, 3).Value
      Next

      Sheets("Toplam").Range("A1").Resize(dict.Count).Value = Application.Transpose(dict.Keys)
      Sheets("Toplam").Range("B1").Resize(dict.Count).Value = Application.Transpose(dict.Items)
      Sheets("Toplam").Select
End Sub

Function CreateSheetIf(strSheetName As String) As Boolean
Dim wsTest As Worksheet
CreateSheetIf = False


Set wsTest = Nothing
On Error Resume Next
Set wsTest = ActiveWorkbook.Worksheets(strSheetName)
On Error GoTo 0

If wsTest Is Nothing Then
    CreateSheetIf = True
    Worksheets.Add.Name = strSheetName
End If
End Function

 

[1Al2Ver]

Merhaba,

açamadım altın üyelik istiyor

3 no.lu mesaja harici link te eklemiştim, gözünüzden kaçmış olmalı, tekrar bakarsınız .

Teşekkür ederim.