ListBox veya ComboBox

[cocoa35]

Arkadaşlar bir konuda yardıma ihtiyacım var, Ekl excel dosyasında görüleceği üzere Sayfa 1 'de bir tablo var bu tabloda Malzeme ve Tutarları bulunmakta , Benim yaptırmak istediğim UserForm1 de Malzeme TextBox1 yanında combobox veya listbox bulunsun burayı tıkladığımda sayfa1'deki tabloda bulunan malzeme sütünundaki isimler çıksın ben onlardan çoklu seçim yapabileyim seçtiklerimin karşısındaki miktarların toplamını textbox'a ve aynı zamanda sayfa1 A1 'e yazsın.
Bu konuda yardım istiyorum Teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
deg = ""
TextBox1.Value = ""
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) = True Then
        deg = deg & "-" & ListBox2.List(i, 0)
    End If
Next i
TextBox1.Value = deg
Range("A1").Value = deg
End Sub

 

[cocoa35]

Üstat gayet güzel olmuş ancak TextBox'a ve hücreye malzeme isimleri değil toplam tutarı yazmasını istiyorum

 

[Orion1]

Üstat gayet güzel olmuş ancak TextBox'a ve hücreye malzeme isimleri değil toplam tutarı yazmasını istiyorum

Commandbuttondaki kodu aşağıdaki gibi yapın.

Private Sub CommandButton1_Click()
Dim deg As Double
deg = 0
TextBox1.Value = ""
Range("A1").Value = 0
For i = 0 To ListBox2.ListCount - 1
    If ListBox2.Selected(i) = True Then
        deg = deg + ListBox2.List(i, 1)
    End If
Next i
TextBox1.Value = Format(deg, "#,##0.00")
Range("A1").NumberFormat = "#,##0.00"
Range("A1").Value = deg
End Sub

 

[cocoa35]

Üstat çok teşekkürler gayet güzel olmuş.

 

[cocoa35]

Üstat vakit çok geç biliyorum ancak mutlaka yarın sabah okursun mesajımı , bir şey rica edeceğim bu uygulamayı Listbox ile değilde Combobox ile yapılabilirmi acaba , çünkü userform açıldığında listbox çarşaf gibi gözüküyor combobox'da tuşu tıkladığımızda istediğim liste geliyor.

 

[seckinb]

Elinize sağlık, çoklu seçimi eklemeyi buradan öğreniyorum.

 

[cocoa35]

Üstat merhaba; Kod'ları benim dosyama uyarladım ancak textbox1'e aktarmayı bir türlü yapmıyor. ek'te benim dosyamın kod'ları bulunmakta hata nerde olabilir acaba?

 

[cocoa35]

Sn Orion1 yukarıdaki kod'ları başka kitapçıkta deniyorum gayet güzel çalışıyor. Benim programımda maalesef Textbox1'e toplamı almıyor ! bunun nedeni ne olabilir ? yardım lütfen

 

[Orion1]

Dosyayı görmem lazım.
Dosyanızı imzamdaki email adresime atın.Bir bakayım.