ListBox taki rakamların textboxta toplamını alma

Katılım
5 Ağustos 2004
Mesajlar
31
Merhaba

A sütununda : Ders Kodu
B sütununda :Ders Adı
C: sütununda:Ders saati

Olmak üzere oluşturduğum tablom var.
Bir form oluşturdum.
Formun initialize Kısmında aşağıdaki kodlar var

Private Sub UserForm_Initialize()
ComboBox2.RowSource = "Sayfa1!A1:C10"
ListBox1.ColumnCount = 3
ListBox1.ColumnHeads = True
ListBox1.MultiSelect = fmMultiSelectMulti
End Sub

Formumda bir tane listbox birtane de textbox var
Mouse ile listboxdaki bir satıra tıklanınca satır seçili hale geliyor tekrar
Tıklanınca seçili olmaktan çıkıyor.
Benim yapmak istediğim listbox ta seçim yapmak için tıklayınca C sütunun daki saatı kısmını Textboxta toplama yapmasını tekrar tıklayıp seçili olma durumunu kaldrınca çıkarma işlemi yapmasını istıyorum.
Yardımcı olabilirmisiniz.
 
Katılım
5 Ağustos 2004
Mesajlar
10
Merhaba,
[vb:1:d9b952665f]Private Sub ListBox1_Change()
With ListBox1
TextBox1 = Val(TextBox1) + IIf(.Selected(.ListIndex), 1, -1) * .List(.ListIndex)
End With
End Sub[/vb:1:d9b952665f]
 
Katılım
5 Ağustos 2004
Mesajlar
31
Merhaba

Sn Uzaylı

Vermiş olduğunuz kodu denedim.
Run time Error ‘13’:

Type mismatch

Hatası veriyor
 
Katılım
5 Ağustos 2004
Mesajlar
10
Kodu aşağıdaki gibi değiştirin[vb:1:a54a14dfe8]Private Sub ListBox1_Change()
With ListBox1
TextBox1 = Val(TextBox1) + IIf(.Selected(.ListIndex), 1, -1) * .List(.ListIndex, 1)
End With
End Sub[/vb:1:a54a14dfe8]
 
Katılım
5 Ağustos 2004
Mesajlar
31
Merhaba

Sn. Uzaylı

Vermiş olduğunuz kod tam olmuş.yardımınız için teşekkür ederim.
 
Üst