Listbox 'da Aynı Olanları Toplama

[unfors]

Listbox İçerisinde, Sayfaya aktarım yapmadan aynı olan kayıtları toplamak istiyorum.
Örneğin;
elma……..10
armut …...5
elma...…...15

işlem Sonucu;
elma...…..25
armut...….5

 

[unfors]

Başka bir listbox'a da aktarım yapılabilir.

 

[Orion1]

Linkteki dosyayı inceleyiniz.

DOSYAYI İNDİR

.

 

[unfors]

Sayfaya hiç aktarmadan başka bir listbox'a aktarmak mümkün müdür acaba?

 

[Orion1]

Sayfaya hiç aktarmadan başka bir listbox'a aktarmak mümkün müdür acaba?

Buyurun.

DOSYA İNDİR

.

 

[unfors]

Mükemmel olmuş. Emeğinize sağlık.Çok teşekkür ederim.

 

[Orion1]

Rica ederim.
İyi çalışmalar.

 

[unfors]

Hocam bir sorum daha olacak benim yaptığım örnekte toplam aldığımız sütunun öncesinde ve sonrasında değerler mevcut, onları nasıl alabilirim. Sonuç 2 sütun olarak geliyor. Örn;
elma kırmızı 3 adet
armut yeşil 2 adet
elma kımızı 5 adet

sonuç;
elma kırmızı 8 adet
armut yeşil 2 adet gibi

 

[Orion1]

Benim yolladığım dosyada mükerer veri göstermiyor.
Sizin verileriniz ayni değildir.Sonunda boşluk olabilir.
Yada Büyük küçük harf eşitsizliği oalbilir.
Olmadı denen dosyayı ekleyiniz.Bir bakalım.

 

[unfors]

Dosyayı açıklama yazarak gönderdim. Aslında istediğim daha basit bir şey ama yapamadım
http://dosya.co/bybdxhowa06g/liste59V2.xlsm.html

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    ListBox2.Clear
    
    Set Dizi = CreateObject("Scripting.Dictionary")
    
    ReDim Liste(1 To 4, 1 To ListBox1.ListCount - 1)
    
    For X = 0 To ListBox1.ListCount - 1
        Veri = ListBox1.List(X, 0) & ListBox1.List(X, 1)
        If Not Dizi.Exists(Veri) Then
            Say = Say + 1
            Dizi.Add Veri, Say
            Liste(1, Say) = ListBox1.List(X, 0)
            Liste(2, Say) = ListBox1.List(X, 1)
            Liste(4, Say) = ListBox1.List(X, 3)
        End If
        Liste(3, Dizi.Item(Veri)) = Liste(3, Dizi.Item(Veri)) + CDbl(ListBox1.List(X, 2))
    Next
            
    ListBox2.Column = Liste
End Sub

 

[unfors]

Tam olarak bu şekilde. Çok teşekkür ederim