userform bul komutu ?

[gokdag]

iyi akşamlar..

kendi oluşturduğum userform'a başka bi yerden bulduğum bu komut kullandım güzel ama sadece 3 tane hane gösteriyor.. a-b-c-d-e-f bilgilerim var bunları görmem için ne yapmam lazım ??


Private Sub TextBox1_Change()
Dim myarr() As String, k As Range, adr As String, a As Long
ReDim myarr(1 To 3, 1 To 1)
ListBox1.RowSource = vbNullString
Set k = Range("b:b").Find("*" & TextBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adr = k.Address
Do
b = b + 1
ReDim Preserve myarr(1 To 3, 1 To b)
myarr(1, b) = k.Value
myarr(2, b) = k.Offset(0, 1).Value
myarr(3, b) = k.Offset(0, 2).Value


Set k = Range("b:b").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
ListBox1.Column = myarr
End If
Erase myarr
Set k = Nothing
End Sub

 

[Orion1]

Dim myarr() As String, k As Range, adr As String, a As Long
ReDim myarr(1 To 6, 1 To 1)
ListBox1.ColumnCount = 6
ListBox1.RowSource = vbNullString
Set k = Range("b:b").Find("*" & TextBox1.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adr = k.Address
Do
b = b + 1
ReDim Preserve myarr(1 To 6, 1 To b)
myarr(1, b) = k.Value
myarr(2, b) = k.Offset(0, 1).Value
myarr(3, b) = k.Offset(0, 2).Value
myarr(4, b) = k.Offset(0, 3).Value
myarr(5, b) = k.Offset(0, 4).Value
myarr(6, b) = k.Offset(0, 5).Value


Set k = Range("b:b").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adr
ListBox1.Column = myarr
End If
Erase myarr
Set k = Nothing

 

[gokdag]

Teşekkürler..