listboxta toplama, çoklu süzme

Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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;
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Sorularınızın cevabını ekteki örnek dosyada bulabilirsiniz. Umarım faydası olur.
 
Son düzenleme:
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
TOPLAM = CDbl(TOPLAM) + CDbl(ListBox1.List(X, 2))
bu satırda hata veriyor
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Bende hata vermeden çalışıyor.
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
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

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

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

Kod:
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

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodlarda Kırmızı ile yazılan satırdaki gibi değişiklil yapıp denermisiniz.:cool:
Kod:
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
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
sn sezar
sn cost_control
her ikinizin dedi&#287;inide yapt&#305;m
sn sezar &#305;n verdi&#287;i &#246;rnekte ayn&#305; isimde 1 den fazla olunca textbox1 de toplam&#305;yor yan yana diziyor
sn cost_control verdi&#287;i koddada toplama yapm&#305;yor
Sayg&#305;lar&#305;mla;
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,250
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

&#304;lgin&#231; bir durum &#252;stteki mesaj&#305;mdaki dosyay&#305; hem evde hemde i&#351;yerindeki bilgisayarda denedim gayet g&#252;zel &#231;al&#305;&#351;&#305;yor.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodları denermisiniz.:cool:
Kod:
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
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
burda geli&#351;tirme a&#231;&#305;s&#305;ndan bi&#351;ey sormak istiyorum
mesela combo1 e g&#246;re filtre yap&#305;yoruz
bu combo2 3 4 olsa ona g&#246;re filtre yapsak
t&#305;pk&#305; exceldeki nas&#305;l eklememiz laz&#305;m
y&#246;ntem olarak s&#246;lerseniz kendime uyarlayabilirim
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki şekilde deneyebilirsiniz.:cool:
Kod:
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")
 
Katılım
20 Aralık 2006
Mesajlar
939
Excel Vers. ve Dili
türkçe
hocam yapamad&#305;m 2. comboyu koyup bir yaparsan&#305;z
aradaki farkla ben 3. y&#252; 4 . y&#252; yapar&#305;m
sayg&#305;lar&#305;mla
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.:cool:
Tarih ve Firma adına göre listeleme yapıyor.
Küçük Büyük harfe duyarlı.:cool:
 
Üst