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

[bulentc76]

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]

[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]

 

[bulentc76]

çok teşekkürederim.Emeğinize sağlık