Mükerrer kayıtlarda Toplamı en yüksek olanların listelenmesi

[denizaslan]

merhabalar

ek'teki liste de dosya numaraları ve tutarlar yer almaktadır, bu şekilde elimde 100.000 satırdan fazla veri var,

yapılmak istenen;

ayrı dosya numaralarına sahip veriler ve tutarlar alınsın, mükerrer olan kayıtlarda ise toplamı en yüksek olan hücrelerin farklı bir yerde listelenmesi gerekiyor.

lütfen yardımcı olur musunuz?

 

[denizaslan]

yok mu yardım edebilecek kimse ?

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanıza görmek istediğiniz sonucuda ekleyip güncellermisiniz.

 

[denizaslan]

Sonuç

almak istediğimiz sonuç ekli dosya da gösterilmiştir.

 

[Ömer]

Merhaba,

Module kopyalayarak çalıştırınız..

Sub Benzersiz()
 
Dim S1 As Worksheet, son As Long, i As Long
Set S1 = Sheets("Sayfa1")
 
Application.ScreenUpdating = False
Sheets("Sayfa2").Select
[A:B].Clear
son = S1.Cells(Rows.Count, "A").End(xlUp).Row
 
S1.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
    CopyToRange:=Range("A1"), Unique:=True
    
S1.[B1].Copy [B1]
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B").FormulaArray = "=MAX(IF(Sayfa1!A2:A" & son & "=A" _
        & i & ",Sayfa1!B2:B" & son & "))"
    Next i
Columns("A:B").EntireColumn.AutoFit
 
Application.ScreenUpdating = True
End Sub

.

 

[Korhan Ayhan]

Selamlar,

Sn. Ömer bey makrolu çözüm sunmuş. Bende formülle çözüm hazırlamıştım. Alternatif olarak ekteki örnek dosyayı incelermisiniz.

 

[denizaslan]

Teşekkürler Ömer bey ve korhan bey,

VB kod ile çözüme ulaştık.

Ellerinize sağlık.