- Katılım
- 24 Ekim 2007
- Mesajlar
- 98
- Excel Vers. ve Dili
- 2007 türkçe
- Altın Üyelik Bitiş Tarihi
- 23.11.2018
Arkadaşlar listbox'da textbox ile süz yapmak istiyorum bir türlü yapamadım. Aşağıdaki şekilde yazıyorum, örneklerden alıntı yaparak hata veriyor.
Lütfen yardım
Private Sub TextBox17_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 17, 1 To 1)
With Worksheets("Ana")
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .Range("a5:a65536").Find(TextBox17.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 17, 1 To a)
For j = 1 To 17
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = Range("a5:a65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub
Lütfen yardım
Private Sub TextBox17_Change()
Dim k As Range, adrs As String, j As Byte, a As Long
ReDim myarr(1 To 17, 1 To 1)
With Worksheets("Ana")
'Show all records of Database on Sheet1
If .FilterMode Then .ShowAllData
Set k = .Range("a5:a65536").Find(TextBox17.Text & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
adrs = k.Address
Do
a = a + 1
ReDim Preserve myarr(1 To 17, 1 To a)
For j = 1 To 17
myarr(j, a) = .Cells(k.Row, j).Value
Next j
Set k = Range("a5:a65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs
ListBox1.Column = myarr
End If
End With
End Sub
Son düzenleme: