Aynı isimde farklı satırlarda bulunanları tek satırda toplamak

[serserss]

Arkadaşlar merhaba,

Ekteki konu ile ilgili takıldım kaldım. Bana bu konuda yardımcı olursanız çok sevinirim.

Şimdiden teşekkürler

 

[Ömer]

Merhaba,

Sub RaporAl()
 
    Dim i As Long, S1 As Worksheet, Wf As WorksheetFunction
 
    Set S1 = Sheets("Sayfa1")
    Set Wf = WorksheetFunction
 
    Application.ScreenUpdating = False
    Sheets("Sayfa2").Select
 
    Cells.Clear: S1.[B2:C2].Copy [B1]
 
     S1.[A:A].AdvancedFilter Action:=xlFilterCopy, _
                CopyToRange:=[A1], Unique:=True
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = Wf.SumIf(S1.[A:A], Cells(i, "A"), S1.[B:B])
        Cells(i, "C") = Wf.SumIf(S1.[A:A], Cells(i, "A"), S1.[C:C])
    Next i
 
    [A:C].EntireColumn.AutoFit
 
    Application.ScreenUpdating = True
 
End Sub

Dosyanız ektedir.

Ek olarak, raporlamalar için özet tablo kullanmanızı tavsiye ederim.

ÖZET TABLOLAR (PİVOT TABLE)

.

 

[serserss]

çok teşekkür ettim