Tekrar eden sutunun yanındaki veirleri toplayıp ilk veriye yazsın diğerlerini 0 lasın

[IRONSELF]

Arkadaşlar kolay gelsin,
Bir konuda yardım eder misiniz. Ekteki dosyada gerekli açıklama yapılmıştır.

teşekkürler iyi çalışmalar

 

[Ömer BARAN]

Merhaba.

-- Formül ile sonuç almak için, formülü C2 hücresine uygulayıp liste boyunca kopyalayın.

=(EĞERSAY($A$1:A1;A1)=1)*TOPLA.ÇARPIM(($A$1:$A$8=A1)*($B$1:$B$8))

-- Makro ile sonuç almak için;

Sub TOPLA_BRN()
son = Cells(Rows.Count, 1).End(3).Row
For brn = 1 To son
    If WorksheetFunction.CountIf(Range("A1:A" & brn), Cells(brn, "A")) = 1 Then
        Cells(brn, 2) = Evaluate("=SUMPRODUCT((A1:A" & son & "=A" & brn & ")*(B1:B" & son & "))")
    Else: Cells(brn, 2) = 0: End If
Next
End Sub

 

[IRONSELF]

emeğinize sağlık

 

[Ömer BARAN]

Kolay gelsin.