Soru Listbox daki dolu sütun değeri

[vuranoğlu]

Merhaba
Userformda 8 kolondan oluşan listbox ' un 8.(I) kolonunda alt alta bulunan dolu hücre toplamını label de görmek istiyorum. Aşağıdaki kodu uygulamaya çalıştım ama olmadı.
Gelen değerler gerçeği yansıtmıyor .Hata nerede yardımcı olabilir misiniz?
Teşekkür ederim.
toplam = 0
For i = 8 To EVRAKARAMA.ListCount
toplam = toplam + Val(EVRAKARAMA.List(i - 8))
Next i
Label90 = toplam

 

[DoğanD]

Merhaba,

Neden döngü yerine direkt aşağıdaki gibi kullanmıyorsunuz? Ayrıca Formun Initialize olayındaki kısım da hatalı, şehirleri yan yana gösteriyor. Orayı da aşağıdaki kodla çalıştırabilirsiniz diye düşünüyorum.

Label90 = EVRAKARAMA.ListCount

 

[Cengiz Demir]

Eğer arada boş kayıtlar olacaksa bu kodu deneyin.
Olmayacaksa DoğanD üstadın söylediği gibi ekstra koda ihtiyacınız yok.

toplam = 0
    For i = 0 To EVRAKARAMA.ListCount - 1
        If EVRAKARAMA.List(i, 8) <> "" Then toplam = toplam + 1
    Next i
Label90 = toplam

 

[vuranoğlu]

Merhaba
Label90 = EVRAKARAMA.ListCount
Bu kod ile listbox daki toplamı veriyor.
İstenilen I sütundaki dolu hücreler.

 

[Cengiz Demir]

Benim düzeltme yaptığım kodu denediniz mi ?

Merhaba
Label90 = EVRAKARAMA.ListCount
Bu kod ile listbox daki toplamı veriyor.
İstenilen I sütundaki dolu hücreler.

 

[vuranoğlu]

Sayın
Cengiz Demir
Düzeltme yaptığınız kodu denedim.
Teşekkür ederim.