ListBoxta Tutarı toplama...

[Emine Şahin]

Merhaba arkadaşlar. Konuyla alakalı bir kaç konu bulsam da ihtiyacıma cevap vermedi. Ya da ben pek anlayamadım.

Yapmak istediğim, LitsBoxta alt alta "I" sütunundaki tutarların toplamını TextBoxa hesaplatmak. Burada küçük bir nüans var. ListBoxsımda verileri filitre ediyorum. Tarih aralığını yada kişi arama gibi. Bu durumda excelde alttoplama benzer bir durum oluşacak. Benim her hareketimde toplam değer hesaplanmalı.

Umarım anlatabildim. Dosyam ektedir?

 

[Huseyinkis]

Merhaba arkadaşlar. Konuyla alakalı bir kaç konu bulsam da ihtiyacıma cevap vermedi. Ya da ben pek anlayamadım.

Yapmak istediğim, LitsBoxta alt alta "I" sütunundaki tutarların toplamını TextBoxa hesaplatmak. Burada küçük bir nüans var. ListBoxsımda verileri filitre ediyorum. Tarih aralığını yada kişi arama gibi. Bu durumda excelde alttoplama benzer bir durum oluşacak. Benim her hareketimde toplam değer hesaplanmalı.

Umarım anlatabildim. Dosyam ektedir?

Ekteki kodları TextBox18.Text = ListBox1.ListCount kodunu yazdığınız yerlere ekleyip denermisiniz.

Eklediğiniz textbox sın numarasını TextBox19 yerine yazın.

For i20 = 1 To ListBox1.ListCount
If IsNumeric(i) Then
aaa = aaa + ListBox1.Column(8, i)
End If
Next i20
TextBox19= Format(aaa, "#,##0.00")
End Sub

 

[Emine Şahin]

Merhaba Hüseyin Bey.
1) Ne garip bir durum. Anlayamadım. 24 satırdan az veri varsa hata veriyor.
Gerçi şu an az veri sıkıntım yok ama... İleride bu sıkıntı olabilir mi?
2) İnitializedeki TextBox18.Text = ListBox1.ListCount kodlarımın altına ekledim.
Burada kodlar çalıştı ama hesaplamada bir hata çıkıyordu. Biraz kurcaladıktan sonra fiyatları 100 TL olarak hesaplıyor.
Siz ister 200 yazın ister 500, o hepsini 100 olarak hesaplıyor. Yani 50 satır varsa 5.000,00 olarak hesaplıyor.
Satır sayısı ile alakalı olabilir mi anlamadım?
3) Kodları diğer kodların altına ekleyemiyorum. Run-Time error "381" hatası veriyor.
Yani ekleyip iki tarih arasını aldığımda filtreleme yapmıyor hataya düşüyor.
Bu sebeple diğer filtreleme yaptığım noktalara eklemedim?

 

[halit3]

CommandButton12_Click

komut düğmesine ait kodların
Next Sutun
dan sonra

If IsNumeric(.Cells(i, 9)) = True Then
deg = deg + Round(.Cells(i, 9).Text, 2) * 1
End If

bunları ekleyin

TextBox18.Text = ListBox1.ListCount
bundan sonra

TextBox19 = Format(deg, "#,##0.00")

ekleyin

bu koduda

UserForm_Initialize

altına ekleyin

TextBox19 = Format(WorksheetFunction.Sum(Range("I2:I65000")), "#,##0.00")

 

[Emine Şahin]

Teşekkür ederim Halit Bey.
Gösterdiğiniz şekliyle kodları ekledim. Genel Toplamı güzel alıyor.
Ama filtreleme ya da iki tarih arasını aldığımda hesaplamayı göstermiyor.
Acaba kodlar güncelleme yapmıyorda ondan olabilir mi?
Çünkü, yeni bir kayıt eklediğimde TOPLAM KAYIT sayfa yenilenmeden göstermiyor.
Yenilemedeki kastım, formumda bir yenile düğmesi var...



Düzeltiyorum: Aşağıdaki kodlarla sorun çözüldü.
Lakin, güncelleme yapmıyor...

 

[halit3]

Teşekkür ederim Halit Bey.
Gösterdiğiniz şekliyle kodları ekledim. Genel Toplamı güzel alıyor.
Ama filtreleme ya da iki tarih arasını aldığımda hesaplamayı göstermiyor.
Acaba kodlar güncelleme yapmıyorda ondan olabilir mi?
Çünkü, yeni bir kayıt eklediğimde TOPLAM KAYIT sayfa yenilenmeden göstermiyor.
Yenilemedeki kastım, formumda bir yenile düğmesi var...



Düzeltiyorum: Aşağıdaki kodlarla sorun çözüldü.
Lakin, güncelleme yapmıyor...

TextBox19 = Format(WorksheetFunction.Sum(Range("I2:I65000")), "#,##0.00")

Bu kodu güncelleme yapacağınız kaydet ve düzelt düğmelerinede eklemeniz gerekiyor. Bunları Sizin bilmeniz gerekiyor.

Proğramınızda baya ilerleme sağlamışsınız bu tür eklemeleri etkileyen her olay yordamına (komut düğmelerine) eklemeniz gerekiyor.

 

[Emine Şahin]

TextBox19 = Format(WorksheetFunction.Sum(Range("I2:I65000")), "#,##0.00")

Bu kodu güncelleme yapacağınız kaydet ve düzelt düğmelerinede eklemeniz gerekiyor. Bunları Sizin bilmeniz gerekiyor.

Proğramınızda baya ilerleme sağlamışsınız bu tür eklemeleri etkileyen her olay yordamına (komut düğmelerine) eklemeniz gerekiyor.

Evet, haklısınız Halit Bey.
Bu iceliği gözden kaçırmışım. Ama bildiklerim sizin cevaplarınızla daha da pekişiyor.
Program ciddi denebilecek seviyelere sayenizde geliyor. Bundan sonraki çalışmalarım, öğrenmeye yönelik daha ufak şeyler oalcak. Allah sizden razı olsun...