listboxa satılan ürünlerin adetlerini ve satış

[yasef]

fiyatlarının toplamını aldırarak görüntülemek için nasıl bir kod ile yapılabilir

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub UserForm_Initialize()
    For X = 2 To [A65536].End(3).Row
    If WorksheetFunction.CountIf(Range("D2:D" & X), Cells(X, 4)) = 1 Then
    SATIŞ_FİATI = WorksheetFunction.SumIf(Range("D:D"), Cells(X, 4), [O:O])
    TOPLAM_ADET = WorksheetFunction.SumIf(Range("D:D"), Cells(X, 4), [P:P])
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Cells(X, 4) & " = " & TOPLAM_ADET & " ADET , " & "SATIŞ FİATI = " & SATIŞ_FİATI
    SATIR = SATIR + 1
    End If
    Next
End Sub

 

[veyselemre]

Sayın COST_CONTROL yardım etmiş ama bende hazırlamıştım boşa gitmesin.

 

[N.Ziya Hiçdurmaz]

Yanıt

Bir örnekte ben hazırladım.
Private Sub ComboBox1_Change()
TextBox1 = ""
With ListBox1
.Clear
.ColumnCount = 2
End With
For suz = 1 To WorksheetFunction.CountA([D165000])
If Range("D" & suz) Like ComboBox1 & "*" Then
ListBox1.AddItem
s = s + 1
ListBox1.List(s - 1, 0) = Range("D" & suz)
ListBox1.List(s - 1, 1) = Range("O" & suz)
TextBox1 = Val(TextBox1.Text) + ListBox1.List(s - 1, 1)
End If
Next
End Sub

 

[yasef]

ilgi ve bilgilerinize çok teşekkür ederim iyi çalışmalar