Listboxtaki verilerin özeti?

[mkbal]

Konuyu anlatabilmek için basit bir form yaptım. Örnekte Textboxlardaki veriler listboxa ekleniyor ve her ekleme yaptığımda daha önce eklenenlerin kodu ile karşılaştırma yaparak mükerrer kod yazmadan aynı olan kodları tek satırda tutarlarını toplayarak yazabilmek için nasıl bir kod yazmam gerek?

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub CommandButton1_Click()
LIS = ListBox1.ListCount - 1
For Sat = 0 To LIS
If ListBox1.List(Sat) = TextBox1.Value Then
MsgBox "Bu veri önceden girilmiş", vbInformation
Exit Sub: End If: Next
ListBox1.AddItem TextBox1
ListBox2.AddItem TextBox2
TextBox1 = ""
TextBox2 = ""
End Sub

 

[mkbal]

Mükerrer girişi önlemişsiniz fakat listedeki aynı kodlu olanın tutarı artırılmıyor. Sorunumu farklı bir şekilde anlatmaya çalışacağım. Aşağıda listbox un görüntüsünü veriyorum...
Kodu Tutarı
a1 100
a2 500
a3 750
a2 350
a1 150

başka bir tuşlada bunun şu şekli almasını istiyorum

a1 250
a2 850
a3 750

 

[Tarkan VURAL]

Sn NurZiya beyin kodlarını şu şekilde revize ediniz.

Private Sub CommandButton1_Click()
LIS = ListBox1.ListCount - 1
    For Sat = 0 To LIS
        If ListBox1.List(Sat) = TextBox1.Value Then
            ListBox2.List(Sat) = Val(ListBox2.List(Sat)) + Val(TextBox2.Value)
        Exit Sub: End If: Next
            ListBox1.AddItem TextBox1
            ListBox2.AddItem TextBox2
    TextBox1 = ""
        TextBox2 = ""
End Sub

 

[mkbal]

yardımlarınız için teşekkür ederim...

 

[Tarkan VURAL]

Rica ederim , iyi çalışmalar.