Listbox sutunundaki kritere göre toplama

[memduh]

Listboxta 1 kolonda c harfine karşılık gelen 2 colondaki sayıları textbox1 re ve b harfine karşılık gelenleri textbox2ye toplamını aldırmak istiyorum.

 

[hamitcan]

Aşağıdaki şekilde deneyin

Private Sub CommandButton1_Click()
son = [a65536].End(3).Row
TextBox1 = WorksheetFunction.SumIf(Range("a1:" & "a" & son), "c", Range("b1:" & "b" & son))
TextBox2 = WorksheetFunction.SumIf(Range("a1:" & "a" & son), "b", Range("b1:" & "b" & son))
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub TextBox1_Change()
ListBox1.Clear
ListBox1.ColumnCount = 2
TextBox2 = Empty
For sut = 1 To [a65536].End(3).Row
If Range("a" & sut) Like TextBox1 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Range("a" & sut)
ListBox1.List(s, 1) = Range("b" & sut)
TextBox2 = Val(TextBox2) + ListBox1.List(s, 1)
s = s + 1
End If
Next
End Sub
Private Sub UserForm_Initialize()
TextBox1 = "."
TextBox1 = ""
End Sub

 

[memduh]

Arkadaşlar cevaplarınız için teşekkür ederim.
ama ben bu şekilde değil de sadece listboxta ki verileri koşula göre toplamını lamasını istedim. Örnek olarak dosyayı hazırlamıştım. demek istediğim exel sayfasıyla hiç bir bağlantı kurulmadan sadece listboxta toplamını almak istiyorum. teşekkürler saygılar.

 

[hamitcan]

listbox içindeki verileri sayfadan aldığınızı belirtmişsiniz. Sayfadaki veri ile listboxdaki veriler arasında farklılık var mı?

 

[memduh]

Hata benim kusura bakmayın. örnek dosyadaki açıklamada belirtmiştim. verileri mdb dosyasından çekiyorum. asıl dosya büyük olduğu için göndermedim.
örnek hazırladım farklılık var yani listboxın birinci sutunundaki kritere göre textbox1 ve textbox2 ye toplam aldırmam gerekiyor. kısa olsun diye harf yazdım ama bu değişikte olabilir mi? saygılar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    Dim Toplam1, Toplam2 As Double
    If ListBox1.ListCount = 0 Then Exit Sub
    For X = 0 To ListBox1.ListCount - 1
    If ListBox1.List(X, 0) = "c" Then
    Toplam1 = CDbl(Toplam1) + CDbl(ListBox1.List(X, 1))
    End If
    If ListBox1.List(X, 0) = "b" Then
    Toplam2 = CDbl(Toplam2) + CDbl(ListBox1.List(X, 1))
    End If
    Next
    TextBox1 = Format(Toplam1, "#,##0.00")
    TextBox2 = Format(Toplam2, "#,##0.00")
End Sub