Listboxda değer sıfır olan satırı enable etmek.

[hikmet]

Merhaba sn.hocalarım ve arkadaşlarım;

ekteki dosyanın içerisinde bir düzenlemeye ihtiyacım var. konu ile ilgili değerli fikirlerinizi paylaşırmısınız. ilginiz için şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Listboxta bir satırı enabled haline getirmek sözkonusu değildir. Ancak o satırın seçilmesi engellenebilir yada listboxtan silinebilir.

 

[hikmet]

sn.hocam aslında çok doğru bir tespitte bulundunuz. ifade etmekte zorluk çekince çok çabuk çözülebilecek sorunlar imkansız gibi görülüyor. eğer değeri sıfır olan satırı seçmeyi engelleme şansımız varsa kesinlikle sorun çözülmüş olacak.

 

[Mahmut Bayram]

Sayın hikmet, listboxa galiba sayfadan veri aldırıyorsunuz ve sıfır olanlar gözükmesin istiyorsunuz.

Private Sub UserForm_Initialize()
Dim excel2 As Integer
excel2 = 0
For Each dolu2 In Range("a1:a10")
        If dolu2 > 0 Then
            ListBox1.AddItem
                ListBox1.List(excel2, 0) = dolu2.Offset(0, 0).Value
                excel2 = excel2 + 1
        End If
Next
End Sub

Yukarıdaki A1: A10 u veri aldıgınız satırla değiştiriniz.

 

[hikmet]

sn.partner hocam
bilginizi esirgemediğiniz için teşekkür ederim. verdiğiniz kodu uyguladım ama üzgünüm ama bu kodu yazdığımda da değer sıfır olduğu halde seçmeme izin veriyor ve o satırdaki bilgileri vergi hesaplamasına koyuyor ve sonuç (-) bakiye veriyor.

 

[Mahmut Bayram]

Dosyayı eklemişsiniz bendeki dalgınlığa bak.