Listbox seçili satırda sütun değiştirme hatası

[beza]

Merhaba,
Listbox2 içerisine alınan verilerden 3. Sütun adet verisi değiştirilebiliyor. (Yeni bir userform üzerindeki Combobox1 içerisinden seçilerek adet değiştiriliyor.)
Listbox 2 içerisine 1 den fazla satır veri olduğunda en son satır düzgün çalışıyor. Yani adet değiştiğinde sütun 2 deki fiyat ile sütun 3 deki adeti çarpıp sütun 4 e toplamı yazıyor.
En son satır üstündeki satırlarda adet değişiyor ancak tutar değişmiyor.
Sorunu da bulamıyorum. İlgili kodlar aşağıda ekli.
Düzeltmek için ne yapmam gerekir?

Private Sub ComboBox1_Change()
Dim X As Integer

X = SiparisMenu.ListBox2.ListIndex

If X <> -1 Then
SiparisMenu.ListBox2.List(X, 3) = ComboBox1.Value
Adet = SiparisMenu.ListBox2.Column(3, SiparisMenu.ListBox2.ListCount - 1)
Fiyat = SiparisMenu.ListBox2.Column(2, SiparisMenu.ListBox2.ListCount - 1)
SiparisMenu.ListBox2.Column(4, SiparisMenu.ListBox2.ListCount - 1) = (Adet * Fiyat)

End If

End Sub

 

[ÖmerBey]

Merhaba,
Açıkçası ListCount komutunu neden kullandığınızı anlayamadım, ya da ne yapmak istediğinizi...
Kodu aşağıdaki şekilde dener misiniz?

If X <> -1 Then
SiparisMenu.ListBox2.List(X, 3) = ComboBox1.Value
Adet = SiparisMenu.ListBox2.List(X, 3)
Fiyat = SiparisMenu.ListBox2.List(X, 2)
SiparisMenu.ListBox2.List(X, 4) = (Adet * Fiyat)

End If

 

[beza]

Merhaba Ömer Bey,
Rahatsızlığım nedeni ile bir süre giriş yapamadım.
Gönderdiğiniz kodu denedim. Listbox2 içerisinde seçili olan satır değil,
sadece en üst satırda ilgili sütun değişiyor.
Yapmak istediğim; Listbox2 içerisine gelen verilerden sadece 3.sütunda bulunan adet bilgisini değiştirmek
istiyorum. Adet değiştiğinde tutarda değişeceği için sütun 2 deki fiyat ile sütun 3 deki adeti çarpılıp sütun 4 deki
toplam tutar yeni adede göre değişsin.
Bu işlem seçili satırda olacak. Çünkü satır sayısı gelen veriye göre değişiyor.
Ayırdığınız zaman ve emek için teşekkür ederim.

 

[ÖmerBey]

Bu şekilde sorunuz anlaşılmıyor sanki, örnek dosya paylaşırsanız daha iyi anlaşılacaktır.

 

[beza]

Ömer Bey Merhaba,
Gönderdiğiniz kod, doğru yere uygulandığında sorun çözüldü.
Ben dikkat etmeden hatalı dizine eklemişim.
Tekrar ayırdığınız zaman için çok teşekkür ederim.