listview borç alacak sütuna alttoplam alsın ve hesap yapsın

[bulentc76]

Öncelikle herkese merhaba...
Benim şu an sorunum toplam aldırmakla ilgili.Userform 27 de
Elimdeki verileri listviewe gerekli kodlarla alıyorum ve süzme işlemini istediğim gibi yapabiliyorum.Fakat alttoplam aldıramıyorum.İlgilenirseniz ve yardımcı olursanız çok sevinirim.
Birde bu listviewde kendim iki sütun ekleyerek toplam borç ve alacak hesaplatabilirmiyim acaba.Yani cari hesap adı,malzeme,adedi,birim fiyatı ve satış yada alış durumuna göre borç,alacak olarak kayıt yapıp bunu listviewe rapor olarak alıyor ve süzme işlemini yapabiliyorum.Ama listview iki sütun daha koyup toplam ve toplam alacak hesaplayabilirmi.

Geniş açıklama ve örnekleme ilgili dosyada ektedir.Şu ana üzerinde çalıştığım USERFORM27 dir.İlgili sayfa ise "KASA" sayfasıdır.

Şimdiden ilgilenenlere teşekkürederim.

 

[supervisor]

ben burada ek göremiyorum

 

[bulentc76]

Nasıl yani dosyam ekte ya
Yoksa yardım istediğim konu çokmu zor

 

[bulentc76]

For i = 1 To ListView1.ListItems.Count
alttoplam_borç = ListView1.ListItems(i).SubItems(8)+alttoplam_borç
alttoplam_alacak = ListView1.ListItems(i).SubItems(9) +alttoplam_alacak
Next i
TextBox1 = alttoplam_borç
TextBox2 = alttoplam_alacak


Arkadaşlar yukarıdakş kodları buldum ama kendime uyarlayamadım.Alttoplamları alırken sorun çıkartıyor ve süzme işlemi sonrasında alttoplam sonucu değişmiyor.
Yardımlarınızı bekliyorum.Şimdiden ilgilenen herekese herkese teşekkür ederim.

 

[akd]

Merhaba Sayın bulentc76,
ben aşağıdaki şekilde yapıyorum
Kodu kendinize göre ayarlarsınız, eğer ayarlayamazsanız sonra sizin dosyanızda değişiklik yapıp gönderenbilirim
Sub toplamlar1()
On Error Resume Next
Txttop1.Value = Clear
Dim lst As Currency, lstk As Object, t As Currency, y As Currency, p As Currency
For lst = 0 To Liste1.ListItems.Count
Set lstk = Liste1.ListItems.Item(lst)
t = (t) + (lstk.SubItems(6))
Txttop1.Text = t
y = + (lstk.SubItems(7))
Txttop2.Text = y
p = (p) + (lstk.SubItems(9))
Txttop3.Text = p
Txttop4.Text = t - (y + p)
Next lst
End Sub
selamlar...

 

[bulentc76]

İlginize çok teşekkürederim.Ancak bu tür kodlama şeklini kendine uyarlayacak kadar bilgim yok yardımcı olursanız çok sevinirim.Saygılarımla

 

[korlof]

listview alt toplam

1. çözüm : listview listesine aldığınız verileri, excelde boş bir sayfaya kopyalayın, toplam formulünü excelde yaptırın, ardından toplamı userfomr listview altında textboxa getirtin.

2. çözüm : listview.e veri aldığınız sırada toplam diye bir değişkene her gelen sayının değerini atayın toplam=toplam+sonkayıtdeğeri , böylece işlem / döngü bitiminde son değeri, listenin en altında textbox oluşturarak oraya topam sonucunu yazdırabilirsiniz....

İyi çalışmalar dilerim

 

[akd]

DOSYAYI DÜZENLEYEREK YENİDEN GÖNDERİYORUM
KOLAY GELSİN...