listview sütun toplama

[mehmet dur]

Merhaba, Listview sütun toplama hakkında yardıma ihtiyacım var. Aynı form üzerinde Listview1 ve listview2 var. Ben listview1'deki 24 sütunluk verilerin toplamlarını listview2'de göstermek istiyorum. Forum'daki araştırmalarımda sadece tek sütunu toplayıp toplamını Textboxlara yazdırıyorlar. Örnek dosya gönderemiyorum şirket bilgisayarı kullanıyorum. Yardımlarınız için şimdiden teşekkürler.

 

[ÖmerFaruk]

Tüm sütunlar toplanıp, aynı sütun sayısına sahip diğer listboxda tek satır olarak toplamlar mı yazacak ?

 

[mehmet dur]

evet ama listbox değil listview'de olacak

 

[mehmet dur]

Arkadaşlar sorum hakkında bilgisi olan yok mu? Uğraşıyorum ama hala yapamadım.

 

[PLİNT]

Merhaba
Ek dosyayı denermisiniz
https://www.dosyaupload.com/89qt

Private Sub CommandButton1_Click()
Dim topla As Double, a As Long, b As Long
For b = 1 To ListView1.ListItems.Count
topla = topla + ListView1.ListItems(b)
Next b
ListView2.ListItems.Add , , topla
For a = 1 To ListView1.ColumnHeaders.Count - 1
topla = False
For b = 1 To ListView1.ListItems.Count
topla = topla + ListView1.ListItems(b).ListSubItems(a)
Next b
ListView2.ListItems(1).ListSubItems.Add , , topla
Next a
End Sub

 

[mehmet dur]

Merhaba sayın PLİNT öncelikle cevabınız için çok teşekkür ederim. Kodun " topla = topla + ListView1.ListItems(b).ListSubItems(a)" bu satırında hata veriyor, ve sadece tek sütunu topluyor. Belki bu satırdaki hatayı düzeltebilirsek kod çalışacak

 

[PLİNT]

Sayısal olmayanlar varsa; şöyle deneyelim

Private Sub CommandButton1_Click()
Dim topla As Double, a As Long, b As Long
For b = 1 To ListView1.ListItems.Count
If IsNumeric(ListView1.ListItems(b)) = True Then _
topla = topla + ListView1.ListItems(b)
Next b
ListView2.ListItems.Add , , topla
For a = 1 To ListView1.ColumnHeaders.Count - 1
topla = False
For b = 1 To ListView1.ListItems.Count
If IsNumeric(ListView1.ListItems(b).ListSubItems(a)) = True Then _
topla = topla + ListView1.ListItems(b).ListSubItems(a)
Next b
ListView2.ListItems(1).ListSubItems.Add , , topla
Next a
End Sub

Eğer "listview1" değişiyor ve bu değişenlerde "Listvew2" ye eklenecekse aşağıdaki gibi;

Private Sub CommandButton1_Click()
Dim topla As Double, a As Long, b As Long, c As Long
For b = 1 To ListView1.ListItems.Count
If IsNumeric(ListView1.ListItems(b)) = True Then _
topla = topla + ListView1.ListItems(b)
Next b
ListView2.ListItems.Add , , topla
For a = 1 To ListView1.ColumnHeaders.Count - 1
topla = False
For b = 1 To ListView1.ListItems.Count
If IsNumeric(ListView1.ListItems(b).ListSubItems(a)) = True Then _
topla = topla + ListView1.ListItems(b).ListSubItems(a)
Next b
c = ListView2.ListItems.Count
ListView2.ListItems(c).ListSubItems.Add , , topla
Next a
End Sub

 

[mehmet dur]

İlk verdiğiniz koda bazı eklemeler yaptım, biraz ilerleme kaydettim ama hala bazı satırlarda hata verdi. Yeni kodlarınızı deneyeceğim ama özel sektörde çalıştığım için mesaim bitti, Cumartesi günü kodlarınızı deneyip cevap vereceğim. Emek verdiğiniz için teşekkür ederim, hayırlı geceler.

 

[mehmet dur]

Sayın PLİNT son verdiğiniz kodu hemen denedim, kod sorunsuz çalıştı. Çok teşekkür ederim.

 

[mehmet dur]

Merhabalar
İlk sorumun biraz daha gelişmişi bir sorun ile tekrar karşılaştım. Şöyle ki sayfa1'e 2017 yılından bugüne kadar hergün 24 sütundan oluşan veriler giriliyor. Ben bunları combobox'tan seçtiğim yıla göre listview1'de her satıra bir ay gelecek şekilde toplatabilir miyim? Yani 2020 yılı seçilince listview1'in 1.satırına Ocak ayı toplamları,2.satırına Şubat ayı toplamları... şeklinde listelemek istiyorum. Umarım anlatabilmişimdir.

 

[mehmet dur]

Arkadaşlar son sorum ile ilgili herhangi bir fikri olan yok mu?

 

[mehmet dur]

Arkadaşlar bir fikri olan yok mu?

 

[mehmet dur]

Bugün'de yardım isteyelim bakalım.

 

[ÖmerFaruk]

Excel dosyanızı yüklerseniz daha kolay ve hızlı yol alınabilir.

 

[mehmet dur]

Merhaba Ömer bey ilk mesajımda dile getirmiştim, iş yerindeki bilgisayarı kullanıyorum ve dosya indime veya yükleme gibi bazı özelikleri kapalı. Onun için yükleyemiyorum. Bu şekilde yardım edebilirseniz sevinirim.