Listbox sorunu

[recepkull]

Değerli hocalarım listbox ile ilgili bir sorun yaşıyorum. Bana sorunun ne olduğunu söylerseniz çok sevinirim.

Sipariş sayfasında K9 hücresine tıklanınca userform4 açılıyor. Bu açılan userformda Combobox değerine göre listbox da değerler listeleniyor. Sorun şu ki listelenen değerler arasında 6 satır boşluk oluyor. Dosyayı ekledim.

 

[hamitcan]

Bu kod satırlarını aşağıdaki şekilde değiştirin.

    For Each cell In rng
        If cell <> "" Then
        UserForm4.ListBox1.AddItem cell.Value
        End If
    Next cell

 

[recepkull]

Hocam teşekkür ederim gösterdiğiniz yol ile sorunum çözüldü.