Aynı isimde olan satırların tolamını ve adet sayılarını aldırma

[green_fast]

Merhaba arkadaşlar, sizlerden çok şey öğrendim bir konuda sizin yardımınıza ihtiyacım var. Excelde alıcı, satıcı ve tutarları var aynı sütunda olan satıcılarımın toplamını alıp kaç adet olduğunu yanlarına yazmasını istiyorum. Bu şekilde verilerim 700 satır civarlarında tek tek yapmak çok zor oluyor. özet tablo şeklinde de çok denedim ama sorunumu çözemedim ekte yapmak istediğim işlemin excel tablosu var yardımcı olursanız büyük bir yükten kurtulacağım.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Duzenle()
 
    Dim i As Long, Wf As WorksheetFunction
    
    Set Wf = WorksheetFunction
    
    Application.ScreenUpdating = False
    
    Range("G2:G65536, I2:I65536").ClearContents
    
    For i = 2 To Cells(Rows.Count, "J").End(xlUp).Row
        If Wf.CountIf(Range("H2:H" & i), Cells(i, "H")) = 1 Then
            Cells(i, "G") = Wf.CountIf([H:H], Cells(i, "H"))
            Cells(i, "I") = Wf.SumIf([H:H], Cells(i, "H"), [J:J])
        End If
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.

 

[green_fast]

Ömer bey makro bilgim yok başka şekilde nasıl yapabilirim acaba ?

 

[Ömer]

Ömer bey makro bilgim yok başka şekilde nasıl yapabilirim acaba ?

G2:

=EĞER(EĞERSAY($H$2:H2;H2)=1;EĞERSAY(H:H;H2);"")

I2:

=EĞER(EĞERSAY($H$2:H2;H2)=1;ETOPLA(H:H;H2;J:J);"")

hücrelerine yazıp alt satırlara kopyalayın.

.

 

[green_fast]

Üsdat eline koluna sağlık. Allah senden razı olsun. Ne kadar teşekkür etsem azdır. Çok işime yaradı.