listenin uzunluğu bulunan veri kadar olsun

[akd]

Merhaba arkadaşlar
Listbox'a bul ile bilgileri alıyorum, textboxdaki gibi autosize'de olduğu gibi
benimde bulduğum veri 3 satırsa listenin yuksekligi 3 satır kadar olabilirmi ?
makrom bu

ListBox3.Clear
ListBox3.RowSource = ""
Dim myArray3()
Dim say As Integer
say = WorksheetFunction.CountA(Range("a1:a5000"))
ReDim myArray3(say, 7)
ListBox3.ColumnCount = 7
ListBox3.ColumnWidths = "0 pt;30 pt;139,95 pt;60 pt;60 pt;60 pt;60 pt;60 pt"
Dim i As Range, ay As String
Dim a, B, satir As Integer
ay = TextBox21.Text
For Each i In Sheets("kira").Range("b1:b5000")
If LCase(i.Value) = LCase(ay) Then
satir = i.Row
For B = 0 To 9
myArray3(a, B) = Worksheets("kira").Cells(satir, B + 1)
Next
a = a + 1
End If
Next
ListBox3.List = myArray3

Saygılar...

 

[xxrt]

ListBoxa,Bulduğunuz verinin UserFormun yüksekliğinden fazla olursa ne yapacaksınız. :?

 

[akd]

Merhaba xxrt
bu pek nadir olursada , kod da bir sorun oluşturumu, listbox un yanında ki aşağı yukarı oklar olmazmı, vs...
selamlar

 

[xxrt]

Sabit bir listboxta dediğiniz olur ListeBox'un Height özelliği,arama sonucu bulunan verilere göre ayarlama yaptığımızda dediğim şey olur..Sanırım yukarıdaki sorunuzda bunu sormuştunuz.
Bir dosya gönderebilirseniz olayı daha net anlarız..

 

[akd]

Merhaba sayın xxrt
belge ekte
saygılar...

 

[xxrt]

Belki işinize yarar.İşler yoğun pek uğraşamadım

 

[Levent Menteşoğlu]

Bir örnekte ben hazırladım ekte inceleyiniz.

 

[akd]

Çok Çok teşekkürler sayın xxrt ve leventm.
elleriniz dert görmesin