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
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