Listbox tan süzülen verilerde toplama işlemi

[49610]

Merhaba Arkadaşlar,

Bir türlü çözemedim, epeyce aradım fakat doğru sonucu bulamadım.

Listbox umda 22 sütun var,

9. sütununda (worksheet da "I" sütunu) toplamam gereken veriler var. Bu verilerin toplamlarını Textbox19 da göstermek istiyorum.
Listbox un ilk değerinde ve diğer olaylarda toplamı alabiliyorum ve Textbox19 da gösterebiliyorum.

Sorunum,

Textbox15 deki veriye göre (Enter a basıldığında) süzme işlemi yapıp, listboxa verileri getiriyorum, fakat, gelen yeni verilerin toplamı Textbox19 da güncellenmiyor ve eski toplam kalıyor.
Bir türlü yapamadım.

Hangi kodu yazmalı ve hangi olayın altına eklemeliyim? Yardımcı olursanız sevinirim.

Saygılar,

 

[Huseyinkis]

Merhaba Arkadaşlar,

Bir türlü çözemedim, epeyce aradım fakat doğru sonucu bulamadım.

Listbox umda 22 sütun var,

9. sütununda (worksheet da "I" sütunu) toplamam gereken veriler var. Bu verilerin toplamlarını Textbox19 da göstermek istiyorum.
Listbox un ilk değerinde ve diğer olaylarda toplamı alabiliyorum ve Textbox19 da gösterebiliyorum.

Sorunum,

Textbox15 deki veriye göre (Enter a basıldığında) süzme işlemi yapıp, listboxa verileri getiriyorum, fakat, gelen yeni verilerin toplamı Textbox19 da güncellenmiyor ve eski toplam kalıyor.
Bir türlü yapamadım.

Hangi kodu yazmalı ve hangi olayın altına eklemeliyim? Yardımcı olursanız sevinirim.

Saygılar,

Ekteki linki incelermisiniz. kodları Textbox15 exit kısmına koymanız gerekir.

http://www.excel.web.tr/f48/listboxta-tutary-toplama-t115864.html

 

[49610]

İlginize teşekkür ederim Hüseyin Bey,

Linkteki bilgilendirmeyi daha önce okumuş ve oradaki çalışmayı (Emine Hanım ın çalışmasını) kendime örnek almıştım. Siz bu yanıtı verdikten sonra da epeyce uğraştım, fakat bir türlü sonuç alamıyorum. Emine hanım kadar yetenekli/bilgili değilim sanırım.

Dosyamı ekte sunuyorum, eğer vaktiniz olur da gerekli düzeltmeleri yaparsanız sevinirim. Ben yine uğraşmaya devam ediyorum.

 

[Huseyinkis]

İlginize teşekkür ederim Hüseyin Bey,

Linkteki bilgilendirmeyi daha önce okumuş ve oradaki çalışmayı (Emine Hanım ın çalışmasını) kendime örnek almıştım. Siz bu yanıtı verdikten sonra da epeyce uğraştım, fakat bir türlü sonuç alamıyorum. Emine hanım kadar yetenekli/bilgili değilim sanırım.

Dosyamı ekte sunuyorum, eğer vaktiniz olur da gerekli düzeltmeleri yaparsanız sevinirim. Ben yine uğraşmaya devam ediyorum.

textbox13-14-15 ezit kısımlarını ekteki kodlar ile değiştrin. Eğer bulabilirsem daha farklı bir yontemle yapmaya çalışacağım..

Private Sub TextBox15_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
 aaa = WorksheetFunction.SumIf(Range("J2:J65000"), "*" & TextBox15 & "*", Range("I2:I65000"))
 TextBox19 = Format(aaa, "#,##0.00")
 
TextBox15.Text = "-ÖDENECEK ARA-"
End Sub


Private Sub TextBox14_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
aaa = WorksheetFunction.SumIf(Range("a2:a65000"), TextBox14, Range("I2:I65000"))
TextBox19 = Format(aaa, "#,##0.00")

TextBox14.Text = "-DÖNEM ARA-"
End Sub


Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)

 aaa = WorksheetFunction.SumIf(Range("c2:c65000"), "*" & TextBox13 & "*", Range("I2:I65000"))
 TextBox19 = Format(aaa, "#,##0.00")
 
TextBox13.Text = "-FİRMA ARA-"
End Sub

 

[49610]

İlginize teşekkür ederim Hüseyin Bey,