textbox a listbox toplamı

[cihangirkara]

arkadaşlar firma risk formunda yeni ekledigim textboxlar var (sarı olanlar) isteğim bunlara bir üstünde listboxt ta bulunan 1. sütünlarının toplamı yazsın yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Combobox1'deki kodu aşağıdaki kod ile değiştirin. Kırmızı renkli satırlar eklenmiştir. Aynı mantığı diğer comboboxlarada uygularsınız.

Private Sub ComboBox1_Change()
Set S1 = Sheets("sayfa1")
ListBox2.Clear
For a = 2 To S1.[b65536].End(3).Row
If S1.Cells(a, "b") = TextBox1 And S1.Cells(a, "c") = ComboBox1 Then
ListBox2.AddItem
ListBox2.list(c, 0) = S1.Cells(a, "d")
[COLOR=red][B]deg = deg + S1.Cells(a, "d")[/B][/COLOR]
ListBox2.list(c, 1) = Format(S1.Cells(a, "f"), "dd.mm.yyyy")
c = c + 1
End If
Next
[B][COLOR=red]TextBox23 = deg
[/COLOR][/B]End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.