listboxta toplama, çoklu süzme

[Fuat Şirin]

Herkese selamlar
2 sorum olacak

1. sorum ; listboxta mesela 3 . sütündakileri sayfada değilde
listboxta toplama yapmasını ve bu toplamı textbox a atmasını istiyorum

2. sorumda mesela 10 sütuna veri giriyorum
bu girdiğim verileri listboxta aynı excel deki gibi süzmek istiyorum
yani bir sütunu değil tüm sütunları süzmek istiyorum

örnek bir çalışma yapılırsa kendime uyarlarım

Herkese selamlar saygılar;

 

[Fuat Şirin]

yardım edecek arkadaş yok mu çok rica

 

[Korhan Ayhan]

Selamlar,

Sorularınızın cevabını ekteki örnek dosyada bulabilirsiniz. Umarım faydası olur.

 

[Fuat Şirin]

tşk

hocam çok tşk ettim tam olarak istediğim buydu
işte burda yapmak istediğim şu
burda mesela iki sutuna göre fiyat giriliyor
3. sütundakini altalta topluyor
benim istediğim bu iki sutunda userformda filtre yaptığımda
filtre yaptığım seçenekleri toplaması
tıpkı alttoplam gibi

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[Fuat Şirin]

tşk

hocam ellerinize sağlık
süper olmuş
basit bişey var ama düzeltebilirmiyiz
combobox rowsource ile alınabilir mi
bide iki tane aynı üründen olunca toplama yapmıyor
yan yana diziyor

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[Fuat Şirin]

TOPLAM = CDbl(TOPLAM) + CDbl(ListBox1.List(X, 2))
bu satırda hata veriyor

 

[Korhan Ayhan]

Selamlar,

Bende hata vermeden çalışıyor.

 

[Fuat Şirin]

selam

hocam kusura bakmayın bu saatte böle
olmuyor ama isterseniz yarın bakarsınız.
ekteki video ya bakarsanız bende bu şekilde oluyor

 

[Korhan Ayhan]

Selamlar,

SÜZ butonuna ait kodları aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
    [color=red]On Error Resume Next[/color]
    Set S1 = Sheets("Sayfa1")
    If ComboBox1 <> "" Then
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 3
    ListBox1.ColumnHeads = False
    For X = 2 To S1.[A65536].End(3).Row
    If S1.Cells(X, 2) = ComboBox1 Then
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Format(S1.Cells(X, 1), "dd.mm.yyyy")
    ListBox1.List(SATIR, 1) = S1.Cells(X, 2)
    ListBox1.List(SATIR, 2) = Format(S1.Cells(X, 3), "#,##0.00 YTL")
    SATIR = SATIR + 1
    End If
    Next
    Else
    ListBox1.RowSource = "Sayfa1!A2:C" & S1.[A65536].End(3).Row
    End If
    For X = 0 To ListBox1.ListCount - 1
    TOPLAM = CDbl(TOPLAM) + CDbl(ListBox1.List(X, 2))
    Next
    TextBox1 = Format(TOPLAM, "#,##0.00 YTL")
End Sub

 

[Orion1]

Merhaba.
Aşağıdaki kodlarda Kırmızı ile yazılan satırdaki gibi değişiklil yapıp denermisiniz.

Private Sub CommandButton1_Click()
    Set S1 = Sheets("Sayfa1")
    If ComboBox1 <> "" Then
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 3
    ListBox1.ColumnHeads = False
    For X = 2 To S1.[A65536].End(3).Row
    If S1.Cells(X, 2) = ComboBox1 Then
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Format(S1.Cells(X, 1), "dd.mm.yyyy")
    ListBox1.List(SATIR, 1) = S1.Cells(X, 2)
    ListBox1.List(SATIR, 2) = Format(S1.Cells(X, 3), "#,##0.00 YTL")
    SATIR = SATIR + 1
    End If
    Next
    Else
    ListBox1.RowSource = "Sayfa1!A2:C" & S1.[A65536].End(3).Row
    End If
    For X = 0 To ListBox1.ListCount - 1
    [COLOR="Red"]TOPLAM = TOPLAM + ListBox1.List(X, 2)[/COLOR]
    Next
    TextBox1 = Format(TOPLAM, "#,##0.00 YTL")
End Sub

 

[Fuat Şirin]

sn sezar
sn cost_control
her ikinizin dediğinide yaptım
sn sezar ın verdiği örnekte aynı isimde 1 den fazla olunca textbox1 de toplamıyor yan yana diziyor
sn cost_control verdiği koddada toplama yapmıyor
Saygılarımla;

 

[Korhan Ayhan]

Selamlar,

İlginç bir durum üstteki mesajımdaki dosyayı hem evde hemde işyerindeki bilgisayarda denedim gayet güzel çalışıyor.

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Private Sub CommandButton1_Click()
Dim TOPLAM As Double
    Set S1 = Sheets("Sayfa1")
    If ComboBox1 <> "" Then
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 3
    ListBox1.ColumnHeads = False
    For X = 2 To S1.[A65536].End(3).Row
    If S1.Cells(X, 2) = ComboBox1 Then
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Format(S1.Cells(X, 1), "dd.mm.yyyy")
    ListBox1.List(SATIR, 1) = S1.Cells(X, 2)
    ListBox1.List(SATIR, 2) = Format(S1.Cells(X, 3), "#,##0.00")
    SATIR = SATIR + 1
    End If
    Next
    Else
    ListBox1.RowSource = "Sayfa1!A2:C" & S1.[A65536].End(3).Row
    End If
    For X = 0 To ListBox1.ListCount - 1
    TOPLAM = TOPLAM + CSng(ListBox1.List(X, 2))
    Next
    TextBox1 = Format(TOPLAM, "#,##0.00 YTL")
End Sub

 

[Fuat Şirin]

kesinlikle olay budur
çok tşk ederim

 

[Fuat Şirin]

burda geliştirme açısından bişey sormak istiyorum
mesela combo1 e göre filtre yapıyoruz
bu combo2 3 4 olsa ona göre filtre yapsak
tıpkı exceldeki nasıl eklememiz lazım
yöntem olarak sölerseniz kendime uyarlayabilirim

 

[Orion1]

Aşağıdaki şekilde deneyebilirsiniz.

If S1.Cells(X, 2) = ComboBox1 and S1.cells(X,1)=combobox2 and S1.cells(X,3)=combobox3 Then
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Format(S1.Cells(X, 1), "dd.mm.yyyy")
    ListBox1.List(SATIR, 1) = S1.Cells(X, 2)
    ListBox1.List(SATIR, 2) = Format(S1.Cells(X, 3), "#,##0.00")

 

[Fuat Şirin]

hocam yapamadım 2. comboyu koyup bir yaparsanız
aradaki farkla ben 3. yü 4 . yü yaparım
saygılarımla

 

[Orion1]

Ekli dosyayı inceleyiniz.
Tarih ve Firma adına göre listeleme yapıyor.
Küçük Büyük harfe duyarlı.