listviewde bakiye sütuna hesaplatmakla ilgili yeni çalışma

Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
Herkese iyi geceler...

Daha önce listviewde toplam borç ve alacak hesaplatmaya çalışmıştım.Fakat olmadığı için vazgeçtim.

Şimdi sadece gerektiğinde eksi bakiyede veren bir bakiye sütunuda ekledim.Bu sütun sayfanın aslında yok ama listview yüklenirken yükleniyor ve sayfadan diğer sütunların içinde yer alan borç ve alacak sütunun kullanarak hesap yapıyor.Daha doğrusu yapması gerekiyor.

Bu listviewvin amacı müşteri extresi almak ama verilerin olduğu sayfada bir çok cari isim ve bunlara ait borç alacak verileri olduğu için listviewde süzme işlemi var.Yalnız bu bakiye sütunu hesaplatması konusunda yardımcı olursanız çok sevinirim.Şimdiden herkese teşekkürederim.

Dosyam ekte olup gerekli açıklamalar ve çalıştığım userform 40ta bulunan listviewvi çağıran buton AÇIKLAMA sayfasındadır.Yardımcı olacak arkadaşlara tekrar teşekkürlerimi sunarım
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,646
Excel Vers. ve Dili
Pro Plus 2021
[vb:1:fd9de56f3d]Private Sub ComboBox5_Change()
ListView1.ListItems.Clear
ListView1.View = lvwReport 'istediğiniz uygulma için Listview görünümü= rapor olmalıdır.

say = WorksheetFunction.CountA(ActiveSheet.Range("G:G"))
With ListView1
j = 1
For j = 1 To say
If CStr(Cells(j, 7)) = CStr(ComboBox5) Then
i = ListView1.ListItems.Count + 1
.ListItems.Add , , Cells(j, 1)
.ListItems(i).SubItems(1) = Cells(j, 4)
.ListItems(i).SubItems(2) = Cells(j, 5)
.ListItems(i).SubItems(3) = Cells(j, 11)
.ListItems(i).SubItems(4) = Cells(j, 12)
.ListItems(i).SubItems(5) = Cells(j, 19)
.ListItems(i).SubItems(6) = Cells(j, 20)
End If
Next

End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)

bakiye = 0
For i = 1 To ListView1.ListItems.Count
alttoplam_borç = Val(ListView1.ListItems(i).SubItems(5)) + alttoplam_borç
alttoplam_alacak = Val(ListView1.ListItems(i).SubItems(6)) + alttoplam_alacak
bakiye = bakiye + Val(ListView1.ListItems(i).SubItems(5)) - Val(ListView1.ListItems(i).SubItems(6))
'ListView1.ListItems(i).SubItems(7) = bakiye
'veya
If bakiye < 0 Then ListView1.ListItems(i).SubItems(7) = Abs(bakiye) & " A"
If bakiye > 0 Then ListView1.ListItems(i).SubItems(7) = bakiye & " B"

Next i
TextBox1 = alttoplam_borç
TextBox2 = alttoplam_alacak

End Sub[/vb:1:fd9de56f3d]
 
Katılım
19 Mart 2006
Mesajlar
140
Excel Vers. ve Dili
Excel 2007 - Türkçe
çok teşekkürederim.Emeğinize sağlık
 
Üst