Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Yaptığım ListBoxda B1:B300 arısını rowsorceden seçtim fakat bu satırlar arasında dolu olanların sayısı 80 tanedir. Yani boş olan 220 hücreyi nasıl gösteremeden ListBox açılır gizleyebiliriz.
Bu durumda verinizi listboxa additem ile alabilirsiniz. Bunun için userformun initialize olayına aşağıdaki kodu yazın. Bu arada rowsource a yazdığınız kod veya aralığıda mutlaka silin.
[vb:1:7430d64919]For a=1 to 300
if cells(a,"b")<>0 then listbox1.additem cells(a,"b")
next[/vb:1:7430d64919]
veya
[vb:1:7430d64919]For Each hucre In [b1:b65536].SpecialCells(xlCellTypeConstants, 2)
listbox1.AddItem hucre.Value
Next
[/vb:1:7430d64919]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.
