Mükerrer ayıklama ve toplama

[sirkülasyon]

Selamün Aleyküm, Hayırlı Ramazanlar

Ekli dosyamda Kurum adları mükerrer olan sütun var. Diğer sütunda da tutarlar yazılı.
Düğmeye bağlanarak Mükerrer olanları teke indirecek aynı zamanda da tutarları da toplayarak teke indirecek

Şöyle ki;
A Kurumunu teke indirecek Ödeme tutarı kısmında da A kurumuna ait tüm tutarları toplayacak ve teke indirdiği A kurumunun karşısına yazacak.

Kurum Adı Yetkili Ödeme Tutarı
A Kurumu A kişisi 674,13
gibi

Saygı ve Hürmetlerimle

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub topla()
son = Cells(Rows.Count, "B").End(3).Row
For i = 3 To son
    Cells(i, "D") = WorksheetFunction.SumIf(Range("B3:B" & son), Cells(i, "B"), Range("D3:D" & son))
Next
    ActiveSheet.Range("$A$2:$D$" & son).RemoveDuplicates Columns:=2, Header:=xlYes
End Sub

 

[sirkülasyon]

yusuf Abi
Ellerine Sağlık