ListBox taki rakamların textboxta toplamını alma

[guraycakir]

Merhaba

A sütununda : Ders Kodu
B sütununda ers Adı
C: sütunundaers 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.

 

[uzaylı]

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]

 

[guraycakir]

Merhaba

Sn Uzaylı

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

Type mismatch

Hatası veriyor

 

[guraycakir]

slm
dosyayı göndemeye çalışıyorum

 

[uzaylı]

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]

 

[guraycakir]

Merhaba

Sn. Uzaylı

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