listview veya listboxta sutunları toplama

[uguristanbul]

degerli arkadaslar
dosya eklemedim sorunum su
listwiew veya list box ın borc alacak sutunlarını toplayı textboxlara yazılmasını istiyorum nasıl bir kod yazmalıyım

 

[Ömer]

Merhaba,

Linki inceleyiniz. Arama yaparak daha fazla konuya ulaşabilirsiniz.

http://www.excel.web.tr/f50/listview-sutun-toplama-t40442.html

.

 

[uguristanbul]

yapamadım

veridginiz linki inceledim ancak yeterli bilgim olmadıgından dolayı beceremedim
dosyayı ekledim list wiew icindeki borc /alacak kolonlarını asagıdaki textboxlara toplatmak istiyorum
ilginize tesekkurler

 

[Ömer]

Dosya eklerken, en azından 4-5 veri girerek eklemeye özen göstermenizi rica ederim.

 

[uguristanbul]

hocam ornek yazssamda combo 1 change de silinecek
ama yardımcı olacak arkadaslara
solye soleyeyim:
tarih yanında combo 1 e kayıtlı verilerden bir tane girin ki dene amaclı olması icin mesela nakit satış degerini girin (her degiştiginde excel sayfası degişecektir.) bu veriyi girdiginizde gerekli textboxların kiliti acılacak ve cinsi birimi birim fiyatı miktarı textboxlarının kilitleri acılcak ve bu kutucuklara veri girişine imkan verecektir.
tüm verileri girdiginizde (bu kutuların yanında kucuk) ekle butonuna basın girdiginiz veriler excel sayfasına aktarılıp listele makrosu yardımıyla list wiewde gorunur hale gelecek bir baska ürün birim birim fiyat miktar girdiginiz de listwiewdw 2 satırda dolmus olacak yapmak istedigimde su:
textbox22 ve 23 listwiewin borc alacak sutunlarının toplamını gostersin istiyorum.
sunu denedim olmadı:
listrwiewin borc alacak sutunları sayfada (KYT sayfası) j ve k sutunlarına denk geliyor
bende sayfadaki j ve k sutunlarını toplamını mesela aa 1 hucresine toplatıp(ki bunu sayfada toplam formulü ilede denedim gene olmadı) ordan textboxlara aktarmayı denedim ancak hep 0 olarak yazdı yani herhangi bir toplama işlemi yapmadı
çünki:
formül veya makro user formdan girilen rakamları toplamıyor sanki onları girilmemis olarak goruyor
sorunumna acil cozum bulunması dile ile saygılar

 

[halit3]

veridginiz linki inceledim ancak yeterli bilgim olmadıgından dolayı beceremedim
dosyayı ekledim list wiew icindeki borc /alacak kolonlarını asagıdaki textboxlara toplatmak istiyorum
ilginize tesekkurler

Dosyanızı anlamak için baya bir emek vermek gerekiyor hiç bir veride yok nasıl kontrol edilecek ve dosyadaki kodlar ne iş yapıyor bilmiyorum.

Listele makrosuna ekelemeler yaptım j ve ka sutünlarını topluyor.

Sub LISTELE()
ListView1.ListItems.Clear
 
Dim deg(2)
deg(1) = 0
deg(2) = 0
For i = 1 To Sheets("KYT").Cells(65536, "D").End(xlUp).Row
Y = Y + 1
ListView1.ListItems.Add , , i
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 4)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 5)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 6)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 7)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 8)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 9)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 10)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 11)
ListView1.ListItems(Y).ListSubItems.Add , , Sheets("KYT").Cells(i, 12)
If IsDate(Sheets("KYT").Cells(i, 10)) = False Then
If IsNumeric(Sheets("KYT").Cells(i, 10)) = True Then
deg(1) = deg(1) + Round(sh.Cells(i, 10), 2) * 1
 
End If
End If
If IsDate(Sheets("KYT").Cells(i, 11)) = False Then
If IsNumeric(Sheets("KYT").Cells(i, 11)) = True Then
deg(2) = deg(2) + Round(sh.Cells(i, 11), 2) * 1
 
End If
End If
 
Next i
TextBox22.Value = deg(1)
TextBox23.Value = deg(2)
End Sub

 

[Orion1]

verilerinizi listeleme arcanıza alıdığınız anda bu işlemi yapın.
Aksi takdirde bir işi 2 kez yapmış olursunuz.
döngüye giriyorsanız bir değişkende toplayın.
rowsurce kullanıyorsanız worksheetfunction.sum() kullanın.