Listbox'da seçilen satırda işlem

[seddur]

Merhaba.Aşağıdaki kod ile Listbox3'ün, 4.kolonundaki sayısal veriyi 1 azaltıyorum.Ancak kod listbox3'de en son satırdaki veriyi azaltıyor benim istediğim hangi satırı seçersem o satırın 4.kolonundaki veriyi azaltsın.Teşekkür Ederim.

Private Sub CommandButton15_Click()
Dim a As Byte
For a = ListBox3.ListCount - 1 To 20
If ListBox3.Selected(a) = True Then
ListBox3.List(a, 4) = Int(ListBox3.List(a, 4)) - 1
End sub

 

[Korhan Ayhan]

Sorularınızı mümkünse örnek dosya ile desteklemeniz cevap almanızı kolaylaştıracaktır.

 

[alicimri]

Merhaba
Herhalde böyle bir kod işe yarar. Sütun numaraları 0 (sıfır) dan başlar.

Dim i As Integer
For i = 0 To ListBox3.ListCount - 1
   If (ListBox3.Selected(i) = True) Then
     ListBox3.List(i, 3) = ListBox3.List(i,3) - 1
   End If
Next i

 

[seddur]

Tamamdır kod istediğim gibi çalışıyor.Tekrar Teşekkür ederim.