a daki mükerrer olanların b deki değerlerini toplatmak

[jambow]

a sütunundaki mükerrer lerin b deki değerlerini toplayacak mükerrer olmayanları olduğu gibi yazacak
yani mükerrerleri toplayarak tek satır haline dönüştürecek....

a b
1 120
1 150
2 55
2 62
3 18

topla düğmesine tıkladığımızda c ve d sutununa aşağıdaki sonucu vermeli

c d
1 270
2 117
3 18

makro ile bunu yapmak mümkünmü
teşekkürler

 

[Korhan Ayhan]

Merhaba,

Özet Tablo (Pivot Table) ile kolaylıkla ve hızlıca sonuca gidebilirsiniz.

Linki inceleyiniz.

Özet Tablo Hazırlamak

 

[jambow]

evet ilk önce forumda mükerrer toplama olarak aradım bir çok sonuç çıktı ama bu benim istediğimi bulamadım ..bu sebeple konu açtım..

 

[halit3]

Kod

Sub Gruplandir()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Range("c1:d" & Rows.Count).ClearContents
son1 = Cells(Rows.Count, "a").End(3).Row
ReDim ara1(son1): ReDim ara2(son1)

say = 1
sat1 = 1
For j = 1 To son1
ara1(j) = Cells(j, "a")
ara2(j) = "AA"
Next j

For r = 1 To son1
aranan1 = ara1(r)
If ara2(r) = "AA" Then
sut2 = 0
For i = r To son1
If ara1(i) = aranan1 Then
sut2 = sut2 + CDbl(Cells(i, 2).Value)
ara2(i) = "BB"
End If
Next i
Cells(sat1, "C").Value = aranan1
Cells(sat1, "d").Value = sut2
sat1 = sat1 + 1
End If
Next r

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır."

End Sub

 

[Necdet]

Bu tür sorunları çözmek için bence en uygun yöntem Pivot Table kullanmak. Ne fonksiyona gerek kalıyor ne de makroya.