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...
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...