ListBox tan TextBox a koşullu alma

[teksen]

Arkadaşlar merhaba,

ListBox1 üzerinde 3. kolonun toplamını aşağıdaki kodlarla TextBox1 e alıyorum.

ListBox1 in 2. kolonundada + ve - yazıyor. 2.kolonda yazan + ve - ye göre TextBox1 ve TextBox2 ye almam için kodlara nasıl bir ilave yapmam gerekir acaba?


Dim toplam As Double
For i = 0 To ListBox1.ListCount - 1
toplam = ListBox1.Column(3, i) + toplam
Next
TextBox1.Value = Format(toplam, "#,##0.00")


Şimdiden teşekkür ederim.

 

[Haluk]

Merhaba;

İstediğiniz ekteki gibi bir şey mi ?

.