burhancavus61
Altın Üye
- Katılım
- 13 Mayıs 2005
- Mesajlar
- 761
- Excel Vers. ve Dili
- 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 03.11.2024
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.
Kod:
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