Soru Listbox daki dolu sütun değeri

vuranoğlu

Altın Üye
Katılım
18 Nisan 2008
Mesajlar
252
Excel Vers. ve Dili
excel 2016 tr
Altın Üyelik Bitiş Tarihi
22.01.2026
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
 

Ekli dosyalar

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
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

Altın Üye
Katılım
29 Haziran 2018
Mesajlar
604
Excel Vers. ve Dili
Office 365 TR (32 Bit)
Altın Üyelik Bitiş Tarihi
05-04-2025
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.

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

vuranoğlu

Altın Üye
Katılım
18 Nisan 2008
Mesajlar
252
Excel Vers. ve Dili
excel 2016 tr
Altın Üyelik Bitiş Tarihi
22.01.2026
Merhaba
Label90 = EVRAKARAMA.ListCount
Bu kod ile listbox daki toplamı veriyor.
İstenilen I sütundaki dolu hücreler.
 

vuranoğlu

Altın Üye
Katılım
18 Nisan 2008
Mesajlar
252
Excel Vers. ve Dili
excel 2016 tr
Altın Üyelik Bitiş Tarihi
22.01.2026
Sayın
Cengiz Demir
Düzeltme yaptığınız kodu denedim.
Teşekkür ederim.
 
Üst