Şu hatayı bir türlü çözemedim bir hatada bulamıyorum yazdığım kodda yardımcı olur musunuz. Kodları ve çalıştığım dosyayı ekledim. Çözebilirsek çok sevinirim.
Kod:
Private Sub TextBox1_Change()
Dim rng As Range
Dim rc As Long
Dim cln, lst As Integer
Dim ad As String
Me.ListBox1.Clear
Set rng = Sheet1.Range("A2").CurrentRegion
Me.ListBox1.AddItem
For lst = 1 To rng.Columns.Count
ad = Sheet1.Cells(1, lst)
Me.ListBox1.List(0, lst - 1) = ad
Next
Me.ListBox1.Selected(0) = True
For rc = 2 To rng.Rows.Count
If InStr(UCase(Sheet1.Cells(rc, 1)) & UCase(Sheet1.Cells(rc, 2)), UCase(Me.TextBox1)) > 0 _
And Me.TextBox1 <> "" Then
Me.ListBox1.AddItem
For cln = 1 To rng.Columns.Count
ad = Sheet1.Cells(rc, cln)
Me.ListBox1(ListBox1.ListCount - 1, cln - 1) = ad
Next cln
End If
Next rc
Me.ListBox1.Height = Me.ListBox1.ListCount * 20
End Sub