Listbox benzersiz sıralama ve toplam alma

[Usyk]

Merhaba,

ListBox 1.Sütuna sıra numarası veriyorum.
ListBox 2.Sütuna "STOK" sayfasında A sütununda bulunan ürün listesini benzersiz olarak almak ve
ListBox 3.Sütuna 2. sütunda benzersiz alınan ürünlerin "STOK" sayfasında B sütununda bulunan sayılarının toplamlarını almak istiyorum.

Şöyle ki STOK Sayfası;
A B
Ürün 1 100
Ürün 2 150
Ürün 3 80
Ürün 2 98
Ürün 4 250
Ürün 1 300 şeklinde

Listbox1
1.Sütun 2.Sütun 3.Sütun
1 Ürün 1 400
2 Ürün 2 248
3 Ürün 3 80
4 Ürün 4 250
şeklinde

ListBox 1 ve 2. sütunu yaptım ama 3. sütunu yapamadım.

yardımcı olabilir misiniz?

 

[Usyk]

Sorunu çözdüm. Konu kapatılabilir.

 

[Korhan Ayhan]

Çözümü paylaşırsanız aynı çözümü arayan başkaları da faydalanmış olur..

 

[Usyk]

Çözümü paylaşırsanız aynı çözümü arayan başkaları da faydalanmış olur..

Tabi Korhan Hocam

For Sat = 2 To Sheets("STOK").Cells(65536, "a").End(xlUp).Row
If Not WorksheetFunction.CountIf(Sheets("STOK").Range("a1:a" & Sat), Cells(Sat, "a")) > 1 Then
ListBox1.AddItem
ListBox1.List(s, 0) = s + 1
ListBox1.List(s, 1) = Sheets("STOK").Range("A" & Sat)
ListBox1.List(s, 2) = Format(WorksheetFunction.SumIf(Sheets("STOK").Range("A:A"), Sheets("STOK").Range("A" & Sat), Sheets("STOK").Range("C:C")) - WorksheetFunction.VLookup(Sheets("STOK").Range("A" & Sat), Sheets("KITAP").Range("A2:F" & Sheets("KITAP").Range("A65536").End(3).Row), 5, 0), "###,###")
s = s + 1
End If: Next