Listview Etopla

[AKTAY27]

meraba arkadaşlar

listview1 4.sütunana listview2 nin 7 sütunundaki verileri toplatmak istiyorum.
listview1 2.sütununda kodlar var
listview2 5.sütunuda da aynı kodlar var
listview2 7. sütununda toplamam gereken veriler kendimce kod yazmaya çalıştım ama olmadı aşağıda kodu düzetmeniz mümkünmü ?
teşekkürler

'---------------------------------------------------
Set L1 = ListView1
Set L2 = ListView2
Set L3 = ListView3
sons1 = ListView1.ListItems.Count
sons2 = ListView2.ListItems.Count
sons3 = ListView3.ListItems.Count

For i = 2 To sons1
For j = 2 To sons2
For ş = 2 To sons3

ListView1.ListItems(i).SubItems(4) = WorksheetFunction.SumIf(ListView2.ListItems(j).SubItems(5), ListView1.ListItems(i).SubItems(2), ListView2.ListItems(j).SubItems(7))

End Sub
'----------------------------------------------------------------------

 

[AKTAY27]

arkadaşlar bi el atsanız

 

[AKTAY27]

en azından listviewi sayfaya cdbl rakam formatında nasıl atabilirim. kuruş hanesi olmazsa örneğin 1.258,00 olduğu zaman düzgün çalışıyor ama 1.258,25 olduğu zaman formüller çalışmıyor, onun için olayı listviewin kendi içinde çözmeye çalıştım ama olmadı.

 

[Hüseyin]

Merhaba,
bu yazdıklarınız bir excel dosyası olarak eklemeniz mümkün mü.

Size yanıt hazırlamak isteyen arkadaşımız önce senaryoyu Excel'e aktarmak zorunda kalmasın en azından.

 

[Vedat Özer]

Örnek Dosya Gönderirmisin Kardeşim Formüllede Yapılabilir