Listbox filtreleme sorunu

[yakup123]

Değerli hocalarım merhaba
bir problemim var ve çözemedim

Aşağıdaki kod ile Combobox içerisinden seçtiğim ürünü listbox tan filtreliyorum

sorun şu filtrelemeden önce kolon başlıkları listboxta mevcuttu filtreledikten sonra yok oluyor şunu yapabilmem mümkün mü çıkan sonucun üstüne başlık satırı olan 6 ncı satırı da getirsin imkanı varmıdır acaba saygılarımla

Private Sub ComboBox1_Change()
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("Data")
Me.ListBox1.RowSource = vbNullString
Set k = .Range("B6:b65536").Find(ComboBox1 & "*", , 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 23

myarr(j, a) = .Cells(k.Row, j).Value

Next j
Set k = .Range("B6:a65536").FindNext(k)
Loop While Not k Is Nothing And k.Address <> adrs


ListBox1.Column = myarr


End If

End With
End Sub

 

[Ömer BARAN]

Nasıl yapılır bilemiyorum ama, mantık olarak şunu söyleyeyim; ListBox'ta başlıkları getiren kodlar UserForm_Initialize kodları olması lazım.
Ya Initialize kodlarını çağıran bir yapı olması lazım ya da Initialize kodlarında combobox'u kontrol eden kod lazım sanki.

 

[yakup123]

Üstadım zaten öyle ayriyeten combobox ile filtre yapıyorumsadece filtre sonucunda sayfadaki 6ncı satırın da eklenmesi lazım.

 

[yakup123]

değerli hocalarım bilgisi olan var mı acaba
saygılarımla