Listview'in Yüksekliğini Dolu Satır Adedine Göre Nasıl Ayarlayabilirim

[Ergün Güler]

Selam,

Listview'in Yüksekliğini Dolu Satır Adedine Göre Nasıl Ayarlayabilirim?

Bir sorgulama Userformum var. Sorgulama yaptıkça Listview'deki satırlar değişiyor. Kimi 1 satır kimi 100 satır. Benim isteğim şu;
Eğer sonuç 1 dolu satır ise, Listview sadece 1 satır'lık kadar görünsün.
10 dolu satır ise, Listview sadece 10 satır'lık kadar görünsün.

Yardımcı olabilirseniz sevinirim.
İyi çalışmalar.

 

[uzmanamele]

merhaba

örnek dosya ekleseydiniz daha net cevap alabilirdiniz.

Sayfa1 A sütunundaki verileri Userform üzerindeki ListBox'a almak istediğinizi düşünelim.
A sütununda 10 adet veriye kadar yükseklik değişken, 10'dan fazla veri için sabit yükseklik oluşturabilirsiniz. (300 veri için 300 birim yükseklik olmayacağına göre)
söyle bir kod işinizi görür mü?

Private Sub UserForm_Activate()
Me.ListBox1.Clear
ad = Sheets("Sayfa1").Range("a65536").End(3).Row
For s = 1 To ad
Me.ListBox1.AddItem Sheets("Sayfa1").Cells(s, "a").Text
Next
If ad > 10 Then ad = 10
ListBox1.Height = 10 * ad
End Sub