otomatik filtreleme

[diksabri]

iyi çalışmalar diliyorum ben excelde basit bir liste hazırladım bu liste şu şekilde

ÜRÜN ADET
5233 2
5286 1
9440 5
5233 1
6220 5
9440 3


liste bu şekilde aynı üründen birden fazla var ve adetleride farklı ben aynı ürünleri ör. 5233 NF toplam 5 tane ben bunu başka bir sayfada ürün 5233 NF adet 5 olarak nasıl bi liste şeklinde yapabilirim yardımlarınız için şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktartopla()
Dim s2 As Worksheet
Dim sat, sat2, s As Long
On Error Resume Next
Set s2 = Sheets("Sayfa2")
s2.[a2:b1000] = Empty
s = 2
    For sat = 2 To Cells(65536, "a").End(xlUp).Row
        If WorksheetFunction.CountIf(Range("a2:a" & sat), Cells(sat, "a")) > 1 Then
            Cells(sat, "a").Copy s2.Cells(s, "a")
            s = s + 1
        End If
    Next
    For sat = 2 To Cells(65536, "a").End(xlUp).Row
    For sat2 = 2 To s2.Cells(65536, "a").End(xlUp).Row
        If Cells(sat, "a") Like s2.Cells(sat2, "a") Then
            s2.Cells(sat2, "b") = s2.Cells(sat2, "b") + Cells(sat, "b")
        End If
    Next: Next
    Set s2 = Nothing
End Sub