Stunlardaki değerlerin Toplamlarını Tekboxlara Aldırmak

[taseraydin]

ComboBox ta seçilen isme karşılık gelen Stunlardaki değerlerin Toplamlarını
Tekbox'a Aldırma işlemin de yardımcı olurmusunuz..

 

[Husgvarna]

Merhaba.

Aşağıdaki kodları deneyin.

Private Sub ComboBox1_Change()
TextBox1.Text = 0
TextBox2.Text = 0
c = 4
For a = 1 To WorksheetFunction.CountIf(Range("b5:b65000"), ComboBox1)
Set b = Range("b" & c & ":b65000").Find(What:=ComboBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not b Is Nothing Then
TextBox1.Text = TextBox1.Text + Cells(b.Row, 3)
TextBox2.Text = TextBox2.Text + Cells(b.Row, 4)
c = b.Row
End If
Next
End Sub

 

[paranormal]

Ozur hatali giris