Listbox sütun toplama hatası

[beza]

Merhaba,
Private Sub CommandButton5_Click()
'listbox aktarım
ListBox1.AddItem
ListBox1.List(ListBox1.ListCount - 1, 0) = TextBox9.Value
ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox10.Value
ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox11.Value
ListBox1.List(ListBox1.ListCount - 1, 3) = TextBox14.Value

TextBox10.Text = ""
TextBox9.Text = ""
TextBox11.Text = ""
TextBox14.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
End If
TextBox16.Value = ListBox1.ListCount - 1
end sub

Private Sub UserForm_Initialize()
With ListBox1
'ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 4
ListBox1.ColumnWidths = "70;60;250;30"

.AddItem
.List(0, 0) = "Barkod"
.List(0, 1) = "Ürün Kodu"
.List(0, 2) = "Ürün Adı"
.List(0, 3) = "Adet"
End With

End Sub

Buraya kadar sorun yok. Yapmak istediğim listbox1 içindeki 4 sütunda bulunan adet toplamını textbox17 ye yazdırmak. Forum üzerinden bir sürü örnek inceledim, ama
bir türlü uyarlayamadım. Textbox14 den gelen adet sayılarını rakam olarak görmüyor herhalde. Sayı olarak göstermek istediğimde hata veriyor. Bu toplamı alma ihtimalim varmı?

 

[Korhan Ayhan]

Örnek kodu kendi dosyanıza uyarlarsınız.

Private Sub CommandButton1_Click()
    Dim X As Long, Toplam As Double
    
    For X = 0 To Me.ListBox1.ListCount - 1
        Toplam = Toplam + Me.ListBox1.List(X, 3)
    Next
    
    TextBox1 = Format(Toplam, "#,##0.00")
End Sub

 

[beza]

Örnek kodu kendi dosyanıza uyarlarsınız.

Private Sub CommandButton1_Click()
    Dim X As Long, Toplam As Double
   
    For X = 0 To Me.ListBox1.ListCount - 1
        Toplam = Toplam + Me.ListBox1.List(X, 3)
    Next
   
    TextBox1 = Format(Toplam, "#,##0.00")
End Sub

Korhan Bey çok teşekkür ederim. Kısmen çözüldü. Daha önce pek çok örnek kod denemiştim.
.AddItem
.List(0, 0) = "Barkod"
.List(0, 1) = "Ürün Kodu"
.List(0, 2) = "Ürün Adı"
.List(0, 3) = "Adet"
kod satırları ile listboxa başlık yazdırınca toplam alınacak sütun değerini metin olarak görüyor, o nedenle toplam almıyormuş. Başlık kaldırıldığında toplama işlemi oluyor. Başlık ile toplam alma imkanı varmı? Tekrar çok teşekkür ederim.

 

[Korhan Ayhan]

Elbette var. İlk satır başlıksa aşağıdaki kırmızı yere 1 yazmanız yeterli olacaktır.

For X = 0

 

[beza]

Elbette var. İlk satır başlıksa aşağıdaki kırmızı yere 1 yazmanız yeterli olacaktır.

For X = 0

Çok teşekkür ederim, mükemmel oldu. ListBox1.ColumnHeads = True yapıldığında listbos üstündeki ilk satırda sütun genişliklerini gösteren hücreler oluşuyor.
.AddItem
.List(0, 0) = "Barkod"
.List(0, 1) = "Ürün Kodu"
gibi başlık eklediğimde bu hücrelerin altına 2 satırda başlık oluşuyor. Bu ilk satırdaki çizgili hücreler içerisine başlıkları yazdırmak mümkünmü?
Ayırdınız zaman ve emek için tekrar çok teşekkür ederim.

 

[Korhan Ayhan]

O bahsettiğiniz sabit başlık sadece RowSource metodunu kullanırsanız oluşmaktadır. Siz verileri AddItem metoduyla yüklediğiniz için sadece görsel olarak başlığı eklemiş olursunuz.

 

[beza]

O bahsettiğiniz sabit başlık sadece RowSource metodunu kullanırsanız oluşmaktadır. Siz verileri AddItem metoduyla yüklediğiniz için sadece görsel olarak başlığı eklemiş olursunuz.

Anladım. Yardımlarınız için çok teşekkür eder, iyi günler dilerim.