Makro ile ayni olanları toplama

[northcyprus]

sayın hocalarım dosyayı ekledim şimdiden yardımlarınız için teşekür ediyorum..

 

[Korhan Ayhan]

Merhaba,

Verinizin yedeğini alıp aşağıdaki kodu deneyiniz.

Sub AYNI_OLANLARI_TOPLA()
    Dim X, Son
    
    Son = Cells(Rows.Count, "D").End(3).Row
    
    If Son <= 11 Then Exit Sub
    
    For X = Son To 11 Step -1
        Cells(X, 1) = WorksheetFunction.SumIf(Range("B:B"), Cells(X, "B"), Range("A:A"))
        Cells(X, 4) = WorksheetFunction.SumIf(Range("B:B"), Cells(X, "B"), Range("D:D"))
        If WorksheetFunction.CountIf(Range("B" & Son & ":B" & X), Cells(X, "B")) > 1 Then
            Rows(X).Delete
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[northcyprus]

Sayın korhan hocam teşekür ediyorum elinize sağlık