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

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Ö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.
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Nasıl yani dosyam ekte ya :)
Yoksa yardım istediğim konu çokmu zor :)
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
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

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
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 = (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...
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
İ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

Altın Üye
Katılım
23 Şubat 2006
Mesajlar
10
Altın Üyelik Bitiş Tarihi
12-08-2026
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

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
DOSYAYI DÜZENLEYEREK YENİDEN GÖNDERİYORUM
KOLAY GELSİN...
 
Üst