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

Katılım
12 Mayıs 2011
Mesajlar
118
Excel Vers. ve Dili
2007
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
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Kod:
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)

.
 

Ekli dosyalar

Katılım
12 Mayıs 2011
Mesajlar
118
Excel Vers. ve Dili
2007
çok teşekkür ettim
 
Üst