bul sırala toplam al

[köse]

merhaba arkadaşlar userform aracılıgı ile veri aktardığım bir excel sayfam var sütunlardan biri aldığı avans diğeri isim şöyle birşey yapmak istiyorum adını yazdığım kişinin o listede nekadar aldığı avans varsa bulsun alt alta sıralasın ve toplam alsın yardımlarınız için şimdiden teşekkür ederim

 

[danersin]

Bunu uyarlamaya çalışın.
A sütununda isimler
B de sayılar varken
A sütununa göre soralayıp
A daki isimler değiştikce araya satır ekleyip toplamları alıyor
Döngü A sütunu dolu olduğu müddetce çalışıyor.


[vb:1:a9c60a78e7]Sub Makro1()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
i = 2
Do While Cells(i, 1) <> ""
If Cells(i + 1, 1) = Cells(i, 1) Then
toplam = toplam + Cells(i, 2)
Else
toplam = toplam + Cells(i, 2)
i = i + 1
Cells(i, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
Cells(i, 1) = "toplam"
Cells(i, 2) = toplam
toplam = 0
End If
i = i + 1
Loop
End Sub[/vb:1:a9c60a78e7]