listboxta arama ve columnheads

[burhancavus61]

Sitede bulduğum bir kodla comboboxa bağlı listboxta arama yapıyorum. Fakat columnheads özelliğini aynı anda aktif edemiyorum nasıl yapılır.

Sub arapersonel()
    On Error Resume Next
    Dim k As Range, adrs As String, j As Byte, a As Long, myarr()
    ReDim myarr(1 To 23, 1 To 1)
    With Worksheets("personel")
    Me.ListBox3.RowSource = vbNullString

    If .FilterMode Then .ShowAllData
    Set k = .Range("B2:B65536").Find(Me.ComboBox43.Text & "*", , xlValues, xlWhole)
    If Not k Is Nothing Then
    adrs = k.Address
    Do
    a = a + 1
    ReDim Preserve myarr(1 To 23, 1 To a)
    For j = 1 To 25
    myarr(j, a) = .Cells(k.Row, j).Value
    Next j
    Set k = .Range("B2:B65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adrs
    Me.ListBox3.Column = myarr
'    Me.ListBox3.RowSource = "personel!A2:W1000"
'    Me.ListBox3.ColumnHeads = True
    End If
    End With
End Sub

 

[Korhan Ayhan]

Bu arama yöntemiyle Me.ListBox3.ColumnHeads özelliğini kullanamazsınız.

ColumnHeads özelliği için verileri RowSource ile yüklemeniz gerekir.

 

[burhancavus61]

Teşekkür ederim hocam