Tekrarlananları bir defa al ve tutarlarını topla

[huseyin610]

Merhaba,

Herhangi bir listede tekrarlananları toplayan bir kod yazılabilir mi ? Mesela birinci listede bir koddan birden fazla var ve bunların karşısında tutarlar var.Bu listeyi sadeleştirerek aynı koddan olanları toplayıp daha kısa bir liste yapabilir miyiz ?

Saygılarımla,

 

[Mahir64]

Merhaba,

G2 hücresine

=İNDİS($B$2:$B$14;KAÇINCI(0;EĞERSAY($G$1:G1;$B$2:$B$14);0))

Dizi formülüdür

Dizi formülü; Formül hücreye girildikten sonra enter tuşuna basmadan Ctrl+Shift+Enter tuş kombinasyonu İle aktif Olmaktadır.
Formülün başında ve sonunda { } bu işaretler çıkar.

H2 hücresine

=ETOPLA($B$2:$B$14;G2;$C$2:$C$14)

 

[huseyin610]

Teşekür ederim.Ancak formüllü çözüm elimde vardı.Kod olarak nasıl yazabiliriz.

Saygılarımla,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub ÖZET_TABLO()
    Dim X As Long, Satır As Long
 
    Application.ScreenUpdating = False
 
    Range("F2:H" & Rows.Count).ClearContents
    Satır = 2
 
    For X = 2 To Cells(Rows.Count, "A").End(3).Row
        If WorksheetFunction.CountIf(Range("G:G"), Cells(X, "B")) = 0 Then
            Cells(Satır, "F") = Satır - 1
            Cells(Satır, "G") = Cells(X, "B")
            Cells(Satır, "H") = WorksheetFunction.SumIf(Range("B:B"), Cells([COLOR=red]Satır[/COLOR], "G"), Range("C:C"))
            Satır = Satır + 1
        End If
    Next
 
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[huseyin610]

Merhaba

etopla kısmı düzgün çalışmıyor sanırım.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu revize ettim. Küçük bir hatalı yazım yapmışım. Kırmızı renkle belirttim.

 

[ZİNDAN]

Merhaba;

Benim yapmak istediğim şey konunun ilk mesajında verilen ve Mahir beyin formül ile verdiği benzersiz sıralamanın toplam alarak yaptığına ikinci bir kriter getirerek tarihe göre de ayırmak istiyorum.

Mevcut excele tarih sütunu ekledim. Yani "01.10.2013" tarihine sahip "10" kodu olanların toplamı yeşil alana bir satır olarak geçsin, "02.10.2013" tarihine sahip "10" kodu olanların toplamı da yeşil alana ayrı bir satır olarak geçsin.

Forumda aradım bu konuyu buldum, formülleri de öğrendim, ancak iki kriterli toplam almayı beceremedim.

Böyle bir şey mümkün müdür?
Yardımcı olabilir misiniz?

Revize ettiğim örnek dosya mail ekindedir.
Teşekkürler.


ZİNDAN

 

[ZİNDAN]

Üstadlar bu konu da bana yardımcı olabilir misiniz?

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[ZİNDAN]

Teşekkürler.
Hazırlamaya çalıştığım dosyada tarih ve kod giremeyeceğim, benim bu tabloya tarih girişi yapmamam gerekiyor. Yani her sütunun formül ile yazdırılması gerekiyor.

 

[ZİNDAN]

Yapmak istediğimi kelimelerle anlatamıyorum, onun için bana göndermiş olduğunuz dosyanın en sağına yaptığım tablo ile göstermeye çalıştım.
İlginize teşekkürler.