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