Mükerrer Kayıtları Toplama

[ExECan]

Amacıma uygun forumda eski bir konu buldum ama bahsedilen örnek dosyaları göremedim. Sanırım forumda taşınma olduğu için silinmişler.

Amacım var olan listemdeki adı aynı olan kişilerin puanlarını toplatıp farklı bir sayfa içerisine aktarmak. daha sonra toplamlara göre sıralatmak. Ham veri sayfamdaki mükerrer kişilerin sayısı farklılık gösterebildiği için kafam karıştı. Yardımcı olabilirseniz sevinirim. Örnek dosya ekte.

Bahsettiğim eski konu:
http://www.excel.web.tr/f48/mukerrer-kayyltlary-listeleme-ve-toplama-t3503.html

 

[hamitcan]

Betty için olan aşağıda, diğerlerini, formüle bakarak siz yapın.

=ETOPLA('Ham Veri'!A2:A14;A2;'Ham Veri'!B2:B14)+ETOPLA('Ham Veri'!A2:A14;A2;'Ham Veri'!C2:C14)+ETOPLA('Ham Veri'!A2:A14;A2;'Ham Veri'!D2:D14)

 

[Husgvarna]

Şöylede deneyebilirsiniz.

"Olması Gereken" sayfası "b2" den itibaren

 =ETOPLA('Ham Veri'!$A:$A;A2;'Ham Veri'!$E:$E)

"Ham Veri" Kod sayfasına

 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then GoTo b
Sheets("Olması Gereken").[a:a] = Empty
For a = 2 To Cells(65536, 1).End(xlUp).Row
r = Sheets("Olması Gereken").Cells(65000, 1).End(xlUp).Row + 1
If WorksheetFunction.CountIf(Range("a2:a" & a), Cells(a, 1)) = 1 Then
 Sheets("Olması Gereken").Cells(r, 1).Value = Cells(a, 1).Value
End If: Next
b:
 Sheets("Olması Gereken").Columns("A:B").Sort Key1:=Sheets("Olması Gereken").Range("B2"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub